Esta rotina é bem simples, ela funciona como o entdel, a diferença está no fato dela não “desdeletar” uma entidade deletada…alguem já usou o ENTDEL para RECUPERAR uma entidade apagada? (defun del-ent (ent / ) (if (setq ent (ename-of ent)) (entdel ent)))
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
