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

LinkWithin

Related Posts Plugin for WordPress, Blogger...