[Shraybicus]

Здравствуйте!

Вот разбираюсь в технологии ActiveX. Создал блок, находится в приложенном файле. Блок имеет один атрибут в правом нижнем углу. Хочу для начала прочитать этот атрибут. Пишу следующий код на Lisp'е.

Код:

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

(vl-load-com)
(setq obj (vlax-ename->vla-object (car (entsel))))
;;; #<VLA-OBJECT IAcadBlockReference 09edc614>

(setq ar-atr (vla-GetAttributes obj)) ; получение массива атрибутов
;;; #<variant 8201 ...>

(vlax-safearray->list (vlax-variant-value ar-atr))
; вычисление значения варианта и чтение массива

Получаю строку:
; ошибка: ActiveX Server возвратил ошибку: Неверный индекс

Подскажите пожалуйста, что не правильно?

[VVA]

Все правильно. Возможно в блоке нет атрибутов или атрибут постоянный. Вот готовая ф-ция

Код:

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

(defun get-all-atts (obj)
  (if (and obj
           (vlax-property-available-p obj 'Hasattributes)
	   (eq :vlax-true (vla-get-HasAttributes obj))
	)
    (vl-catch-all-apply
      (function
	(lambda	()
	  (mapcar (function (lambda (x)
			      (cons (vla-get-TagString x)
				    (vla-get-TextString x)
			      )
			    )
		  )
		  (append (vlax-invoke obj 'Getattributes)
			  (vlax-invoke obj 'Getconstantattributes)
		  )
	  )
	)
      )
    )
  )
)

[Shraybicus]

VVA, я эту функцию видел и пользуюсь. Но вот хочу сам разобраться как все работает.

А атрибут постоянный. так и есть.

Сделал атрибут установленный, теперь выдает следующее значение:
(#<VLA-OBJECT IAcadAttributeReference2 01f88b94>)

А как получить значение атрибута?

[VVA]

Сообщение от Shraybicus А как получить значение атрибута?

важно еще знать к какому тэгу это значение относится. У тебя список vla-объектов. Применяешь к ним vla-get-TagString чтобы узнать имя тэга атрибута, vla-get-TextString - значение. Пишу без проверок

Код:

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

(foreach attrib (vlax-safearray->list (vlax-variant-value ar-atr))
(princ "\nТэг - ")(princ (vla-get-TagString attrib))
(princ "  Значение - ")(princ (vla-get-TextString attrib))
)