Quem já tentou usar uma lista de pontos na sintaxe da função ssget já percebeu que não se pode permitir pontos duplicados nessa lista, sob pena da seleção retornal nil… bom, para resolver isso, você deve remover esses pontos… normalmente isso ocorre quando coletamos as coordenadas de polilinhas mal desenhadas… (defun rmpdup (ptlist / lst) […]

Esta subrotina é útil nos casos quem que você precisa das coordenadas do retângulo que circunscreve uma determinada entidade… pra dar um “zoom” nela por exemplo… vejam como eu usei o método boundingbox do activex: (defun get-bounding-box (ent / maxp minp) (setq ent (vlax-ename->vla-object (ename-of ent))) (if (vl-catch-all-error-p (vl-catch-all-apply ‘vla-GetBoundingBox (list ent ‘minp ‘maxp))) (list

editado em 01/12/2006: Lwpolylines usam o dxf 10 em OCS, é preciso converter para WCSEsta subrotina me ajuda em muitas das minhas rotinas, ela serve para coletar as coordenadas das linhas… sei que dá pra usar as subrotinas do express, mas nem todo mundo usa, por isso prefiro programar as minhas próprias… (defun get-points-polig (ent