cad块分解后怎么重组(cad如何分解一个组)
导语:在CAD学习中,如何分解多重插入块的cad图纸?
在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学习中磊教育
免责声明:本文由原创用户编辑投稿,若来源犯您的合法权益,请与我们取得联系,我们更正修改。2023年04月08日由小萱整理编辑!