Question

CAD里面的块为什么有得炸不开？有没有方法炸开？

Answer 1

加密了的,用下面方法

在记事本中复制以下内容：
(defun c:unlk (/ en ent)
(setq en (entsel "\n请选择被加密的图形:"))
(if en
(if (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en)))))))
"INSERT"
)
(progn
(setq ent (entmakex
(list '(0 . "INSERT")
(assoc 2 ent)
(assoc 10 ent)
)
)
)
(command "_.explode" (entlast))
(entdel en)
)
)
)
(princ "\nOK，解密成功。")
(princ)
)
保存为“unlk.lsp”文件
cad中用“APPLOAD”命令加载这个文件，
然后输入“unlk”命令就行了。