Тема: Как указанием на экране взять значение одного из атрибутов блока?

Доброго всем здоровья!
Помогите, пожалуйста. На чертеже есть многочисленные вхождения нескольких разновидностей блоков с разным количеством атрибутов (отметки на генплане, на картограмме). Как, указывая мышкой на конкретный видимый атрибут, получить его значение для дальнейшего использования в вычислениях?
Спасибо.

(изменено: 1 1, 13 мая 2011г. 12:54:02)

Re: Как указанием на экране взять значение одного из атрибутов блока?

вроде бы так должно получится с использованием nentsel
(setq a(car(nentsel)))
(entget a)

(defun atr (/ im_obj  atrib)
  (setq im_obj (car(nentsel "\nУкажите атрибут блока: ")))
  (setq atrib(cdr (assoc 1 (entget im_obj)))))

Re: Как указанием на экране взять значение одного из атрибутов блока?

Спасибо, получилось.