简介：这份文档面向需要处理加密 CAD 图纸的设计人员与制图学习者，聚焦多重插入引用这一常见图纸加密技术，提供可落地的炸开与解密思路。内容围绕三种解除保护的方式展开：借助 AutoLISP 文件快速加载、通过加密插件将多重插入块转为普通块，以及用自定义 lsp 脚本实现块类型互换，并穿插讲解 AutoLISP 编程、ENTSEL 与 ENTGET 取块信息、DEFUN 定义函数等知识点，帮助读者理解加密原理而非机械操作。资源包共 1 个 doc 文件，约 18KB，体积轻便，适合随用随查。目前已有 455 人学习，说明该问题在实际制图中较为普遍。读者可从中获得完整的解密脚本代码、分步操作说明与块属性修改逻辑，便于应对无法编辑的图纸并掌握二次开发基础。

1. 收到一张“炸不开”的图纸：多重插入引用到底锁住了什么

上周同事甩过来一张图纸，说双击块没反应、右键“分解”是灰的、连 X 炸都提示“无法分解”，问我是不是文件坏了。我打开一看，块属性里赫然写着“多重插入块”，行列数都是 1，缩放比例却是 0——这就是典型的 CAD 多重插入引用加密，圈里管它叫“死锁块”。它不是什么高深算法，本质是把普通块引用（INSERT）改写成多重插入块（MINSERT），再把行列间距和比例清零，让图形看起来还在、编辑入口全被堵死。这份资源就是围绕“怎么把它还原成能炸开的普通块”整理的实操文档，含现成 LISP 脚本和两种工具路径，适合经常接手外协图纸、需要二次编辑底图的从业者。下面按“先看懂结构、再动手还原、最后避坑”的顺序拆。

2. 先看懂 MINSERT 的组码：为什么普通 EXPLODE 会失效

2.1 多重插入块与普通块引用的本质差别

普通块引用在 DXF 组码里类型是INSERT，实体标记为AcDbBlockReference；多重插入块类型是MINSERT，标记为AcDbMInsertBlock，并且多出两组关键组码：组码 70 是列数、组码 71 是行数，组码 44 和 45 分别是列间距、行间距。正常阵列块行列数大于 1，图形按矩阵排布；加密做法是把 70、71 改成 1，把 44、45 改成 0，同时保留AcDbMInsertBlock这个类型标记。CAD 的 EXPLODE 命令对 MINSERT 有专门限制——它只允许在行列数有效时按阵列逻辑拆分，一旦间距为 0，内部几何退化，命令直接拒绝执行。所以你会看到“块还在、就是炸不开”，这不是文件损坏，是类型标记和参数被刻意写成了不可分解状态。

理解这一点很关键：解密的核心不是“破解密码”，而是把实体从MINSERT改回INSERT，同时把 70、71、44、45 复位。谁掌握了组码改写，谁就掌握了这类图纸的“后悔药”。下面这张表是我整理的关键组码对照，改之前先对着看一遍，心里有数。

注意组码 70、71 在普通 INSERT 里通常不出现或为 0，还原时置 0 最稳妥；44、45 在普通块里没有意义，保持 0 不影响后续炸开。真正决定能否 EXPLODE 的是类型标记和 100 子类，这两项必须成对改，只改一个会出现“实体类型与子类不匹配”的报错。

2.2 用 ENTGET 把块“解剖”出来

动手前先学会看。AutoLISP 的ENTSEL负责点选实体，ENTGET把实体数据以关联表形式取回，每个元素是(组码 . 值)的点对。下面这段是我常用的探查脚本，加载后输入cx点选块，会把类型、子类、行列数、间距全部打印到命令行，先确认它到底是不是 MINSERT，再决定用哪种还原方式。

;; 探查块实体关键组码，判断是否为多重插入块 (DEFUN C:CX ( / stm e typ sub cls row col dx dy) (setvar "cmdecho" 0) (setq stm (car (ENTSEL "\n点选要检查的块: "))) (if stm (progn (setq e (entget stm) typ (cdr (assoc 0 e)) ; 实体类型 sub (cdr (assoc 100 e)) ; 第一个子类标记 row (cdr (assoc 70 e)) ; 列数 col (cdr (assoc 71 e)) ; 行数 dx (cdr (assoc 44 e)) ; 列间距 dy (cdr (assoc 45 e))) ; 行间距 (princ (strcat "\n类型: " (if typ typ "无") " | 子类: " (if sub sub "无") " | 列x行: " (itoa (if row row 0)) "x" (itoa (if col col 0)) " | 间距: " (rtos (if dx dx 0.0) 2 3) "," (rtos (if dy dy 0.0) 2 3))) (if (and (= typ "INSERT") (member "AcDbMInsertBlock" (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 100)) e)))) (princ "\n判定: 多重插入块（加密态），可用 exm 还原") (princ "\n判定: 普通块或非加密块"))) (princ "\n未选中实体")) (setvar "cmdecho" 1) (princ))

逻辑说明：assoc按组码取值，vl-remove-if-not过滤出所有 100 子类标记再比对，因为实体可能带多个 100 项，只取第一个会漏判。itoa处理整数组码，rtos处理实数间距，避免类型不匹配报错。参数上没什么可调的，点选即可；如果命令行提示“未选中实体”，多半是点到了空白处或块被锁定图层，先解锁图层再试。这一步的价值在于：不是所有炸不开的块都是 MINSERT，有的是外部参照、有的是代理实体，盲目套脚本会翻车，先探查再动手是血泪经验。

3. 三条还原路径：从现成 LISP 到组码改写

3.1 路径一：加载现成 LISP 工具直接还原

资源里给的第一条路最省事：把wjjm这类现成 LISP 文件拖进 CAD 窗口，命令行输入对应命令，按提示点选块即可取消保护。操作上分两种加载方式，拖拽适合临时用，菜单加载适合长期用。菜单路径是“工具 → 加载应用程序”，在对话框里选中文件加载，加载成功命令行会回显函数名。这里有个细节：拖拽加载时如果 CAD 提示“安全设置阻止”，需要在选项里把受信任位置加上脚本所在目录，否则函数根本没注册，输入命令只会提示“未知命令”。

;; 命令行操作序列（示意，命令名以实际脚本为准） ;; 1. 拖入 wjjm.lsp 或通过“工具-加载应用程序”加载 ;; 2. 命令行输入注册的命令，例如： wjjm ;; 3. 按提示点选多重插入块，回车结束

这段不是代码而是操作序列，重点在顺序：先加载、再输命令、后点选。常见翻车是没加载成功就输命令，CAD 回“未知命令”，人以为脚本坏了，其实是路径没加信任。参数层面这类工具通常不需要额外设置，但要注意它可能只处理当前布局，模型空间和图纸空间要分别点选。如果图纸里块嵌套多层，外层还原后内层可能还是 MINSERT，需要重复执行直到探查脚本判定为普通块。

3.2 路径二：exm 与 lockb 双向转换脚本

资源里给的第三段 LISP 是核心，定义了两个函数：exm把多重插入块转普通块，lockb反向把普通块转多重插入块。反向函数不是摆设——你做完编辑想重新“锁”回去交付，或者测试还原效果，都用得上。下面是我整理并加了注释的版本，逻辑与原脚本一致，只补了必要的容错。

;; exm: 多重插入块 -> 普通块，还原后可 EXPLODE (DEFUN C:EXM ( / stm e typ r70 r71 r44 r45) (setvar "cmdecho" 0) (setq stm (car (ENTSEL "\n点取多重插入块: "))) (while stm (setq e (entget stm)) (if (= (cdr (assoc 0 e)) "INSERT") (progn (setq r70 (assoc 70 e) r71 (assoc 71 e) r44 (assoc 44 e) r45 (assoc 45 e)) ;; 行列数与间距复位 (if r44 (setq e (subst (cons 44 0.0) r44 e))) (if r45 (setq e (subst (cons 45 0.0) r45 e))) (if r70 (setq e (subst (cons 70 0) r70 e))) (if r71 (setq e (subst (cons 71 0) r71 e))) ;; 关键：子类标记改回普通块引用 (setq e (subst (list 100 "AcDbBlockReference") (list 100 "AcDbMInsertBlock") e)) (entmake e) ; 用改后的数据重建实体 (entdel stm))) ; 删除原实体 (setq stm (car (ENTSEL "\n点取下一多重插入块（回车结束）: ")))) (setvar "cmdecho" 1) (princ))

逻辑说明：subst是关联表替换，把旧点对换成新点对；entmake用修改后的数据新建实体，entdel删掉原实体，一建一删完成“原地替换”。参数上 44、45 强制写 0.0 而不是整数 0，因为间距组码是实数类型，写整数在某些版本会报“参数类型错误”。while循环支持连续点选，适合一张图里多个加密块批量处理。反向的lockb把 70、71 置 1、100 改成AcDbMInsertBlock即可，注意它不恢复间距，所以锁回去的块行列间距仍是 0，这正是加密态的特征。

提示：entmake重建实体后，原实体的句柄会变，如果有程序按句柄引用该块，需要重新获取。批量处理前先备份原图，这是不可省略的一步。

3.3 路径三：插件命令 CYN- 的适用边界

资源里提到的第二条路是输入CYN-把多重插入块转普通块，属于第三方加密插件的配套命令。这类插件通常把转换、批量处理、图层整理打包在一起，适合图纸量大、需要流水线作业的场景。但它有明确边界：命令名和加载方式依赖插件本身，换一台没装插件的机器就用不了；部分插件对 CAD 版本有要求，老版本能加载、新版本可能报“不兼容的 ARX 文件”。我的建议是把它当“批量加速器”而不是“唯一方案”，单张图用 LISP 更快，成批处理再上插件。判断标准很简单：先拿一张图用exm试，能还原就说明是标准 MINSERT；如果exm报错而插件能处理，那多半是插件私有格式，这时候别硬套脚本，按插件流程走。

4. 避坑与排查：五条踩过的坑

4.1 现象：脚本加载成功但输入命令提示“未知命令”

原因通常是文件没真正加载——拖拽时 CAD 安全设置拦截，或菜单加载时选错了文件类型（把.txt当.lsp加载）。解决：先在“工具 → 加载应用程序”里确认文件出现在已加载列表，再输命令；仍不行就检查文件扩展名是否被系统隐藏成.lsp.txt，用记事本另存为时选“所有文件”并手动补.lsp。

4.2 现象：exm 执行后块还在，但 EXPLODE 仍提示无法分解

原因多半是只改了 70、71 没改 100 子类，或者图纸里块是嵌套的——外层还原了，内层还是 MINSERT。解决：用第 2 章的探查脚本再点一次，看子类标记是否已是AcDbBlockReference；若是嵌套，对内层块重复执行exm，直到探查判定为普通块。还有一种少见情况是块被设为“不可分解”，组码 280 为 1，需要在块定义里取消“允许分解”勾选。

4.3 现象：还原后图形位置偏移或缩放异常

原因是原加密块带有非单位缩放或旋转，entmake重建时如果只替换了部分组码，变换矩阵没跟着走。解决：还原前先用探查脚本记录组码 41、42、43（XYZ 缩放）和 50（旋转角），重建后核对；更稳妥的做法是还原后立即用AUDIT修复图形数据库，再对比原图关键点坐标。批量处理时建议先在一张图上验证坐标，再全量跑。

4.4 现象：批量循环时 CAD 卡死或提示“实体正在使用”

原因是entdel删除实体时该实体仍被选择集或程序引用，或者循环里没有及时释放。解决：循环体内避免持有选择集，点选用ENTSEL单次获取；卡死时按 Esc 中断，用(gc)触发一次垃圾回收再继续。图纸特别大时把cmdecho关掉能明显提速，这也是脚本里开头就setvar "cmdecho" 0的原因。

4.5 现象：lockb 锁回去后对方仍能炸开

原因是只改了类型标记没把行列数置 1、间距置 0，或者没改 100 子类，CAD 判定为“伪 MINSERT”，EXPLODE 照样能拆。解决：锁回操作必须四件套齐全——70 置 1、71 置 1、44 置 0、45 置 0、100 改AcDbMInsertBlock，缺一项都不算真正加密。锁完用探查脚本自检一遍，确认判定为“多重插入块（加密态）”再交付。

5. 进阶：把还原脚本改成可批量、可回滚的版本

单张图点选够用，但外协图纸一来就是十几张，逐张点选效率太低。我的做法是把exm的核心逻辑抽成子函数，外层遍历模型空间所有实体，遇到 MINSERT 就还原，同时把每次操作的句柄和原组码写进日志文件，出问题能回滚。下面这段是批量版骨架，关键在“先收集、再处理、后记录”，避免边遍历边删导致选择集失效。

;; 批量还原模型空间内所有多重插入块，并写日志 (DEFUN C:EXMALL ( / ss i ent e logf h old) (setvar "cmdecho" 0) (setq ss (ssget "X" '((0 . "INSERT")))) ; 全选块引用 (setq logf (open "C:/temp/exm_log.txt" "w")) (if ss (progn (setq i 0) (while (< i (sslength ss)) (setq ent (ssname ss i) e (entget ent)) ;; 仅处理带 MInsertBlock 子类的实体 (if (member "AcDbMInsertBlock" (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 100)) e))) (progn (setq h (cdr (assoc 5 e))) ; 记录原句柄 (setq old (list (assoc 70 e) (assoc 71 e) (assoc 44 e) (assoc 45 e))) (write-line (strcat "HANDLE=" h " OLD=" (vl-prin1-to-string old)) logf) ;; 复用单块还原逻辑 (setq e (subst (list 100 "AcDbBlockReference") (list 100 "AcDbMInsertBlock") e)) (if (assoc 44 e) (setq e (subst (cons 44 0.0) (assoc 44 e) e))) (if (assoc 45 e) (setq e (subst (cons 45 0.0) (assoc 45 e) e))) (if (assoc 70 e) (setq e (subst (cons 70 0) (assoc 70 e) e))) (if (assoc 71 e) (setq e (subst (cons 71 0) (assoc 71 e) e))) (entmake e) (entdel ent))) (setq i (1+ i))))) (if logf (close logf)) (setvar "cmdecho" 1) (princ (strcat "\n批量还原完成，日志: C:/temp/exm_log.txt")))

逻辑说明：ssget "X"按过滤条件全选，sslength取数量，ssname按索引取实体，这是遍历选择集的标准写法。日志里记句柄和原组码，回滚时按句柄找实体、按原组码重建即可。参数上日志路径写死C:/temp/，实际用之前先确认目录存在，否则open返回 nil、后续write-line报错。批量跑之前务必在副本上验证，我一般会先跑一张、用AUDIT检查、对比关键尺寸，确认无误再全量。

验证方法也补一个：还原后用(ssget "X" '((0 . "INSERT")))再扫一遍，如果探查脚本对每个块都判定为普通块，说明批量还原干净；再随机抽几个块EXPLODE，能拆出图元就说明类型标记和子类都对了。这套“批量 + 日志 + 自检”的组合，比单张点选稳得多，尤其适合一次处理几十张外协图的场景。

从那以后我每次接手加密图纸，都强制先跑一遍探查脚本、再备份、最后才动还原，宁可多花两分钟确认，也不愿在交付前夜对着炸不开的块干瞪眼。希望帮到你。

本文还有配套的精品资源，点击获取