步骤1： 把下面代码存成unlk.lsp； 打开记事本把下面内容复制进去，保存成unlk.lsp； 如果你保存成unlk.txt，改下文件后缀即可。 (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 39;(0 . "INSERT") (assoc 2 ent) (assoc 10 ent) ) ) ) (command "_.explode" (entlast)) (entdel en) ) ) ) (princ "\nOK，解密成功。") (princ) )
步骤1：
把下面代码存成unlk.lsp；
打开记事本把下面内容复制进去，保存成unlk.lsp；
如果你保存成unlk.txt，改下文件后缀即可。
(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 39;(0 . "INSERT") (assoc 2 ent) (assoc 10 ent) ) ) ) (command "_.explode" (entlast)) (entdel en) ) ) ) (princ "\nOK，解密成功。") (princ) )
步骤2：
工具--加载应用程序 unlk.lsp
步骤3：
运行命令：unlk
