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

4 comentários:

  1. Cara, esse código salvou a minha pele..
    mto obrigado!

    ResponderExcluir
    Respostas
    1. Bom dia, estou com o mesmo problema, mas como eu aplico a rotina MINSERT - INSERT no autocad?

      Excluir
  2. Tentei executar, mas nao surtiu efeito. Tem algum cuidado a se tomar antes de executar o comando?

    ResponderExcluir
  3. Cara Funcionou valeu mesmo !!!!

    ResponderExcluir