图3
当用户向表中插入该块时，系统会向用户询问属性值，此时用AutoLisp程序将上面建立的明细表数据文件中的数据分别赋给各个属性。属性的定义是用AutoCAD命令ATTDEF完成的。
编制程序
首 先，用AutoLisp的I/O函数READ－LINE读入数据文件MXB.TXT，再用字符串连接函数STRCAT给文件的每一行加上括号，此时数据类 型为字符串（STR）。然后，再利用READ函数把字符串转换成一个表（LIST），以方便AutoLisp对表中的每一项进行各种操作。最后，用 AutoLisp的COMMAND函数调用INSERT命令，先将图块MXB.DWG插入表中，再将MXB1.DWG插入表中，用NTH函数将前面 AutoLisp读入的数据中各项信息分别赋给MXB1.DWG中的各个属性。
程序框图如图4所示。
图4
下面给出实现上述功能的程序清单：
（defun C:mxb(/scmde p f1 bk a m1 m2 m3 m4 m5 m6 m7 m8 p1)
(setq scmde (getvar “cmdecho"))
(setvar “cmdecho" 0)
(setq p (getpoint “\n Please input a point:"))
(setq f1 (getstring “\n Please input file name:"))
(setq f (open f1 “r"))
(print “\n Please wait ...")
(setq bk “mxb")
(command “insert" bk p 1 1 0)
(setq bk “mxb1")
(setq p1 (list (car p) (＋ (cadr p) 8)))
