• BJ
  • Восстановленный участник
  • На форуме с 19 апреля 2004г.
  • Сообщений: 1
  • Спасибо: 0

Тема: Как "взорвать" mtext средствами VBA?

Операция explode автокада подразумевает "взрыв" mtext. Точнее переводит его в dtext. Как организовать подобное средствами VBA, если такое возможно.

  • cadhelp
  • Восстановленный участник
  • На форуме с 24 февраля 2004г.
  • Сообщений: 231
  • Спасибо: 0

Re: Как "взорвать" mtext средствами VBA?

> Как
организовать подобное средствами VBA, если такое возможно.
:)
Ручками
Берете Мtext затем
1. собираете его properties
2. анализируете стоку (\ означает новую строку \\ - символ \ ...)
3. создаете тексты -set TxtObj = ThisDrawing.ModelSpace.AddText t,x
4. Устанавливаете новые свойства