[Громов Владимир]

Дамп

Код:

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

(vlax-dump-object (vlax-ename->vla-object (car (entsel))) t)

дает мало информации, все сплошь строки типа

Код:

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

EngineeringData (RO) = #<VLA-OBJECT IAecbPartDataVariables 000000003a011f50>

Вот что это такое #<VLA-OBJECT IAecbPartDataVariables 000000003a011f50>?

[VitalyAF]

Привет! Рад видеть Вас!

Попробуйте эти две строчки поочереди

(setq obj (vlax-ename->vla-object (car (entsel "\nSelect Door: "))))
(vlax-dump-object obj T)

Куда вы все пропали с форума, где щас центр событий?

[Громов Владимир]

Виталий, привет. Я и ожидал, что ты откликнешься. Но что-то ты странное написал. При чем тут двери? Сейчас у меня разработана программа, которая полностью автоматически создает таблицу результатов сортировки и подсчета суммы длин трубопроводов ВК. Сортировка выполняется по системе, диаметру и длине участка. Выбираешь область, содержащую трубопроводы и указываешь точку вставки таблицы. И все. Эти параметры я достаю из свойств трубопровода через ActiveX, например:

Код:

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

(setq номдиам (vlax-get-property (vlax-ename->vla-object trb) 'NominalSize))

Но есть вещи, до которых я не могу добраться программно, например, настройка трассировки трубопровода, где задается его материал (чугун, сталь и т.п.). Дамп выдает кучу строк по типу приведенному в сообщении #1. Возможно, там глубже находится нужная мне информация, но проникнуть туда не получается, там нет вариантов. Боюсь, что тут вообще не хватит возможностей VLisp.

[VitalyAF]

При чем тут двери?

Не причём, можно заменить на
(setq obj (vlax-ename->vla-object (car (entsel "\nSelect Object: ")))

Но Lisp-ом в настройки трассировки действительно не добраться...
Можно прописать материал в каталогах, если не прописано, тогда эти свойства появятся в стилях, может быть тогда вы сможете их своей таблицей
подцепить. С помощью формул в Schedule Table это удаётся.