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”)
Esta rotina desenha um bloco contendo as coordenadas X, Y e Z e o Nome de um ponto clicado. Este bloco aponta uma polilinha para esta posição e ambas as estidades respondem a comandos de edição com Reactors, conferindo uma certa inteligência a este bloco…Experimente usar o Stretch, Move, Attedit… e verás… as subrotinas que
