CAD多重插入引用 炸開(kāi)方法～【親測(cè)】
現(xiàn)在越來(lái)越多的人 喜歡 加密圖了。
多重插入引用就是 經(jīng)常會(huì)使用的圖紙加密技術(shù)，永遠(yuǎn)無(wú)法解開(kāi)的死鎖。

方法一：

有兩個(gè)好工具，可以輕松炸開(kāi)。一個(gè)是AutoCAD 快速加載 AutoLISP 文件：wjjm；另一個(gè)cad加密插件，請(qǐng)大家使用。
具體方法：
AutoCAD 快速加載 AutoLISP 文件wjjm的使用：用cad打開(kāi)需要炸開(kāi)的文件，將wjjm直接拖入cad窗口，命令行輸入wjmm，回車(chē)后按提示操作即可。

操作步驟：① 于CAD中，選擇：“工具”菜單→“加載應(yīng)用程序”選項(xiàng)。

② 于對(duì)話框中選擇文件“wjjm”，進(jìn)行應(yīng)用程序加載。

③ 于CAD命令行中，輸入“wjjm”命令，然后選擇需要保護(hù)的圖塊，隨便點(diǎn)擊即可取消保護(hù)。
方法二：

輸入“CYN-”，將多重插入塊轉(zhuǎn)換為普通快，然后可以炸開(kāi)編輯

方法三：
把以下內(nèi)容保存為lsp文件（如exm.lsp）,加載后運(yùn)行exm既可把“多重插入塊”轉(zhuǎn)換為“普通塊”，然后既可用“explode”分解。加載后運(yùn)行l(wèi)ockb可把“普通塊”轉(zhuǎn)換為“多重插入塊”
;;-------------------------------------------------------------
;;轉(zhuǎn)換“多重插入塊”為“普通塊”。
(DEFUN C:exm ()
(setvar "cmdecho" 0)
(SETQ STM (car (ENTSEL "n點(diǎ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 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點(diǎn)取下一多重塊")))
)
(setvar "cmdecho" 1)
)
;;--------------------------------------------------------------------
;;轉(zhuǎn)換“普通塊”為“多重插入塊”
(DEFUN C:lockb ()
(setvar "cmdecho" 0)
(SETQ STM (car (ENTSEL "n點(diǎ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))
(setq e (subst (cons 71 1) c_zm71 e))
(setq e (subst (list 100"AcDbMInsertBlock") (list 100"AcDbBlockReference") e))
(entmake e)
(entdel stm)
))
(SETQ STM (car (ENTSEL "n點(diǎn)取下一塊")))
)
(setvar "cmdecho" 1)
)