多重插入引用,用X炸开,提示 选择对象,如何分解??

QQ

把以下内容保存为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 100AcDbBlockReference) (list 100AcDbMInsertBlock) e))(entmake e)(entdel stm)))(SETQ STM (car (ENTSEL \n点取下一多重块))))(setvar cmdecho 1)