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
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)
