CAD 加密解密多重插入引用 炸开方法AutoCad 2025—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）)
