-
1 # 使用者1508145266961324
-
2 # 使用者4059014129524387
把以下內容儲存為lsp檔案,載入後執行exm既可把,然後既可用“explode”分解。 ;;------------------------------------------------------------- ;;轉換“多重插入塊”為“普通塊”。 (DEFUN C:exm () (setvar "cmdecho" 0) (SETQ STM (car (ENTSEL " 點取多重塊"))) (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 " 點取下一多重塊"))) ) (setvar "cmdecho" 1) ) ;;-------------------------------------------------------------------- ;;轉換“普通塊”為“多重插入塊” (DEFUN C:lockb () (setvar "cmdecho" 0) (SETQ STM (car (ENTSEL " 點取塊"))) (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 " 點取下一塊"))) ) (setvar "cmdecho" 1) ) ;;--------------------------------------------------------------------
-
3 # pietr49411
1、圖為“多插塊”的選項,滑鼠單擊選擇它。
2、載入剛剛儲存的exm.lsp檔案。
3、載入提示後,關閉它。
4、輸入“exm”命令。
5、按照提示選擇多個塊。
6、然後,按空格鍵終止命令。
7、輸入“x”分解即可。
8、CAD的多重插入塊分解就完成了,效果如下。
回覆列表
原因:當前圖層並不是分解的塊的圖層,所以就消失看不見了。
1、首先開啟需要編輯的CAD圖紙,進入到CAD應用程式編輯頁面中。
2、然後在編輯的視窗中,點選主選單欄中的“格式”,在彈出來的選單欄中,選擇開啟“圖層”設定選項。
3、然後在彈出來的視窗中,點選選擇其他圖層,不確定是在哪個圖層,所以一個一個的選擇。
4、然後就可以找到分解的圖形了。