Uma rotina pra complementar a SUB-LIST que postei outro dia: ; remove somente os (n-esimos) valor(es) da lista(defun remove-n (n lst / new nl) (setq new nil nl 0 n (if (listp n) n (list n)) n (vl-sort n ‘

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