Esta rotina calcula as coordenadas mínima e máxima de uma lista de pontos. O interessante dela, é que ela implementa as funções MAX e MIN do autolisp duma forma um pouco estranha…. explico: normalmente estaríamos tentados a escrever simplesmente:(apply ‘min (mapcar ‘car lpt))para calcular a coordenadas X mínima desta lista de pontos… e funciona!!! na […]
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)
