A subrotina abaixo, insere um bloco no desenho. Se o parâmetro NOME for dado com o caminho completo do arquivo do bloco, este será procurado no HD…, veja que se você fizer isso, não coloque a extensão DWG no nome do arquivo. (defun draw-insert (nome pt lay rot esc tags / ent tmp) (setq tmp […]
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
