新人新学lisp程序
 

新人新学lisp程序
www.dimcax.com
新人新学lisp程序
刚刚开始学lisp程序，还请高人多多指教。

我也想学啊
re:新人新学lisp程序/这段代码错在哪里啊？
(defun c:pbox()
;以下 pa、ww、hh 值須由使用者輸入
(setq pa (請求輸入左下角點))
(setq ww (請求輸入矩形寬度實數值))
(setq hh (請求輸入矩形高度實數值))
;以下pb、pc、pd值須由程式依據pa、ww、hh求出
(setq pb (依據相對極座標法求出pb點座標值))
(setq pc (依據相對極座標法求出pc點座標值))
(setq pd (依據相對極座標法求出pd點座標值))
;以下依據 pa、pb、pc、pd 點畫矩形
(以pline指令畫出矩形)
;以下mp1、mp2、mp3、mp4值須由程式依據pa、ww、hh
;& pb、pc、pd 值求出
(setq mp1 (求出 mp1 點座標值))
(setq mp3 (求出 mp3 點座標值))
(setq mp2 (求出 mp2 點座標值))
(setq mp4 (求出 mp4 點座標值))
;以下依據 mp1、mp2、mp3、mp4 點畫出二條線
(以 line 指令畫出 mp1 到 mp3 的線)
(以 line 指令畫出 mp2 到 mp4 的線)
)
宠辱不惊，闲看庭前花开花落；去留无意，漫随天外云卷云舒。

一边学一边试编，理论加实践才快

我也希望高人指点一下。