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、最终的分解效果图如下。
