• Svetlana
  • Восстановленный участник
  • На форуме с 28 апреля 2006г.
  • Сообщений: 30
  • Спасибо: 0

Тема: Как программно осуществить Explode для объектов MText и Leader ?

Командно MText и Leader можно разбить, а программно как?

  • На форуме с 7 ноября 2005г.
  • Сообщений: 505
  • Спасибо: 0

Re: Как программно осуществить Explode для объектов MText и Leader ?

Если объект не имеет метода Explode, то только через SendCommand, или никак..
Кажется, так.

  • Svetlana
  • Восстановленный участник
  • На форуме с 28 апреля 2006г.
  • Сообщений: 30
  • Спасибо: 0

Re: Как программно осуществить Explode для объектов MText и Leader ?

так как объекты то туда выбрать, например все MText с одного слоя, чтобы другие то объекты не разбить?

  • На форуме с 7 ноября 2005г.
  • Сообщений: 505
  • Спасибо: 0

Re: Как программно осуществить Explode для объектов MText и Leader ?

> Svetlana
Делаете .Select в нужном для вас режиме (например acSelectionSetAll) и указываете фильтры по слою и типу объекта. И сразу же после этой операции посылаете:

ThisDrawing.SendCommand "_explode" & vbCr & "p" & vbCr & vbCr

Вот пример из кода:

SSet.Select acSelectionSetAll, , , FType, FData
ThisDrawing.SendCommand "_pselect" & vbCr & "p" & vbCr & vbCr

Полностью пример вот здесь:
https://www.caduser.ru/forum/topic22906.html
Там я писал для "_pselect", Вы без труда можете переделать для "_explode".