求编写个CAD用的LSP文件

(defun c:test nil
(setqpt (getpoint "\n指定矩形中心点:")
l (getreal "\n输入矩形的长度:")
w (getreal "\n输入矩形的宽度:")
)
(setq pt1 (list (- (car pt) (* 0.5 l)) (- (CADr pt) (* 0.5 w))))
(setq pt2 (list (+ (car pt) (* 0.5 l)) (+ (CADr pt) (* 0.5 w))))
(command ".rectang" "non" pt1 "non" pt2)
(setq str (strcat (rtos l 2 2) "*" (rtos w 2 2)))
(entmake
(list '(0 . "text")
(cons 1 str)
(cons 10 pt)
(cons 11 pt)
(cons 40 5) ;字高
(cons 72 1)
(cons 73 2)
)
)
(PRinc)
)
;;;使用命令"test"

输入vlIDe，在编辑里面新建一个新lisp文件，把所有的lisp连接复制粘贴到里面，另存一个自己使用名字，否则先加载的无效! lsp文件在CAD里有个SUpport文件夹下比如aCAD2007.lsp文件（我用的是2007版本的），在后面加一行你写的这个程序名，在CAD启...