Outro dia estava precisando desenhar um retângulo tal que circunscrevesse um TEXT ou MTEXT… pois bem, existe a função textbox no autolisp, mas esta so funciona com TEXT… e ainda, ele devolve uma lista com a diagonal do retângulo ocupado pelo texto, como se ele estivesse na origem (0,0) e tivesse rotação zero… aí desenvolvi […]
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
