Esta rotina devolve uma lista contendo o nome e o VLA-OBJECT dos atributos de um bloco
(defun get-list-attrib (ent)
(if (setq ent (ename-of ent))
(mapcar
‘(lambda (x)
(list (vla-get-tagstring x) x))
(vlax-safearray->list
(vlax-variant-value
(vla-GetAttributes
(vlax-ename->vla-object ent)))))))
ela devolve uma lista de pares (“tagstring” vla-object) do bloco (ent -> ename)