[求助]：各为高手

pp1980cn

下面的LSP 有什么问题为什么我在R14里加载不能用
( defun c: pbox(/ pa pb pc pd ww hh mp1 mp2 mp3 mp4)
(setver "cmdecho" 0)
(setver "blipmode" 0)
;;;以下 pa、ww、hh 值须由用户输入
(setq pa (getpoint "输入左下点："))
(setq ww (getdistpa "\n 宽度："))
(setq hh (getdist "\n 高度："))
;;;以下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))
( command "pline" pa pb pc pd "c")
;;;以下mp1、mp2、mp3、mp4 值须由程序依据pa、ww、hh 计算得出
;;;& pb、pc、pd 值计算得出
(steq mp1 (polar pa 0 (/ ww 2)))
(steq mp2 (polar pb (/ pi 2) (/ hh 2)))
(steq mp3 (polar pd 0 (/ ww 2)))
(steq mp4 (polar pa (/ pi 2) (/ hh 2)))
;;;以下依据mp1、mp2、mp3、mp4 点画出两条直线
( command "line "mp1 mp3 "")
( command "line "mp2 mp4 "")
)

JOSDENNIS

你的程序有很多不足之處:
1 :   
(setver "cmdecho" 0)
(setver "blipmode" 0)
這兩句應為
(setvAR "cmdecho" 0)
(setvAR"blipmode" 0)

是涵數寫錯的原因

2  :

         下面還有很多寫錯的.
(steq mp1 (polar pa 0 (/ ww 2)))
(steq mp2 (polar pb (/ pi 2) (/ hh 2)))
(steq mp3 (polar pd 0 (/ ww 2)))
(steq mp4 (polar pa (/ pi 2) (/ hh 2)))

每句開頭的STEQ 是寫錯了.  應是 SETQ .

aeo

还有( command "line "mp1 mp3 "")     line引号里不要有空格