Bom, pra mostrar a utilidade das últimas subrotinas que eu postei, vou colocar uma rotina que usa elas… esta rotina exporta para um arquivo de texto a distância em relação ao inicio da linha e a coordenada de cada ponto da mesma, vai ser útil pra que trabalha com topografia, quando precisa gerar aqueles arquivos […]
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
