Na verdade estou tentando modificar esta rotina para que ela não precise usar os layers… pois se você tem um desenho muito grande, ela pode se tornar lenta ao alterar o “LOCK” do layer… (defun get-user-polig (/ pts lst tmp cmd) (setq pts nil lst nil cmd (getvar “cmdecho”) again t) (vlax-for tmp (vla-get-layers (vla-get-activedocument […]

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)

Em alguns programas, preciso da lista de layers por exemplo, ou dos blocos, linetypes, etc… esta rotina faz isso: (defun get-tableof (str / tmp lst) (vlax-for tmp (vlax-get (vla-get-activedocument (vlax-get-acad-object)) str) (setq lst (append lst (list (vla-get-name tmp))))) lst) para usar: (get-tableof “layers”) retornará a lista de layers do desenho