Bom… já respondi em alguns forums como fazer pra verificar se um ponto está dentro de um polígono e, pra constar, este é o código que eu apresentei: (defun pointInPolygon (pts pt / i j odd qtd it jt) (setq i 0 j 0 odd nil qtd (length pts) x (car pt) y (cadr pt)) […]
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
