CAD多重插入引用 炸开方法(加密解密)

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《CAD多重插入引用 炸开方法(加密解密)》，欢迎阅读！



CAD多重插入引用 炸开方法（加密解密）

AutoCad 2009-09-12 13:08:21 阅读3093 评论8 字号：大中小 订阅 CAD多重插入引用 炸开方法～【亲测】 现在越来越多的人 喜欢 加密图了。

多重插入引用就是 经常会使用的图纸加密技术，永远无法解开的死锁。 方法一：

有两个好工具，可以轻松炸开。一个是AutoCAD 快速加载 AutoLISP 文件：wjjm；另一个cad加密插件，请大家使用。 具体方法：

AutoCAD 快速加载 AutoLISP 文件wjjm的使用：用cad打开需要炸开的文件，将wjjm直接拖入cad窗口，命令行输入wjmm，回车后按提示操作即可。

操作步骤：① 于CAD中，选择：“工具”菜单→“加载应用程序”选项。 ② 于对话框中选择文件“wjjm”，进行应用程序加载。

③ 于CAD命令行中，输入“wjjm”命令，然后选择需要保护的图块，随便点击即可取消保护。 方法二：

输入“CYN-”，将多重插入块转换为普通快，然后可以炸开编辑 方法三：

把以下内容保存为lsp文件（如exm.lsp）,加载后运行exm既可把“多重插入块”转换为“普通块”，然后既可用“explode”分解。加载后运行lockb可把“普通块”转换为“多重插入块” ;;------------------------------------------------------------- ;;转换“多重插入块”为“普通块”。 (DEFUN C:exm () (setvar "cmdecho" 0)

(SETQ STM (car (ENTSEL "\n点取多重块"))) (while stm

(setq e (entget stm)) (setq stlx (cdr (assoc 0 e))) (if (= stlx "INSERT") (PROGN

(setq r_zm70 (assoc 70 e)) (setq c_zm71 (assoc 71 e)) (setq r_dist_zm44 (assoc 44 e)) (setq c_dist_zm45 (assoc 45 e))

(setq e (subst (cons 44 0) r_dist_zm44 e)) (setq e (subst (cons 45 0) c_dist_zm45 e)) (setq e (subst (cons 70 0) r_zm70 e)) (setq e (subst (cons 71 0) c_zm71 e))

(setq e (subst (list 100"AcDbBlockReference") (list 100"AcDbMInsertBlock") e)) (entmake e) (entdel stm)




))

(SETQ STM (car (ENTSEL "\n点取下一多重块"))) )

(setvar "cmdecho" 1) )

;;-------------------------------------------------------------------- ;;转换“普通块”为“多重插入块” (DEFUN C:lockb () (setvar "cmdecho" 0)

(SETQ STM (car (ENTSEL "\n点取块"))) (while stm

(setq e (entget stm)) (setq stlx (cdr (assoc 0 e))) (if (= stlx "INSERT") (PROGN

(setq r_zm70 (assoc 70 e)) (setq c_zm71 (assoc 71 e))

(setq e (subst (cons 70 1) r_zm70 e)) (setq e (subst (cons 71 1) c_zm71 e))

(setq e (subst (list 100"AcDbMInsertBlock") (list 100"AcDbBlockReference") e)) (entmake e) (entdel stm) ))

(SETQ STM (car (ENTSEL "\n点取下一块"))) )

(setvar "cmdecho" 1) )

本文来源：https://www.dy1993.cn/4Rp.html