1、将以下程序复制到TXT文件中，然后另存为exm.lsp文件。保存如下图
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、如图是“多重插入块”
4、第一步：加载刚保存的exm.lsp文件。
5、提示加载完成后，关闭。
6、输入“exm"命令
7、按提示操作，选择多重块。
8、然后，按空格，终止命令。
9、输入"x"打散，就OK了。
10、效果图。
