2024年6月8日发(作者：)

把下面的代码存成

打开记事本把下面复制进去，保存成

如果你保存成，就自己改下后缀名就可以了

(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)

)

1， 在autocad中，打开要加密的图纸。

2， 2，点击 autocad 菜单 “工具” －》 “加载应用程序” ，加载 。

3， 3，加载后会出现提示对话框，点确定。

4， 4，在autocad中，键入unlk，回车，选择要解密的图形，回车。

.