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
Cara Funcionou valeu mesmo !!!!
Bom dia, estou com o mesmo problema, mas como eu aplico a rotina MINSERT – INSERT no autocad?
Tentei executar, mas nao surtiu efeito. Tem algum cuidado a se tomar antes de executar o comando?
Cara, esse código salvou a minha pele..
mto obrigado!