(setq a (strcat “(“a ")"))
(setq a (read a))
(setq m1 (nth 0 a))
(setq m1 (nth 0 a))
(setq m2 (nth 1 a))
(setq m3 (nth 2 a))
(setq m4 (nth 3 a))
(setq m5 (nth 4 a))
(setq m6 (nth 5 a))
(setq m7 (nth 6 a))
(setq m8 (nth 7 a))
(command “insert" bk p1 “" “" “" m1 m2 m3 m4 m5 m6 m7 m8)
(setq p1 (list (car p1) (＋ 8 (cadr p1))))
)
(setvar “comdecho" scmde)
(close f)
(print)
)
程序的安装与使用
1．安装程序
可以选择以下三种装载方式的任意一种：
在AutoCAD环境下，将MXB.LSP拷贝至当前目录，再执行（LOAD“MXB”），即可装载MXB.LSP。
先将MXB.LSP拷贝至\ACAD\SUPPORT子目录下，再在\ACAD\SUPPORT\ACAD.LSP中加入下面一条语句：
