[Supermax]

Вот нет у MTEXT-а метода Explode, и чем его заменить? Запоминать последний созданный объект и шарить после взрыва командой по таблицам? Может кто-то уже функцию такую написал?

[VVA]

Попробуй эту
Explode mtext function

[Supermax]

VVA, я упал Это после падения.
Неужто так все сложно? Это наверное упрямство их заставляет идти ТАКИМИ путями?
Я уже нашел решение, но руки пока не доходят наваять.
Концепция следующая:
Создаем служебный объект "точка" и сохраняем на него указатель.
Это будет последний созданный объект. Entlast тут не подходит, поскольку MTEXT, который мы будем взрывать, может оказаться последним созданным объектом, а нам надо, чтобы он был не последний.
(дубликат MTEXT-а тоже)
Выбираем объект (это может оказаться и не MTEXT).
(vl-cmdf "_explode" (entlast)) типа так, только вместо entlast - указатель на объект.
Потом создаем набор из всех примитивов рисунка и ищем в нем нашу точку.
Все примитивы начиная с нее и до конца набора - вновь сосзданные при расчленении MTEXT-а.
Удаляем точку.

Если надо сохранить копию MTEXT-а, или другого расчленяемого объекта, то надо его продублировать. Можно аргумент функции подкинуть.
Дубликат надо создавать до ваяния точки.

А народ явно перегрелся.

[Кулик Алексей aka kpblc]

Supermax, а если применение командных методов недопустимо?
Это для начала

[CB]

Код:

[Выделить все]

 
(setq a (entlast))
(vl-cmdf "_explode" (car (entsel "\nSelect Mtext: ")))
(while (setq a (entnext a))
  (setq lst (cons a lst))
)