AutoCAD关于“多重插入引用”(多重块)的分解

AutoCAD关于“多重插入引用”（多重块）的分解今天上班遇到一个棘手的问题，由设计院发的CAD图打开后显示为一整个块，用“ｘ”命令分解不了，命令行显示“１为多重插入引用”。经过在网上搜寻，终于解决了问题。引用如下：【图形被加密的解锁方法】将下面的代码复制在记事本内，另存为unlk.lsp文件，打开这张不能修改的图纸，命令appload选择加载程序文件unlk.lsp，命令行键入unlk，选择不能修改的图形。。。(defunc:unlk(/enent)(setqen(entsel"\n请选择被加密的图形:"))(ifen(if(=(cdr(assoc0(setqent(cdr(entget(setqen(caren)))))))"INSERT")(progn(setqent(entmakex(list'(0."INSERT")(assoc2ent)(assoc10ent))))(command"_.explode"(entlast))(entdelen))))(princ"\nOK，解密成功。")(princ))CAD多重插入引用炸开方法

2009-10-2011:29:15|

分类：\o"默认分类"默认分类|

标签：|字号大中小

订阅把以下内容保存为lsp文件（如exm.lsp）,加载后运行exm既可把“多重插入块”转换为“普通块”，然后既可用“explode”分解。加载后运行lockb可把“普通块”转换为“多重插入块”(DEFUNC:exm()(setvar"cmdecho"0)(SETQSTM(car(ENTSEL"\n点取多重块")))(whilestm(setqe(entgetstm))(setqstlx(cdr(assoc0e)))(if(=stlx"INSERT")(PROGN(setqr_zm70(assoc70e))(setqc_zm71(assoc71e))(setqr_dist_zm44(assoc44e))(setqc_dist_zm45(assoc45e))(setqe(subst(cons440)r_dist_zm44e))(setqe(subst(cons450)c_dist_zm45e))(setqe(subst(cons700)r_zm70e))(setqe(subst(cons710)c_zm71e))(setqe(subst(list100"AcDbBlockReference")(list100"AcDbMInsertBlock")e))(entmakee)(entdelstm)))(SETQSTM(car(ENTSEL"\n点取下一多重块"))))(setvar"cmdecho"1));;--------------------------------------------------------------------;;转换“普通块”为“多重插入块”(DEFUNC:lockb()(setvar"cmdecho"0)(SETQSTM(car(ENTSEL"\n点取块")))(whilestm(setqe(entgetstm))(setqstlx(cdr(assoc0e)))(if(=stlx"INSERT")(PROGN(setqr_zm70(assoc70e))(setqc_zm71(assoc71e))(setqe(subst(cons701)r_zm70e))(setqe(subst(cons711)c_zm71e))(setqe(subst(list100"AcDbMInsertBlock")(list100"AcDbBlockReference")e))(entmakee)(entdelstm)))(SETQSTM(car(ENTSEL"\n点取下一块"))))(setvar"cmdecho"1))使用“exm.lsp”解密或加密为“多重插入块”目前很多CAD图件运用“插入多重插入块”的方法，加密，造成部分图件中的块，无法炸开，网上游很多破解方法，现将自编lsp程序的方法罗列如下，希望对大家有帮助。把以下内容保存为lsp文件（如exm.lsp）,加载后运行exm既可把“多重插入块”转换为“普通块”，然后既可用“explode”分解。加载后运行lockb可把“普通块”转换为“多重插入块”lsp源代码：;;-------------------------------------------------------------;;转换“多重插入块”为“普通块”。(DEFUNC:exm()(setvar"cmdecho"0)(SETQSTM(car(ENTSEL"\n点取多重块")))(whilestm(setqe(entgetstm))(setqstlx(cdr(assoc0e)))(if(=stlx"INSERT")(PROGN(setqr_zm70(assoc70e))(setqc_zm71(assoc71e))(setqr_dist_zm44(assoc44e))(setqc_dist_zm45(assoc45e))(setqe(subst(cons440)r_dist_zm44e))(setqe(subst(cons450)c_dist_zm45e))(setqe(subst(cons700)r_zm70e))(setqe(subst(cons710)c_zm71e))(setqe(subst(list100"AcDbBlockReference")(list100"AcDbMInsertBlock")e))(entmakee)(entdelstm)))(SETQSTM(car(ENTSEL"\n点取下一多重块"))))(setvar"cmdecho"1));;--------------------------------------------------------------------;;转换“普通块”为“多重插入块”(DEFUNC:lockb()(setvar"cmdecho"0)(SETQSTM(car(ENTSEL"\n点取块")))(whilestm(setqe(entgetstm))(setqstlx(cdr(assoc0e)))(if(=stlx"INSERT")(PROGN(setqr_zm70(assoc70e))(setqc_zm71(assoc71e))(setqe(subst(cons701)r_zm70e))(setqe(subst(cons711)c_zm71e))(setqe(subst(list100"AcDbMInsertBlock")(list100"AcDbBlockReference")e))(entmakee)(entdelstm)))(SETQSTM(car(ENTSEL"\n点取下一块"))))(setvar"cmdecho"1));;--------------------------------------------------------------------如果不愿弄，下面有现成的，请大家试用。。。支持Win7，CAD2010。。。。炸开“多重插入引用”的方法以及制作1.“多重插入引用”的制作：用minsert命令，提示块名，在cad工作目录下找一张图，键入这个图名，然后到提示行数或列数时，输入2以上，但行距或列距输入0。这样一个多重插入引用制作完成，无法用explode炸开了。多重块不是重复定义块，而是在矩形阵列中插入一个块的多重引用。多重块是由命令minsert插入一个块而形成，其在正常情况下不能被分解。但若是用普通的方法构建的多重块，可以删除掉，然后用insert再插入它原来引用的块即可。不过，若它原来引用的块是匿名块（即名称前带*的块，只能用程序构建），就不是那么简单的了。这是，你就需要程序（或者说插件）来还原。vlx程序就是一个插件。也就是我上面说的编程实现。若不会编程，也没有插件，下面的方法四（方法三也可以实现）。2.炸开方法如下：方法一：点击这个多重引用，看它的名字，然后再用minsert命令，插入这个名字，只不过都按默认的行数（1行）列数一直回车。这样插入的这个块就可以炸开了。方法二：双击这个块，出现参照编辑对话框，点确定，出现参照编辑工具条；用explode炸开；然后点击参照编辑工具条从工作集删除对象，选中所有图形，回车；再点击参照编辑工具条上的放弃对参照的修改。此时再用explode就可以炸开了。方法三:1、打开原文件后，输出为*.wmf文件，2、新建空*.DWG文件，插入*.wmf文件，3、输入另外一个炸开命令：xplode回车4、选图层（