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)

LinkWithin

Related Posts Plugin for WordPress, Blogger...