[onix]

Здравствуйте, гуру!)

Не подскажите имеется ли возможность на лиспе получить свойства (содержимое, слой и точка вставки) всех MTEXT на вставленном xref ?

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

Получаешь указатель на вхождение ссылки, из нее - указатель на описание ссылки. Проходишь по внутренностям как по обычному блоку, фильтруя объекты. В чем трудность?

[VVA]

то-же, что сказал Алексей, на лиспе

Код:

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

(vl-load-com)
(vlax-for Blk (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object)))
   (if (eq (vla-get-IsXref Blk) :vlax-true) ;_внешняя ссылка
     (vlax-for Obj Blk
       (if (= (vla-get-ObjectName Obj) "AcDbMText")
         (progn
         ;;;что-то делаем
           )
         )
       )
     )
  )

[onix]

Сообщение от VVA то-же, что сказал Алексей, на лиспе Код: [Выделить все] (vl-load-com) (vlax-for Blk (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object))) (if (eq (vla-get-IsXref Blk) :vlax-true) ;_внешняя ссылка (vlax-for Obj Blk (if (= (vla-get-ObjectName Obj) "AcDbMText") (progn ;;;что-то делаем ) ) ) ) )

Спасибо, буду пробовать)

----- добавлено через ~55 мин. -----

Сообщение от VVA то-же, что сказал Алексей, на лиспе Код: [Выделить все] (vl-load-com) (vlax-for Blk (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object))) (if (eq (vla-get-IsXref Blk) :vlax-true) ;_внешняя ссылка (vlax-for Obj Blk (if (= (vla-get-ObjectName Obj) "AcDbMText") (progn ;;;что-то делаем ) ) ) ) )

Огромное спасибо)))
Всё работает!
Просто была беда в том, что присылают ведомость отделки потолков (под покраску/ подвесной) в dwg таблицей из примитивов и мтекста, содержащего список номеров помещений и план с этими помещениями. И вот, чтоб по плану не искать где какой потолок по таблице. Ставим цвет МТексту в таблице с помещениями, запускаем lisp и он на плане где точка вставки мтекста с номером помещения рисует круг цветом МТекста)