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??

Um comentário:

  1. Caro colega,
    Preciso entregar um orçamento urgente, mas recebi o desenho em minsert block, já tentei de todas as maneiras converter o desenho, sem obter sucesso, peço sua ajuda.

    Obrigado, Thiago.

    ResponderExcluir