[Zaghim]

Друзья, столкнулся с такой проблемой. Научился получать имена всех слоев, которые есть на чертеже. А как получить поле discription? Может есть у кого готовый кодец? Спасибо! Т.е. по имени слоя получить то, что находится в его описании.

[Олег (jr.)]

Без проверки...

Код:

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

 (vl-load-com)
(defun C:LRD(/ descr ent layer obj)
(while (setq ent (entsel "\nSelect object (Enter to Exit): "))
  (setq obj (vlax-ename->vla-object (car ent))
	layer (vla-get-layer obj)
	descr (vla-get-description
		(vla-item
		  (vla-get-layers
		    (vla-get-activedocument
		      (vlax-get-acad-object))) layer)))
  (alert (strcat "Description: " "\"" descr "\"" "\nLayer: " "\"" layer "\"" "."))
	)  
(princ)
)

[Zaghim]

Спасибо большое за оперативность, сейчас попробуем...