CAD加密文件破译.docx

文档介绍：图形被加密的解锁方法】 将下面的代码复制在记事本内，另存为 文件，打开这张不能修改的图
纸，命令 appload 选择加载程序文件 ，命令行键入 unlk ，选择不能修
改的图形。。。
(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 "" (entlast))
(entdel en)
)
(princ "\nOK ，解密成功 ")
(princ)
)