cad一选中就全选,无法炸开。望得到帮助。

CAD

在记事本中复制以下内容：

(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”命令就行了。