Minsert para Insert

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

---

ela transforma blocos "MINSERT" (que não são afetados pelo comando explode)para "INSERT" normal