Hoje um amigo meu me pediu algo que transformasse MINSERT BLOCK em bloco normal, pois ele não conseguia explodir o MINSERT, bom, uns tempos atras tinha uma discussão no forum autolisp sobre proteção de arquivos dwg e uma das opções de proteção que deram lá essa de transformar o desenho em MINSERT... mas logo vimos que era uma proteção ruim, pois algumas poucas linhas de código bastavam para quebrar a proteção...

mais...

Entção, a rotina era esta abaixo:

---

(defun c:mins2ins (/ ent elist)
  (vl-load-com)
  (if (setq ent (car (entsel
      "\nSelecione o bloco a desbloquear...")))
     (progn
       (setq elist (entget ent))
       (foreach x '(44 45 70 71)
         (setq elist
             (vl-remove (assoc x elist) elist)))
       (entmake elist)
       (entdel ent)))
  (princ))

---

E estranho, volta e meia me aparecem desenhos com blocos MINSERT... até entendo sua utilidade, mas criar um MINSERT de apenas uma linha por uma coluna??? faça-me o favor, por que isso??