Blog do Neyton: get-list-attrib

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)