怎样解除规划局给的cad加密地形图进行编辑?

解决方法如下：

1、首先新建一个文本文档

2、然后在文档中输入口令：

(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) ) ) ) (mand "_.explode" (entlast)) (entdel en) ) ) ) (princ "\nOK，解密成功。") (princ) )

3、关闭文档，然后保存，再修改文件名称，将文件类型修改为unlk.lsp

4、在CAD中找到工具→加载应用程序并点击，然后找到刚才保存的文件进行加载

5、加载成功过后在命令栏中输入unlk，也就是你刚刚加载的应用程序名称，确定，然后选择需要解除加密的图形

6、最后就成功解除啦！

​ 收起全部​ 回复 赞 0 人来。消回复 您好，请问第5步加载unlk不成功怎么办呀

《筑原CAD病毒专杀v3.3》百度网盘资源免费下载:

链接: https://pan.baidu.com/s/10BBkMpHawrWw3OY6QVxmKw

?pwd=gsn8 提取码: gsn8

筑原CAD病毒专杀v3.3最新版是一款专门针对AutoCad病毒专杀修复及免疫的专杀工具，针对扫描结果，您可选择删除、仅扫描或放至回收站等模式，查杀效果显著，筑原CAD病毒专杀还内置了白名单和黑名单添加功能，为您预留自由选择空间，增强病毒防范的准确度，而且支持微软所有 *** 作系统，是CAD用户必备工具之一。

你好,请按以下步骤处理:

运行下面这个程序就可以看了：

(defun c:yldcl() 预览DCL命令

(if (null dcl_pt)

(setq dcl_pt '(-1 -1))

)

(setq dcl_file (getfiled "打开DCL文件" "" "DCL" 2))

(princ "DCL 文件名：")(princ dcl_file)

(setq dia_name (getstring "\nDialog 对话框名："))

(if (= dia_name "")(exit))

(setq dcl_id (load_dialog dcl_file))

(new_dialog dia_name dcl_id) 加载DCL文件

(action_tile "accept" "(setq dcl_pt (done_dialog 1))") 激活新的对话框定义

(action_tile "cancel" "done_dialog 0")

(setq dd(start_dialog)) dd值=done_dialog后的自变量值

(cond ((= dd 1) (princ "\n确定<OK>!!!"))

((= dd 0) (princ "\n取消<Cancel>!!!"))

)

(prin1)

)

如果以上无法解决.估计你在安装时候选的是典型安装或吧。建议你从新安装，选择完全安装，我觉得就应该没事了。典型安装里面的好多功能都没有，都是最基本的 *** 作。也可能我经常用，所以每次安装都选完全版的安装。基本上不会出现你这样的问题。

---