简介这份文档面向需要处理加密 CAD 图纸的设计人员与制图学习者聚焦多重插入引用这一常见图纸加密技术提供可落地的炸开与解密思路。内容围绕三种解除保护的方式展开借助 AutoLISP 文件快速加载、通过加密插件命令转换块类型以及自行编写 lsp 脚本完成多重插入块与普通块之间的双向转换并穿插讲解 AutoLISP 编程基础、ENTSEL 与 ENTGET 取块信息、DEFUN 自定义函数等知识点帮助读者理解加密原理而非机械套用。资源包共 1 个 doc 文件约 18KB篇幅精炼、便于随查随用。目前已有 455 人学习适合希望掌握图纸解密与块编辑技巧、提升 CAD 实操能力的读者参考。1. 图纸被锁死那一刻我才想起这份老文档接手一套外部协作图纸打开一看图块能选中、能移动就是炸不开属性面板里显示的是“多重插入块”。这不是图纸坏了而是被人用多重插入引用MInsertBlock做了保护——一个块引用被塞进了行列阵列参数AutoCAD 的常规 explode 命令对它直接失效。很多做施工图、竣工图交付的人都会遇到这个场景对方只给你看不给你改图纸就成了一个黑匣子。这份文档记录的就是拆这种锁的几种办法用现成的 AutoLISP 小工具一键转换或者自己写一段 lsp把多重插入块还原成普通块再分解。它适合两类人一类是手上有加密图纸、需要恢复编辑能力的制图与深化设计人员另一类是懂一点 AutoLISP、想搞清楚块引用数据结构到底怎么被改动的开发者。下面我按“先看清它是什么、再跑起来、最后能改”的顺序把这份文档里的方法拆开讲。2. 多重插入引用的本质块引用被改了哪几个组码2.1 普通块和多重插入块在数据层面的差别要炸开先得知道锁在哪。AutoCAD 里每个图元都是一张关联表association listentget取出来就是一堆(组码 . 值)的配对。普通块引用的类型标识是INSERT实体类型名写在组码 100 里值为AcDbBlockReference。而多重插入块的类型标识同样是INSERT但 100 组码的值变成了AcDbMInsertBlock同时多了两个关键组码70 是列数71 是行数44 是列间距45 是行间距。也就是说加密方并没有真的“加密”图形数据而是把块引用改造成了阵列形式并让 explode 命令拒绝处理这种类型。文档里那段 lsp 的核心思路非常直接把 70、71 改回 0把 44、45 的间距清零把 100 组码从AcDbMInsertBlock换回AcDbBlockReference然后用entmake重建图元、entdel删掉原图元。改完之后它在 AutoCAD 眼里就是一个普通块引用了explode 自然可用。这里有个容易忽略的点为什么不能直接改完原图元就完事因为 AutoCAD 对已存在图元的类型标识100 组码修改是有限制的直接 subst 后 entmod 往往不生效所以文档里的写法是“重建 删除”这是老版本 CAD 上比较稳的路子。2.2 三个方法各自的适用边界文档给了三条路实际用起来差别不小我按可靠性排一下方法触发方式依赖适用场景方法一拖入 wjjm 文件命令行输入 wjjm外部 lsp 工具文件手头有工具、想最快出结果方法二命令行输入 CYN-已安装的加密插件插件环境已就绪的批量作业方法三加载自写 exm.lsp运行 exm无外部依赖纯代码想理解原理、需要自己改逻辑方法一和方法二本质上是别人封装好的命令你只需要会加载、会敲命令方法三才是这份文档真正的技术含量所在因为它把转换逻辑完整摊开了而且顺带给了反向的lockb命令——能把普通块再变回多重插入块。这个反向能力在二次开发里很有用比如你要做图纸保护演示、或者测试自己的解密流程是否可逆。提示方法一里文档同时出现了wjjm和wjmm两种输入写法这是原文的笔误实际以加载后的命令定义为准敲之前先在命令行看提示。3. 把 exm.lsp 跑起来从加载到炸开的完整操作3.1 环境准备与文件加载这份代码面向的是 AutoCAD 的 AutoLISP 解释器2009 年前后的版本就能跑后续版本基本兼容。不需要额外装编译器把代码存成纯文本、扩展名改成.lsp即可。加载方式有两种菜单里“工具 → 加载应用程序”选中文件加载或者直接在命令行敲(load 路径/exm.lsp)。后者在调试时更顺手因为路径写错会立刻报错而不是在对话框里点半天。加载成功后命令行不会有明显反馈这是正常的——DEFUN只是注册了函数没执行。你可以敲exm回车如果提示“点取多重块”说明函数已经挂上了。这一步翻车的常见原因是文件编码用某些编辑器存成 UTF-8 带 BOM老版本 CAD 读进去第一行就报错建议存 ANSI 或纯 ASCII。3.2 核心转换函数逐段拆解下面这段是文档里exm命令的整理版我补了注释逻辑和原文一致(DEFUN C:exm () (setvar cmdecho 0) ; 关闭命令回显避免刷屏 (SETQ STM (car (ENTSEL \n点取多重块))) ; 选一个图元取实体名 (while stm ; 循环处理直到用户空选 (setq e (entget stm)) ; 取出图元的关联表 (setq stlx (cdr (assoc 0 e))) ; 读组码0判断是不是 INSERT (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都是在这张表里按组码找配对。四个subst是替换操作subst的签名是(subst 新项 旧项 表)它把表里和旧项相等的那一项换成新项所以必须先assoc把旧项取出来当锚点。entmake是重建它接受一张完整的关联表在图形数据库里生成新图元entdel删除旧图元。这一对组合是整段代码的关键也是为什么不能只entmod的原因。最后的while让命令可以连续处理多个块按 Esc 或空选退出。3.3 反向命令 lockb 与验证方式文档里还给了lockb逻辑是exm的镜像把 70、71 置 1100 组码换成AcDbMInsertBlock。它的用途是把你改好的普通块重新“锁”回去方便做对照测试。验证是否成功最直接的办法是转换后选中图元看属性面板——类型从“多重插入块”变回“块参照”然后敲explode能炸开、能看到内部图元就说明通了。如果炸开后发现图形位置偏移多半是原图本身带了非零的 44、45 间距清零后阵列展开的基准变了。这种情况不要慌转换前先记下原间距值必要时用move校正或者干脆在exm里保留间距、只改类型标识试试——不同加密工具的做法不完全一样得按实际图纸调。4. 避坑与排查转换过程中最容易翻车的几处4.1 现象加载成功但命令无效原因通常是函数名大小写或前缀问题。AutoLISP 里C:exm定义的是命令行命令exm如果你把代码里的C:删了函数就只能用(exm)这种带括号的形式调用直接敲exm会提示未知命令。解决方法是保留C:前缀或者改用括号调用。另外确认加载的是改过编码的那份文件别加载了旧缓存。4.2 现象entmake 返回 nil图元没生成这是最常见的失败。entmake对关联表的完整性要求很高缺组码、组码顺序乱、或者 100 组码的子类标记不匹配都会静默返回 nil。排查办法是在entmake前加一句(print e)把表打出来看结构重点检查 100 组码是不是紧跟在 0 组码之后、2 组码块名是否还在。如果原图元是匿名块或动态块重建时块名可能失效需要先确认块定义还在。4.3 现象转换后图元消失或跑到原点原因多半是entdel执行了但entmake没成功等于删了没建。也可能是坐标系问题entget取出的 10 组码是插入点如果原图在 UCS 下操作重建后可能落到 WCS 原点附近。解决方法是先在小样本图上试确认entmake返回值非 nil 再批量跑批量前务必备份原图这类操作没有后悔药。4.4 现象部分块能转、部分块报错不同加密工具产出的多重插入块组码组合不完全一样。有的只改 70、71 不改 100有的把 44、45 设成极小值而非零。硬套一套替换逻辑就会在个别块上失败。稳妥做法是把subst改成条件判断先assoc看组码在不在在才替换不在就跳过。这样代码容错性会好很多也不至于因为一个块失败中断整个while循环。注意任何批量转换前先把原图另存一份。这类脚本直接操作图形数据库出错时原图元已被entdel没有撤销余地。5. 二次开发把一次性脚本改成可复用的图纸处理工具跑通一次不算本事能把它变成日常可复用的工具才有价值。我一般会做三件事。第一把exm从“手动点选”改成“框选批量”用ssget配合过滤条件(0 . INSERT)一次性拿到所有块引用再在循环里判断 100 组码是否为AcDbMInsertBlock是才转换。这样处理几十张图时不用一个个点。;; 批量版框选区域内所有多重插入块并转换 (DEFUN C:exmall (/ ss i ent ed) (setvar cmdecho 0) (setq ss (ssget ((0 . INSERT)))) ; 只选块引用 (if ss (progn (setq i 0) (while ( i (sslength ss)) (setq ent (ssname ss i)) (setq ed (entget ent)) ;; 只处理类型名为 MInsertBlock 的 (if (member (list 100 AcDbMInsertBlock) ed) (progn (setq ed (subst (cons 70 0) (assoc 70 ed) ed)) (setq ed (subst (cons 71 0) (assoc 71 ed) ed)) (setq ed (subst (list 100 AcDbBlockReference) (list 100 AcDbMInsertBlock) ed)) (if (entmake ed) (entdel ent)) ; 建成功才删旧的 ) ) (setq i (1 i)) ) ) ) (setvar cmdecho 1) (princ) )这段的关键改动是ssget过滤和member判断前者把选择范围收窄到块引用后者确保只动真正的多重插入块普通块原样保留。entmake外面套了if建失败就不删避免丢图元。第二把转换结果做成可核对的日志每处理一个块把块名、原行列数、转换结果写到一个文本文件里出问题时能回溯是哪个块没转成功。第三如果团队里多人用把 lsp 放到支持文件搜索路径下用acaddoc.lsp自动加载省得每次手动拖。验证方法我习惯用“三步对照”转换前截图记录图元数量和位置转换后统计块引用数量是否一致再随机抽几个块炸开看内部图元是否完整。三步都过才敢往正式图纸上套。说个血泪教训早期我图省事直接在客户交付图上跑批量脚本没先备份结果有个动态块重建失败被删了只能让对方重新发图。从那以后我每次跑这类脚本都强制先另存一份、再在小样本上验证entmake返回值确认无误才放开批量。希望这份拆解能帮你少走一遍我踩过的路。本文还有配套的精品资源点击获取