atrbutos dinâmicos

Outro dia um camarada me perguntou como alterar o valor de um atributo dinâmico em um bloco. Bom escrevi um pequeno programa para exemplificar, segue: ;subrotina que retorna a lista de atributos dinamicos de um bloco;vlabloc é o ponteiro VLA para o bloco(defun get-dynamic-attributes (vlabloc) ;(vl-load-com) (mapcar ‘(lambda (p) (cons (vla-get-PropertyName p) p)) (vlax-safearray->list (vlax-variant-value […]