简介这份文档面向需要处理加密 CAD 图纸的设计人员与制图从业者聚焦多重插入引用这一常见图纸加密技术提供可落地的炸开与解密思路。内容围绕 AutoLISP 脚本展开涵盖通过加载 wjjm 文件、使用加密插件命令以及自定义 lsp 程序等途径将多重插入块还原为可编辑的普通块并附有 exm 与 lockb 两个函数的完整代码便于读者理解 ENTSEL、ENTGET、DEFUN 等命令在块转换中的实际用法。资源包共 1 个 doc 文件约 18KB体积轻便适合随用随查。目前已有 455 人学习说明该问题在图纸协作场景中具有一定普遍性。读者可从中获得加密图纸的解锁路径、脚本源码及反向加锁方法既能解决实际打开与编辑受阻的问题也能借此熟悉 AutoLISP 自动化操作的基本套路为后续处理类似加密图纸积累可复用的经验。1. 图纸被锁死那天我才搞懂多重插入引用是什么前阵子帮一个做幕墙深化的朋友看图纸他发来一个 dwg说打开能看到、能打印就是死活选不中里面的东西右键一看属性写着“多重插入块”explode 敲了十几遍命令行只回一句“无法分解”。这就是典型的 CAD 多重插入引用加密——用 MINSERT 把图块做成行列阵列再配合不可分解属性把图形“焊”成一个整体看起来是图纸实际上是一块铁板。这份资源就是围绕“怎么把它炸开”整理的实操笔记核心是三套办法加载现成的 AutoLISP 工具、用插件命令转换、以及自己写 lsp 脚本改实体组码。适合手里攥着别人给的加密图、需要二次编辑的绘图员和做图纸交付的开发者也适合想搞明白 MINSERT 底层结构的人。2. 多重插入引用的实体结构为什么 explode 对它无效2.1 MINSERT 本质是 INSERT 加阵列参数要炸开先得知道它是什么。普通图块在 DXF 里是INSERT实体而多重插入引用是MINSERT它继承 INSERT 的全部组码额外多了两个关键组码组码 70 是列数组码 71 是行数组码 44 和 45 分别是列间距和行间距。也就是说一个 MINSERT 实体描述的是一整片按行列排布的图块阵列而不是单个块参照。AutoCAD 对 MINSERT 的限制很硬它不允许被 EXPLODE 分解也不允许被 TRIM、EXTEND 这类编辑命令直接作用。这不是 bug是设计上的约束——阵列块一旦允许分解行列关系就失去了意义。所以你在命令行敲 explode它只会告诉你无法分解连个像样的错误码都不给很多人到这一步就以为图废了。提示判断一个块是不是 MINSERT最直接的办法是选中后看特性面板如果“几何图形”里出现列数、行数、列间距、行间距四项基本可以确认。2.2 组码层面的“解密”思路既然 MINSERT 只是 INSERT 的一种特殊形态那“解密”的思路就很清楚了把实体数据里的 MINSERT 标记改回普通 INSERT同时把阵列参数清零。具体要动四个地方组码含义MINSERT 值转换后值70列数≥1 的整数0 或 171行数≥1 的整数0 或 144列间距实际间距045行间距实际间距0100子类标记AcDbMInsertBlockAcDbBlockReference最后一项容易被忽略。DXF 里实体类型除了组码 0 的INSERT还有一个组码 100 的子类标记MINSERT 的子类标记是AcDbMInsertBlock普通块是AcDbBlockReference。只改组码 0 不改子类标记entmake 重建实体时会报错或者生成一个畸形实体。这是很多人抄脚本抄翻车的地方。2.3 为什么不能直接改原实体AutoLISP 里改实体有两种路子一种是entmod直接修改现有实体另一种是entmake新建实体再删掉旧的。对 MINSERT 来说entmod这条路走不通——AutoCAD 不允许通过 entmod 把 MINSERT 的子类标记改成 BlockReference会直接拒绝。所以脚本里用的都是“取出实体数据 → 改组码 → entmake 重建 → entdel 删旧”这套流程。理解了这一点后面看代码就不会觉得绕。3. 三套炸开方案落地从拖拽加载到自写脚本3.1 方案一wjjm 工具拖拽加载这是最省事的一条路适合不想碰代码的人。操作流程在原文里写得很清楚我按实际使用习惯重新捋一遍用 CAD 打开需要处理的 dwg 文件确认图纸已经完整显示把wjjm文件直接拖进 CAD 绘图窗口注意是拖到绘图区不是拖到命令行如果弹出安全警告选择“加载”命令行输入wjjm回车按提示点选需要解除保护的多重插入块点完一个继续点下一个全部处理完按回车或 Esc 退出。也可以用菜单方式加载工具菜单 → 加载应用程序 → 选择 wjjm 文件 → 加载。两种方式效果一样拖拽快但偶尔会被安全策略拦菜单方式稳一点。注意原文里命令行输入写的是wjmm而加载后的命令名是wjjm这是原文的笔误。实际以加载后命令行提示的命令名为准输入错了只会提示“未知命令”。3.2 方案二插件命令 CYN- 转换第二条路是装一个 CAD 加密插件加载后在命令行输入CYN-它会把选中的多重插入块直接转成普通块之后就能正常 explode 了。这条路的优点是批量处理快缺点是依赖插件本身插件版本和 CAD 版本不匹配时会加载失败。我一般会先确认插件支持的 CAD 版本范围再决定用不用。如果图纸量不大方案一或方案三更可控如果是几十张图批量处理插件确实省时间。原文没有给出插件的具体名称和版本这里也不替它编拿到资源后看插件目录里的说明文件即可。3.3 方案三自写 lsp 脚本exm 与 lockb 双向转换这是最有嚼头的一条路也是这份资源真正的技术核心。原文给了一段完整的 AutoLISP 代码定义了两个命令exm把多重插入块转成普通块lockb把普通块转回多重插入块。后者相当于“后悔药”改坏了能还原。先看转换方向的核心逻辑我把原文代码整理成可读版本;; 将多重插入块转换为普通块 (DEFUN C:exm () (setvar cmdecho 0) ; 关闭命令回显避免刷屏 (SETQ STM (car (ENTSEL \n点取多重块))) ; 选择一个实体 (while STM ; 循环处理直到用户取消选择 (setq e (entget STM)) ; 取出实体数据表 (setq stlx (cdr (assoc 0 e))) ; 取组码 0判断实体类型 (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) ; 恢复命令回显 )逐段说明关键点。ENTSEL返回的是一个表第一个元素是实体名第二个是点选位置所以用car取实体名。entget拿到的是关联表每个元素形如(组码 . 值)assoc按组码查找cdr取值。subst是替换函数把旧元素换成新元素注意参数顺序是“新值、旧值、表”写反了不报错但改不动这是新手最容易踩的坑。entmake用修改后的数据表重建实体成功返回实体名失败返回 nil。如果子类标记没改对这一步会静默失败图纸上什么都没发生很容易误以为脚本没加载。entdel删除原实体必须在 entmake 成功之后执行否则原图没了新图也没建出来数据就丢了。反向的lockb逻辑对称把组码 70、71 置 1子类标记改回AcDbMInsertBlock其余不变;; 将普通块转换为多重插入块还原用 (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)) ; 列数置 1 (setq e (subst (cons 71 1) c_zm71 e)) ; 行数置 1 (setq e (subst (list 100 AcDbMInsertBlock) (list 100 AcDbBlockReference) e)) (entmake e) (entdel STM) ) ) (SETQ STM (car (ENTSEL \n点取下一块))) ) (setvar cmdecho 1) )保存成exm.lsp用APPLOAD加载命令行输入exm就能用。原文里代码的括号是全角字符直接复制会报“语法错误”必须手动替换成半角括号这是血泪经验我第一次用的时候卡了半小时才发现是括号问题。3.4 加载与验证的完整步骤把脚本跑起来按这个顺序走新建文本文件把代码粘进去确认所有括号都是半角另存为exm.lsp编码选 ANSI 或 UTF-8 无 BOM带 BOM 的 UTF-8 在部分 CAD 版本里会读成乱码CAD 命令行输入APPLOAD选中文件加载加载成功命令行会回显函数名输入exm回车点选目标块转换后选中该块看特性面板里列数、行数是否消失消失即成功再敲explode能分解就说明彻底通了。如果第 5 步列数还在说明 entmake 失败了回头检查子类标记那一行有没有写对。如果 explode 提示“无法分解”但特性面板已经正常可能是块定义本身被设了不可分解属性那是另一层加密需要改块定义而不是块参照。4. 避坑与排查那些让脚本“看起来没反应”的细节4.1 现象脚本加载成功输入命令提示未知命令原因通常是文件没真正加载或者函数定义时括号不配对导致 DEFUN 没执行完。CAD 的 APPLOAD 对语法错误很宽容加载时不一定报错但函数根本没注册。解决办法加载后先在命令行输入(C:exm)试一下如果提示无此函数说明定义失败。用文本编辑器打开 lsp 文件从头数括号或者用支持括号匹配的编辑器如 Notepad检查。全角括号、中文引号、中文分号都是常见元凶。4.2 现象点选后图纸没变化命令行也没报错这是 entmake 静默失败。最常见的原因是子类标记没改或者组码 100 在数据表里出现了多次。MINSERT 实体的数据表里可能同时有AcDbEntity和AcDbMInsertBlock两个 100 组码subst只替换第一个匹配项如果顺序不对就改错了地方。解决办法在 entmake 之前加一句(print e)把数据表打出来看 100 组码的实际内容和顺序确认替换的是AcDbMInsertBlock那一个。调试完记得删掉这句不然每点一次刷一屏。4.3 现象转换成功但图形位置偏移原因出在组码 44、45 清零这一步。如果原 MINSERT 的阵列参数里带有非零间距清零后实体的插入点基准会变图形看起来“跳”了一下。严格说这不是错误因为普通块本来就没有阵列间距但视觉上会让人以为改坏了。解决办法转换前先记下原插入点坐标转换后用MOVE命令对齐或者干脆接受偏移因为后续编辑本来就要重新定位。批量处理时建议先在一张备份图上试确认偏移规律再上正式图。4.4 现象lockb 还原后 explode 又失效这是预期行为不是 bug。lockb 的目的就是把普通块重新变成不可分解的 MINSERT还原后当然不能 explode。如果还原后还想编辑再跑一次 exm 即可。两个命令互为逆操作来回切换不会损坏图形但每次切换都会重建实体实体句柄会变依赖句柄的二次开发逻辑要注意这一点。4.5 现象处理大图纸时 CAD 卡死MINSERT 阵列可能包含成百上千个块实例entget 取出的数据表不大但 entmake 重建时 CAD 要重新计算阵列展开后的显示图纸复杂时会卡。这不是脚本的问题是 CAD 渲染的问题。解决办法处理前关闭不必要的图层用REGEN前先ZOOM到局部批量处理时每处理十个块按一次 Esc 让 CAD 喘口气。如果图纸实在太大分图层分批处理比一次性全选稳妥。5. 二次开发改造把一次性脚本做成可复用的图纸处理工具原文给的脚本是“点一个转一个”的交互式工具够用但不够快。真正做图纸交付的人手里往往是一批文件这时候就该往自动化方向改。我一般会做三件事。第一件是加批量选择。把ENTSEL换成SSGET用框选或全选过滤出所有 INSERT 实体循环处理省去一个个点的功夫;; 批量转换框选范围内所有多重插入块 (DEFUN C:exmall () (setvar cmdecho 0) (setq ss (ssget ((0 . INSERT)))) ; 只选块参照 (if ss (progn (setq i 0) (while ( i (sslength ss)) (setq stm (ssname ss i)) (setq e (entget stm)) ;; 只处理带 MInsertBlock 子类标记的实体 (if (assoc 100 (cdr (member (assoc 100 e) e))) (progn (setq e (subst (cons 44 0) (assoc 44 e) e)) (setq e (subst (cons 45 0) (assoc 45 e) e)) (setq e (subst (cons 70 0) (assoc 70 e) e)) (setq e (subst (cons 71 0) (assoc 71 e) e)) (setq e (subst (list 100 AcDbBlockReference) (list 100 AcDbMInsertBlock) e)) (if (entmake e) (entdel stm)) ; 重建成功才删旧实体 ) ) (setq i (1 i)) ) ) ) (setvar cmdecho 1) )这里的关键改动是ssget的过滤条件和entmake的返回值判断。ssget用(0 . INSERT)只选块参照避免误选直线、文字。entmake返回 nil 时不删原实体保证失败可回退这是批量处理必须加的保护否则一张图处理到一半崩了前面的块全没了。第二件是加日志。批量处理最怕“不知道哪张图没处理成功”我习惯在循环里把每个实体的句柄和 entmake 结果写到一个临时文本里处理完对一遍数量。AutoLISP 写文件用open、write-line、close三件套几行代码的事但排查时能省大量时间。第三件是版本适配。不同 CAD 版本对 entmake 的宽容度不一样老版本对子类标记顺序更敏感。我的做法是把组码替换逻辑抽成一个独立函数主流程只调用换版本时只改这一个函数。改造后的结构大致是这样函数职责改造点C:exm单个转换保留作为调试入口C:exmall批量转换新增SSGET 驱动my:fix-minsert组码替换抽离版本适配只改这里my:log写日志新增记录句柄与结果验证方法也简单拿一张已知含 MINSERT 的测试图先跑单个命令确认逻辑对再跑批量命令确认数量对最后用AUDIT检查图纸完整性。三步都过才敢往正式图上用。说个教训。我最早图省事直接在原图上跑批量脚本没做备份结果有一版脚本的entdel写在了entmake前面一张三十多个块的图跑完只剩空图层块全没了。从那以后我每次跑批量转换前都强制先SAVEAS一份带_bak后缀的副本脚本里也一律先判断 entmake 返回值再删旧实体。图纸这东西没有后悔药多一步备份比什么都强。希望帮到你。本文还有配套的精品资源点击获取