企业官网建设流程全解析

简介：《CAD多重插入引用-炸开方法(加密解密)》是一份面向CAD绘图人员、图纸接收方及需要处理加密图纸的技术人员的小型文档，聚焦多重插入引用造成的无法编辑、无法分解问题，整理可操作的解密与炸开思路。包内共1个doc文档，压缩包约18KB，篇幅精简，适合作为随查随用的方法备忘。文档围绕多种处理路径展开：既介绍借助AutoLISP脚本与CAD加密插件将多重插入块转换为普通块的操作方式，也给出用LISP代码实现转换的思路，并延伸到AutoLISP编程、ENTSEL与ENTGET取块信息、DEFUN定义函数等知识点；其中exm与lockb分别对应多重插入块与普通块的双向转换，便于读者理解加密与解密的实现逻辑。内容还帮助读者按块类型选择合适路径，理解脚本加载、命令调用到块转换的基本流程。目前已有457人学习，适合需要快速排查加密图纸、补充LISP处理思路的初中级CAD用户参考。

1. 为什么 EXPLODE 按下去没反应：多重插入引用的本质

接手外部图纸做翻模，经常遇到这种场面：块能选中、能移动、能缩放，属性面板里块名写得明明白白，可右键“分解”是灰的，命令行敲 EXPLODE 回车，只回一句“无法分解”。换机器、换版本、重启软件都一个样，很多人第一反应是文件坏了，其实这是被做成了多重插入引用，也就是 CAD 里最省事的一种图纸锁。

MINSERT 在 DXF 里的 0 组码照样写 INSERT，真正的区别是子类标记从 AcDbBlockReference 换成了 AcDbMInsertBlock，再挂上行数、列数、行距、列距四个组码。CAD 内核的分解命令碰到这个标记直接拒绝执行，于是它成了不需要任何第三方组件就能实现的“加密”。流传很广的那几个 AutoLISP 小脚本（exm、lockb 这类）干的就是把标记换回去、顺手把四个阵列组码清零，让实体退化成普通块参照再炸。

这套办法适合经常接外部图纸、要做翻模、算量、二次深化的人。它解决的是“标记”这一层，图纸里要是还叠了代理对象、外部参照或者嵌套块，脚本一样白给，后面几章会把边界一条条摊开。

2. 先看清敌人：MINSERT 在 DXF 组码里长什么样

动手改之前得先会看。AutoLISP 改块本质上是在改实体的关联表，你对着一张表瞎 subst，改错一个组码，块就可能原地消失或者跑到坐标原点去。所以先把普通块和多插入块的表结构差异摸清楚，后面每一行代码才知道在动什么。

2.1 INSERT 与 MINSERT 的组码差异

用一个对照表把关键组码列出来，左边是普通块参照，右边是被锁过的块。注意 0 组码完全一样，光看实体类型是分不出来的。

最容易翻车的地方在于判定依据。很多人以为 70、71 大于 1 才是多重插入，实际上加密工具普遍把 70 和 71 都设成 1，屏幕上看起来就是一个孤零零的块，缩放、旋转、阵列全都看不出来，但分解照样被拒。判定只能认 100 子类标记，这是血泪经验，别信数值。

另一个细节是 44 和 45 允许为 0。间距为 0 的时候多个副本完全重叠在一起，你看到的是一个块，实际上图里躺着好几个，炸开之后会“凭空”多出东西，这种图纸最容易让人怀疑人生。

2.2 用 ENTGET 把一块的体检报告打出来

先把表完整读出来看。下面这段不依赖任何插件，粘进命令行或者存成 lsp 都能跑。

;; 打印选中对象的完整 DXF 关联表 (defun c:dxdump ( / e ) (setvar "cmdecho" 0) (setq e (car (entsel "\n选一个块: "))) (if e (progn (foreach x (entget e) (print x) ; 逐条打印 (组码 . 值) ) (princ "\n---- 表尾 ----") ) (princ "\n没选中对象") ) (setvar "cmdecho" 1) (princ) )

entsel返回的是一个只含一个元素的表，外面必须套car才能拿到实体名，这一点和ssget取首元素是同一个套路。entget拿到的是完整关联表，foreach挨个print，命令行里就能看到(100 . "AcDbMInsertBlock")这一行有没有。

这里有个很隐蔽的坑：entget返回的表里100子类标记会出现不止一次，普通块通常是(100 . "AcDbEntity")加(100 . "AcDbBlockReference")两条。如果你用(assoc 100 e)去判断，它只会返回表里第一条，也就是AcDbEntity，于是所有块都被判成“不是多重插入”。正确写法是用member做整表查找：

;; 判定当前对象是不是多重插入引用 (defun c:what ( / e d typ ) (setvar "cmdecho" 0) (setq e (car (entsel "\n选对象: "))) (if e (progn (setq d (entget e)) (setq typ (cdr (assoc 0 d))) (cond ((= typ "INSERT") (if (member '(100 . "AcDbMInsertBlock") d) (princ "\n判定结果: 多重插入引用 MINSERT，需要还原") (princ "\n判定结果: 普通块参照，可以直接 EXPLODE") ) ) ((= typ "ACAD_PROXY_ENTITY") (princ "\n判定结果: 代理实体，改组码没用") ) (T (princ (strcat "\n判定结果: 其他类型 " typ))) ) ) ) (setvar "cmdecho" 1) (princ) )

member判断的是整条点对在表里存不存在，不受出现次序影响，这是判定的标准写法。顺带把ACAD_PROXY_ENTITY也拦下来，因为这类实体是原厂自定义对象留下的壳，组码里根本没有块参照那一套，subst 改完 entmake 会直接返回 nil。

2.3 加密、代理对象、外部参照，三条路要分清

选中对象之后先看 0 组码，这一步能省掉大量无用功。0 组码是 INSERT 且带 AcDbMInsertBlock，属于本章讨论的范围，改标记就能解决。0 组码是 INSERT 但不带这个标记，那它本来就是普通块，炸不开的原因通常是块被设成了“不可分解”，进块编辑器把“允许分解”勾上就行，和加密没关系。

0 组码是 ACAD_PROXY_ENTITY 或者块名里带一串星号加字母的匿名块，说明图纸里塞了自定义对象，这类东西必须要有对应的应用程序才能还原成基本图元，脚本层面基本无解。还有一种情况是 0 组码为 INSERT、块名带路径，“特性”面板里显示为外部参照，这种也不在多重插入的范畴，得先绑定再处理。

我一般会养成一个习惯：拿到不认识的图纸，先跑一遍判定函数，把可疑对象挨个点一遍，心里有数了再决定用哪种手段。这一步花三十秒，能避免后面半小时的瞎折腾。

3. 把 MINSERT 打回普通块：exm 脚本逐行拆解

网上流传的版本里，全角括号、中文引号、被论坛排版吃掉的换行到处都是，直接复制多半报 malformed list。下面这份是把原始脚本整理成可运行状态后的版本，逻辑没有改动，只补了判空和失败保护，因为原版在没选中对象时会直接报错退出。

3.1 脚本全文与加载方式

;; exm.lsp —— 把多重插入引用还原成普通块参照 ;; 加载: APPLOAD 或直接拖入窗口, 命令行输入 EXM ;; 反向操作见 4.1 的 lockb (defun c:exm ( / stm e stlx r70 c71 d44 d45 ) (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 r70 (assoc 70 e)) (setq c71 (assoc 71 e)) (setq d44 (assoc 44 e)) (setq d45 (assoc 45 e)) ;; subst 会返回新表, 必须接住, 不能只调用不赋值 (if d44 (setq e (subst (cons 44 0) d44 e))) (if d45 (setq e (subst (cons 45 0) d45 e))) (if r70 (setq e (subst (cons 70 0) r70 e))) (if c71 (setq e (subst (cons 71 0) c71 e))) ;; 核心一步: 换子类标记 (setq e (subst (list 100 "AcDbBlockReference") (list 100 "AcDbMInsertBlock") e)) ;; 先建新的, 成功了再删旧的 (if (entmake e) (entdel stm) (princ "\nentmake 失败, 原实体已保留") ) ) (princ "\n选中的不是块参照, 跳过") ) (setq stm (car (entsel "\n点取下一多重块 <回车结束>: "))) ) (setvar "cmdecho" 1) (princ) )

加载方式有两种：命令行敲APPLOAD打开加载对话框选中文件；或者直接把 lsp 文件拖进绘图区。拖拽失败是高频问题，新版 CAD 有安全加载限制，只信任特定目录，文件放在桌面或者下载文件夹里会被静默拦掉，命令行什么都不提示。稳妥做法是把 lsp 放进一个固定目录，再把这个目录加到受信任位置列表里，一次配置长期有效。

加载成功之后命令行敲EXM回车，按提示点块。原版脚本里entsel前面没有判空，用户一按回车或者点空处就抛“参数类型错误”，把整段 while 打断。上面这份加了if，回车能正常退出循环。

3.2 subst 替换的五个组码各自管什么

subst的语义是“在表里找到第一个与旧项相等的元素，换成新项，返回整张新表”，它不改原表。所以每一步都必须写成(setq e (subst ...))，只写(subst ...)而不接收返回值，等于白干，命令行不报错，块一动不动，这是新手最常犯的错。

五个替换里，100是决定性的。把AcDbMInsertBlock换成AcDbBlockReference，实体在 CAD 眼里就从阵列块退化成了普通块参照，分解命令立刻就认了。这一步做完，即使 70、71 还是 1，EXPLODE 也能执行。

70和71是列数和行数。清零的作用是把可能存在的多行多列信息抹掉，让实体彻底变成一个单一行列的块。如果这两个值本来就是 1，替换成 0 在语义上也合法，DXF 里 0 和 1 都表示单行单列。

44和45是列间距和行间距。这两个组码在普通块参照里根本不存在，留着它们会让 entmake 断言失败，所以必须一起处理。注意它们是“取不到就跳过”，而不是无条件替换，因为subst的旧项参数如果是 nil，行为不可预期，可能把表里其他 nil 项一把换掉。

这里还有一个隐含风险：subst只替换第一个匹配项。如果表里出现两个(70 . 1)，只会改掉一个。正常 entget 结果不会重复，但经过其他脚本改写过的实体就不好说。写法上更保险的是用vl-remove先删再加，只是那样就绑定了 Visual LISP 扩展，纯 AutoLISP 环境下跑不了。折中办法就是现在这样，先assoc拿到原始点对，再整体替换，只要原表没被污染就没问题。

3.3 entmake 与 entdel 的顺序就是后悔药

entmake吃一张完整的关联表，在图里新建一个实体，成功返回新实体名，失败返回 nil。entdel删除实体。这两个命令的先后顺序决定了出错时你还有没有后悔药。

写成先entdel再entmake，中间任何一步失败，块就彻底没了，撤销一次未必救得回来，尤其是批量跑的时候。写成先entmake再entdel，失败时原实体还在，最多是多了一个改了一半的副本，删掉就行。所以顺序不能反，这是原则问题。

entmake失败最常见的原因是组码顺序不对或者子类标记与组码不匹配。AutoCAD 对 INSERT 的子类标记顺序有要求：先是AcDbEntity，再是AcDbBlockReference（或AcDbMInsertBlock），后面的块名、插入点、缩放、旋转都跟在子类标记之后。用subst原地换标记不会打乱顺序，所以上面这份脚本是安全的；如果你自己往表里append新组码，就得注意追加位置。

还有一个容易忽略的点：entget返回的表第一项是(-1 . 实体名)，中间还有(5 . 句柄)、(330 . 所有者)。entmake对这几项是忽略的，会自己重新分配句柄和所有者，所以原样丢进去不会出问题。但如果你手工拼表，把这些组码塞到不该在的位置，entmake一样会返回 nil。

判断成功与否不能只看命令行有没有报错，最直接的验证是转换之后立刻LIST一下，或者用手动 EXPLODE 试一次。命令行没有输出不代表成功，entmake失败时很安静，只返回 nil，不打印任何东西。

4. 反向加锁与批量处理：lockb、ssget 全图扫一遍

解密和加密是同一套组码的两头。理解了 exm 在干什么，反过来把普通块锁成“炸不开”的状态只需要改回去，这也是很多加密插件最省事的实现方式——它们根本不需要真的做阵列，只要把子类标记换掉，图纸就从“可编辑”变成“看起来能选、实际动不了”。

4.1 lockb：把普通块重新锁成 MINSERT

;; lockb.lsp —— 把普通块参照锁成多重插入引用 ;; 加载后命令行输入 LOCKB, 点选块即可 (defun c:lockb ( / stm e stlx r70 c71 ) (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 r70 (assoc 70 e)) (setq c71 (assoc 71 e)) ;; 行列为 0 的普通块, 补上 70/71 两个组码 (if r70 (setq e (subst (cons 70 1) r70 e)) (setq e (append e (list (cons 70 1)))) ) (if c71 (setq e (subst (cons 71 1) c71 e)) (setq e (append e (list (cons 71 1)))) ) ;; 子类标记换过去, 分解命令从此拒绝执行 (setq e (subst (list 100 "AcDbMInsertBlock") (list 100 "AcDbBlockReference") e)) (if (entmake e) (entdel stm) (princ "\nentmake 失败, 原实体已保留") ) ) (princ "\n选中的不是块参照, 跳过") ) (setq stm (car (entsel "\n点取下一块 <回车结束>: "))) ) (setvar "cmdecho" 1) (princ) )

这段的关键在于“补组码”而不是“换组码”。普通块的表里通常没有 70 和 71，assoc返回 nil，subst就无从下手，必须用append往表尾加。表尾追加对 INSERT 来说位置是对的，因为 70、71 本来就该排在子类标记之后的组码区。

想锁成多行多列，把(cons 70 1)改成(cons 70 3)这类数值，再补上 44、45 两个间距组码。间距值要按图纸单位给，单位是毫米的图给 500、300 这种量级，单位是米的图给 0.5、0.3，给错了阵列会飞出去老远，看起来像块丢了。间距不要设 0，虽然合法，但副本完全重叠，接收方打开会觉得图里有鬼。

锁完自己验一下：选中块，命令行敲LIST，如果类型显示为块参照但 EXPLODE 被拒，说明锁成功了。这个反向操作我一般只在需要给别人发阶段性成果、又不想对方乱改的时候用，锁之前务必另存一份，别把自己也锁在外面。

4.2 批量改造：用 ssget 一次扫全图

一张总图里躺几十个多重插入块，一个个点太慢。把逻辑套进ssget循环，一次扫完，还能顺便输出处理数量。

;; exmall.lsp —— 全图批量还原多重插入引用 (defun c:exmall ( / ss i e n r70 c71 d44 d45 ) (setvar "cmdecho" 0) ;; 只选模型空间的 INSERT, 需要连布局一起处理就去掉 410 过滤 (setq ss (ssget "_X" '((0 . "INSERT") (410 . "Model")))) (setq i 0 n 0) (if ss (repeat (sslength ss) (setq e (entget (ssname ss i))) (if (member '(100 . "AcDbMInsertBlock") e) (progn (setq r70 (assoc 70 e) c71 (assoc 71 e)) (setq d44 (assoc 44 e) d45 (assoc 45 e)) (if d44 (setq e (subst (cons 44 0) d44 e))) (if d45 (setq e (subst (cons 45 0) d45 e))) (if r70 (setq e (subst (cons 70 0) r70 e))) (if c71 (setq e (subst (cons 71 0) c71 e))) (setq e (subst (list 100 "AcDbBlockReference") (list 100 "AcDbMInsertBlock") e)) (if (entmake e) (progn (entdel (ssname ss i)) (setq n (1+ n))) ) ) ) (setq i (1+ i)) ) ) (princ (strcat "\n扫描完成, 实际还原 " (itoa n) " 个")) (setvar "cmdecho" 1) (princ) )

ssget的"_X"表示全图选择，不带用户交互，后面的过滤表限定实体类型为 INSERT。(410 . "Model")用来只处理模型空间，布局里的块默认不在结果里；如果图纸的图框和内容都画在布局里，把这一项去掉，但去掉之后可能会选到视口之类的对象，数量会变多。

循环里先entget再entdel是安全写法。entdel只是把实体标记为删除，同一条命令内实体仍然存在，选择集里记录的名字也还有效，所以边遍历边删不会踩到野指针。但如果你在循环里又调了ssget重建选择集，索引就会错乱，这类脚本里千万不要在循环体内重新选。

锁定图层上的块是这个脚本的盲区。ssget能选中锁定图层上的实体，entdel对它们会失败，现象是命令跑完提示还原了 N 个，实际图上完全是原样。跑之前先LAYER看一眼有没有锁图层，或者干脆先全选解锁。同理，冻结图层上的实体默认不会被选中，图纸里如果关掉了一层再跑，漏掉的东西下次打开才会冒出来。

4.3 备用路线：第三方命令、块编辑器与它们各自的边界

手里没有编辑器、或者脚本加载被公司策略拦住的时候，还有其他路可走，但每条都有边界，先知道边界再选，比撞墙之后回头强。

第一条是第三方插件提供的命令，常见形态是在命令行敲一个带符号的命令名，回车后选中块即可还原。这类命令的底层逻辑和上面的 lsp 一致，都是改子类标记，区别在于封装得更严实、处理了更多边界情况。限制也明显：命令名依赖具体插件，不同插件不一样，换了环境就得重新确认；插件本身可能带其他副作用，比如顺手改了图层或者加了自定义对象，处理完的图纸发给别人可能提示缺少应用程序。

第二条是块编辑器。普通块双击就进块编辑器，但多重插入块进不去，双击会被直接忽略或者提示无法编辑。所以这条路只对“已经还原过、但块本身还带不可分解属性”的块有效：先用脚本拆掉阵列标记，再进块编辑器把“允许分解”勾上，两者不是替代关系，是接力关系。很多人卡住就是因为指望块编辑器一步到位。

第三条是导出 DXF 再处理。把图纸另存为 ASCII 格式的 DXF，理论上可以用文本工具搜索子类标记做替换，再读回图纸。听起来很美好，实际上组码 70、71、44、45 和标记必须同步修改，任何一处漏改都会让 DXF 读入时报格式错误，而且大文件用文本编辑器打开就是灾难。这条路我只在实在没有 CAD 环境的应急场景下用过，处理完必须逐块核对，性价比很低，不作为首选。

5. 避坑清单：六类翻车现场与排查顺序

脚本本身只有十几行，翻车基本都发生在环境、图纸状态和输入数据上。下面六类是我这些年实际踩过的，按出现频率排，每条都按现象、原因、解决三步走。

第一类，拖进去没反应，命令行敲 EXM 提示未知命令。现象是文件明明加载了，命令就是认不出来。原因有两个：一是命令名和文件名不是一回事，文件名是 wjjm，里面defun定义的可能是另一个名字，网上流传的版本里就有输入 wjmm 和输入 wjjm 两种说法，照着文件名敲多半落空；二是安全加载把文件拦了，拖拽动作完成但程序根本没执行。解决方法是打开 lsp 文件搜defun c:后面跟的那串字符，那才是真正的命令名；同时把文件所在目录加进受信任位置，重新APPLOAD一次，加载对话框里能看到“已成功加载”的字样才算数。

第二类，跑完脚本块凭空消失。现象是命令行没报错，图上的块没了，UNDO一次也回不来。原因是原版脚本先删后建，或者subst时旧项取了 nil 把表改坏了，entmake返回 nil 而entdel已经执行。解决办法是换成本文这份先建后删的写法，并且在entmake失败时打印提示。如果已经丢了，别急着存盘，先UNDO回退，回退不了就关掉不保存重新打开，多数情况下图纸文件本身没被改动。

第三类，块炸开了，但阵列副本只剩一个。现象是原本看着是一个块，炸开之后只出来一份图元，朋友那边打开却是一排。原因是原来的 70、71 大于 1，脚本把行列数清零，其他副本的定位信息一起被抹掉了。解决办法是炸之前先看 70、71 的数值，大于 1 的先按行距列距把副本复制出来再转换，或者干脆用EXPLODE之外的方式：先把块整体复制若干份，每份偏移一个间距，再逐份还原。间距为 0 的情况最麻烦，副本完全重叠，还原之后会突然多出一堆重叠图元，得用OVERKILL清一遍。

第四类，块在锁定图层或者嵌套在别的块里，脚本选不中、改不动。现象是批量脚本提示还原了 N 个，但图上明显还有没处理的。原因是锁定图层上的实体能被选中但删不掉，冻结图层上的实体干脆不被选中；嵌套块则是外层块里还装着内层块，外层还原之后里面那层依然是多重插入。解决办法是跑之前先解锁、解冻所有图层，跑完再恢复；嵌套的情况就在同一张图上把脚本连跑两到三遍，每跑一遍都会往内层剥一层，直到提示还原数量为 0。

第五类，图纸里是代理实体，脚本怎么改都没用。现象是entget出来的 0 组码不是 INSERT，改完entmake一直返回 nil。原因是图纸用了原厂自定义对象技术，实体只是别人家程序留下的空壳，图元数据根本不在 DXF 里。解决方法是找原始设计方要能识别的版本，或者让对方导出成基本图元；实在拿不到，只能把这块当图片参照用，别在它身上浪费时间。教育版图纸打印出来的戳记也是同理，脚本层面无解。

第六类，脚本加载报 malformed list 或者参数类型错误。现象是APPLOAD时直接弹错误框，指针停在一个奇怪的括号位置。原因是网上抄来的代码里混了全角括号、中文引号、智能引号，或者被论坛排版吃掉了换行。解决办法是把文件用纯文本编辑器打开，把所有中文标点替换成半角，括号配对检查一遍；AutoLISP 对括号极其敏感，少一个右括号报的错可能在几十行之外，别按报错行号去找。保存时编码选 ANSI 或者带 BOM 的 UTF-8，纯 UTF-8 无 BOM 在某些版本里会把中文注释读成乱码进而报错。

排查顺序建议固定成：先判定对象类型，再看图层状态，再看组码表，最后才怀疑脚本本身。绝大多数“脚本没用”的结论，都是前两步没做。

6. 松开之后怎么验收：三个检查动作和一条固定流程

转换完不能靠肉眼扫一遍就完事。图上几十上百个块，漏一个，后面算量、出图、交付全是连锁反应。我固定用三段式验收，每段都有明确的通过标准。

第一段是数量核对。跑一个统计脚本，数出当前图里还剩多少个带多重插入标记的块：

;; chkm.lsp —— 统计图中剩余的多重插入引用数量 (defun c:chkm ( / ss i e cnt ) (setq ss (ssget "_X" '((0 . "INSERT"))) i 0 cnt 0) (if ss (repeat (sslength ss) (setq e (entget (ssname ss i))) (if (member '(100 . "AcDbMInsertBlock") e) (setq cnt (1+ cnt)) ) (setq i (1+ i)) ) ) (princ (strcat "\n剩余多重插入引用: " (itoa cnt) " 个")) (princ) )

返回 0 才算通过。如果有残留，先别急着重跑，用 2.3 那个判定函数挨个点，看清楚是锁定图层、嵌套块还是代理对象，对症处理比重跑一遍有效。

第二段是抽样分解。随机挑三到五个转换过的块，手动EXPLODE一次，看命令行有没有报错、炸出来的图元是不是完整。特别注意炸开后的图元数量对不对：一个原本带三个属性文字的块，炸开后应该能数出这些文字，如果只剩线条，说明属性在entmake重建的时候丢了，得用ATTEDIT或者重新插入带属性的块补回来。

第三段是坐标复核。挑块插入点附近的几条线，用

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