minsert

Uma rotinazinha bem simples que quebrou um galhao outro dia: (defun c:mins2ins (/ ent elist) (vl-load-com) (if (setq ss (ssget ‘((0 . “INSERT”)))) (repeat (sslength ss) (setq ent (ssname ss 0) elist (entget ent ‘(“*”))) (foreach x ‘(44 45 70 71) (setq elist (vl-remove (assoc x elist) elist))) (entmake elist) (entdel ent) (ssdel ent ss))) […]