Question

使用AutoCAD2004加载一个Lisp程序后，显示加载成功，但是并未出现提示输入点的信息

程序如下:
(defun c:pbox(/ pa pb pc pd ww hh mp1 mp2 mp3 mp4)
;以下 pa、ww、hh 值须由使用者输入
(setq pa (getPoint "Enter Left/Low Point:"))
(setq ww (getdist pa "\nWidth:"))
(setq hh (getdist pa "\nHeight:"))
;以下pb、pc、pd值须由程序依据pa、ww、hh求出
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))(setq pd (polar pc pi ww))
;以下依据 pa、pb、pc、pd 点画矩形
(指令 "pline" pa pb pc pd "c")
;以下mp1、mp2、mp3、mp4值须由程序依据pa、ww、hh ;& pb、pc、pd 值求出
(setq mp1 (polar pa 0 (/ ww 2)))
(setq mp2 (polar pb (/ pi 2) (/ hh 2)))
(setq mp3 (polar pd 0 (/ ww 2)))
(setq mp4 (polar pa (/ pi 2) (/ hh 2)))
;以下依据 mp1、mp2、mp3、mp4 点画出二条线
(指令 "line" mp1 mp3 "")
(指令 "line" mp2 mp4 "")
(prin1)
)
(prompt "********** << C:PBOX >> **********")
(prin1)

Answer 1

这里是完整定义了一个程序（c:pbox），加载后是不会执行程序里面的内容的，你要输入命令：PBOX，这个程序才会执行