Similar to what fixo had, thru the block definition.
(defun getAttdefData ( bn / ent enx lst )
(if (setq ent (tblobjname "block" bn))
(while (setq ent (entnext ent))
(if (= "ATTDEF" (cdr (assoc 0 (setq enx (entget ent)))))
(setq lst
(cons
(mapcar '(lambda (n)(cdr (assoc n enx)))
'(2 1));<-- add more att prop here TEXTSTYLE HEIGHT etc.
lst
)
)
)
)
)
lst
)
This is way faster than VL.
I have not personally met Fixo, our correspondents was limited to emails, asking me from time to time to test a code he's woking on, eventually the messages became more about life and christimas greeting and the like. For the longest time he was egging me to learn .NET and was even kind enough to share his code snippets thru Dropbox. I miss his enthusiasm most of all. The man is truly a legend.
pBe