Question

CAD的多重插入块如何分解？别人发给我一个图，无法炸开，X命令没用啊

好像是他把很多的块集合一起了，搞不懂，反正是没法炸开，没法修改，光标指上去就提示是多重插入块。用X命令会提示“是一个多重插入引用”
我在百度上看到你有个程序可以炸开，就来求助啦！

Answer 1

把以下内容保存为lsp文件（如exm.lsp）,加载后运行exm既可把“多重插入块”转换为“普通块”，然后既可用“explode”分解。

如果不懂把图纸发给我：1025344364@qq.com

;;-------------------------------------------------------------
;;转换“多重插入块”为“普通块”。
(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)
)

Answer 2

选中 右击——编辑块——再用X炸开——保存——再一次X 炸开

Answer 3

邮箱