[LISP程序]：菜鸟问题，请指点

coolman327

(defun c:pbox()

;以下 pa、ww、hh 值須由使用者輸入

(setq pa (getpoint "Enter Left/Low Point:"))

(setq ww (getreal "Width:"))

(setq hh (getreal "Height:"))

;以下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 點畫矩形

(command "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 點畫出二條線

(command "line" mp1 mp3 "")

(command "line" mp2 mp4 "")

)

以上是一个画矩形并带有中线的命令，我想问问：(command "pline" pa pb pc pd "c")这一行去掉"c"为什么不可以；还有：(command "line" mp1 mp3 "")

(command "line" mp2 mp4 "")这两行去掉后面的“”为什么也不行！！！！
谢谢，我才学，请指教！！！

czg09180274

去掉“C”绘出来的“PLINE”是开放的，而且“PLINE”命令也没有结束，可以将(command "pline" pa pb pc pd "c")改成：(command "pline" pa pb pc pd pa "")下面的也是一个原因(command 。。。"")中的“""”相当于在命令行键入“回车”。

coolman327

哦了解了，谢谢！！！