[Sege]

Есть vla-функции у LeeMac для чтение значение атрибута блока

Код:

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

 ;; blk - [vla] блок
;; tag - [str] имя атрибута из этого блока
;; Результат: строка значения атрибута, иначе (такого атрибута нет) возвращает nil
(defun LM:vl-getattributevalue ( blk tag )
(setq tag (strcase tag))
(vl-some '(lambda ( att ) (if (= tag (strcase (vla-get-tagstring att))) (vla-get-textstring att)))
(vlax-invoke blk 'getattributes)
 ))

В качестве blk указываю объект-блок с помощью (car (entsel))

Однако autocad мне выдает
ошибка: неверный тип аргумента: VLA-OBJECT <Имя объекта: 16cf940df10>

Я так понимаю что имя объекта, полученного с помощью (car (entsel)) - это не объект VLA? Т.е. требуется преобразование? Как его преобразовать в объект VLA?

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

vlax-ename->vla-object

[Sege]

Алексей, спасибо за мега-оперативность!