AutoCAD關(guān)于“多重插入引用”（多重塊）的分解今天上班遇到一個(gè)棘手的問題，由設(shè)計(jì)院發(fā)的CAD圖打開后顯示為一整個(gè)塊，用“ｘ”命令分解不了，命令行顯示“１為多重插入引用”。經(jīng)過在網(wǎng)上搜尋，終于解決了問題。引用如下：【圖形被加密的解鎖方法】將下面的代碼復(fù)制在記事本內(nèi)，另存為unlk.lsp文件，打開這張不能修改的圖紙，命令appload選擇加載程序文件unlk.lsp，命令行鍵入unlk，選擇不能修改的圖形。。。(defunc:unlk(/enent)(setqen(entsel"\n請(qǐng)選擇被加密的圖形:"))(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"默認(rèn)分類"默認(rèn)分類|

標(biāo)簽：|字號(hào)大中小

訂閱把以下內(nèi)容保存為lsp文件（如exm.lsp）,加載后運(yùn)行exm既可把“多重插入塊”轉(zhuǎn)換為“普通塊”，然后既可用“explode”分解。加載后運(yùn)行l(wèi)ockb可把“普通塊”轉(zhuǎn)換為“多重插入塊”(DEFUNC:exm()(setvar"cmdecho"0)(SETQSTM(car(ENTSEL"\n點(diǎ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點(diǎn)取下一多重塊"))))(setvar"cmdecho"1));;--------------------------------------------------------------------;;轉(zhuǎn)換“普通塊”為“多重插入塊”(DEFUNC:lockb()(setvar"cmdecho"0)(SETQSTM(car(ENTSEL"\n點(diǎ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點(diǎn)取下一塊"))))(setvar"cmdecho"1))使用“exm.lsp”解密或加密為“多重插入塊”目前很多CAD圖件運(yùn)用“插入多重插入塊”的方法，加密，造成部分圖件中的塊，無法炸開，網(wǎng)上游很多破解方法，現(xiàn)將自編lsp程序的方法羅列如下，希望對(duì)大家有幫助。把以下內(nèi)容保存為lsp文件（如exm.lsp）,加載后運(yùn)行exm既可把“多重插入塊”轉(zhuǎn)換為“普通塊”，然后既可用“explode”分解。加載后運(yùn)行l(wèi)ockb可把“普通塊”轉(zhuǎn)換為“多重插入塊”lsp源代碼：;;-------------------------------------------------------------;;轉(zhuǎn)換“多重插入塊”為“普通塊”。(DEFUNC:exm()(setvar"cmdecho"0)(SETQSTM(car(ENTSEL"\n點(diǎ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點(diǎn)取下一多重塊"))))(setvar"cmdecho"1));;--------------------------------------------------------------------;;轉(zhuǎn)換“普通塊”為“多重插入塊”(DEFUNC:lockb()(setvar"cmdecho"0)(SETQSTM(car(ENTSEL"\n點(diǎ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點(diǎn)取下一塊"))))(setvar"cmdecho"1));;--------------------------------------------------------------------如果不愿弄，下面有現(xiàn)成的，請(qǐng)大家試用。。。支持Win7，CAD2010。。。。炸開“多重插入引用”的方法以及制作1.“多重插入引用”的制作：用minsert命令，提示塊名，在cad工作目錄下找一張圖，鍵入這個(gè)圖名，然后到提示行數(shù)或列數(shù)時(shí)，輸入2以上，但行距或列距輸入0。這樣一個(gè)多重插入引用制作完成，無法用explode炸開了。多重塊不是重復(fù)定義塊，而是在矩形陣列中插入一個(gè)塊的多重引用。多重塊是由命令minsert插入一個(gè)塊而形成，其在正常情況下不能被分解。但若是用普通的方法構(gòu)建的多重塊，可以刪除掉，然后用insert再插入它原來引用的塊即可。不過，若它原來引用的塊是匿名塊（即名稱前帶*的塊，只能用程序構(gòu)建），就不是那么簡(jiǎn)單的了。這是，你就需要程序（或者說插件）來還原。vlx程序就是一個(gè)插件。也就是我上面說的編程實(shí)現(xiàn)。若不會(huì)編程，也沒有插件，下面的方法四（方法三也可以實(shí)現(xiàn)）。2.炸開方法如下：方法一：點(diǎn)擊這個(gè)多重引用，看它的名字，然后再用minsert命令，插入這個(gè)名字，只不過都按默認(rèn)的行數(shù)（1行）列數(shù)一直回車。這樣插入的這個(gè)塊就可以炸開了。方法二：雙擊這個(gè)塊，出現(xiàn)參照編輯對(duì)話框，點(diǎn)確定，出現(xiàn)參照編輯工具條；用explode炸開；然后點(diǎn)擊參照編輯工具條從工作集刪除對(duì)象，選中所有圖形，回車；再點(diǎn)擊參照編輯工具條上的放棄對(duì)參照的修改。此時(shí)再用explode就可以炸開了。方法三:1、打開原文件后，輸出為*.wmf文件，2、新建空*.DWG文件，插入*.wmf文件，3、輸入另外一個(gè)炸開命令：xplode回車4、選圖層（