1、将以下程序复制到TXT文件中并将其另存为exm.lsp文件。

程序如下：

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

;;将“多个插入块”转换为“正常块”。

（DEFUN C：exm（）

（setvar“cmdecho”0）

（SETQ STM（汽车（ENTSEL“\ n点多块”）））

（而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（汽车（ENTSEL“\ n指向下一个多个街区”）））

）

（setvar“cmdecho”1）

）

2、进行“多重插块”的操作。

3、加载刚刚保存的exm.lsp文件。

4、加载提示后，关闭它。

5、输入“exm”命令。

6、按照提示选择多个块。

7、然后，按空格键终止命令。

8、输入“x”分解即可。

9、最终的分解效果图如下。