如何炸開cad圖紙裡的多重插入塊

用LSP程式炸開cad圖紙裡的多重插入塊。

操作方法

（01）將以下程式複製到TXT檔案中，然後另存為檔案。儲存如下圖

（02）程式如下：;;-------------------------------------------------------------;;轉換“多重插入塊”為“普通塊”。(DEFUN C:exm ()(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 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))

（03）如圖是“多重插入塊”

（04）第一步：載入剛儲存的檔案。

（05）提示載入完成後，關閉。

（06）輸入“exm"命令

（07）按提示操作，選擇多重塊。

（08）然後，按空格，終止命令。

（09）輸入"x"打散，就OK了。

（10）效果圖。