Bom, continuando com as rotinas, na rotina Rtc3 que postei tem uma função que recupera o valor dos atributos de um bloco… Outra coisa que vejo muito em forums sobre o assunto.. parece que quanto mais tu responde essa dúvida mais ela aparece… mas vá lá, vejam como eu faço: (defun get-tag-prop (ent tag / […]
Em vários forums eu vi gente perguntando como que faz para acessar os atributos de um bloco… bem, um exemplo: (defun get-entname-of-tag (ent tag / tmp) (setq tmp (vl-catch-all-apply ‘(lambda nil (setq ent (vlax-ename->vla-object (ename-of ent)) tmp (cadr (assoc (strcase tag) (mapcar ‘(lambda (x) (list (strcase (vla-get-tagstring x)) (vlax-vla-object->ename x))) (3d-of-vla (vla-getattributes ent)) ))))))) (if
As vezes nas nossas rotinas, pedimos para o usuário informar o nome de uma layer qualquer e este responde com uma string… Bem, nem sempre validamos essa string… pelo que eu percebi, ninguém faz isso… aí podem ocorrer erros, pois estaremos tentando criar um layer que não pode existir… Exemplo: (vla-add (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) “>layer”)
