加密CAD解密简单方法

步骤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