Uma rotina que altera o dxf duma entidade: (defun remake-ent (ent dx val / tmp new entl) (if (setq ent (ename-of ent)) (progn (setq entl (entget ent ‘(“*”)) val (if (listp dx) val (list val)) dx (if (listp dx) dx (list dx))) (repeat (max (length dx) (length val)) (setq tmp (assoc (car dx) entl) new […]
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
