在CAD學習中，如何分解多重插入塊的cad圖紙？

1. 将以下程序複制到TXT文件中，然後另存為exm.lsp文件。保存如下圖

CAD學習中磊教育

CAD學習中磊教育

2. 程序如下：

;;-------------------------------------------------------------

;;轉換"多重插入塊"為"普通塊"。

(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)

)

3. 如圖是"多重插入塊"

CAD學習中磊教育

4. 第一步：加載剛保存的exm.lsp文件。

CAD學習中磊教育

5. 提示加載完成後，關閉。

CAD學習中磊教育

6. 輸入"exm"命令

CAD學習中磊教育

7. 按提示操作，選擇多重塊。

CAD學習中磊教育

8. 然後，按空格，終止命令。

CAD學習中磊教育

9. 輸入"x"打散，就OK了。

CAD學習中磊教育

10. 效果圖。

CAD學習中磊教育

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!