[求助] 书上的例子 为什么提示语法错误

jixiang0908

书上一个画矩形的例子，为什么提示语法错误呢？

(defun c: rect1
  (/ p1 p2 p3 p4)
  (setq p1 (getpoint "\n 输入一个角点"))
  (setq p3 (getcorner "\n 输入另一个角点"))
  (setq p2 (list (car p1) (cadr p3) ))
  (setq p4 (list (car p3) (cadr p1) ))
  (command "pline" p1 p2 p3 p4 "c")
)

xhq1954425

(defun c:rect1
  ( / p1 p2 p3 p4)
  (setq p1 (getpoint "\n 输入一个角点"))
  (setq p3 (getpoint "\n 输入另一个角点"))
  (setq p2 (list (car p1) (cadr p3) ))
  (setq p4 (list (car p3) (cadr p1) ))
  (command "pline" p1 p2 p3 p4 "c")
)

因为书上的例子是错的，错在P3的定义上， 改成(setq p3 (getcorner p1 "\n 输入另一个角点"))就行了。

不要尽信书。写书的很多水平比你高不了多少！

xhq1954425

jixiang0908

谢谢 非常感谢你 能加你QQ吗 我想学 可是没人教 自学太累了 没头绪

xhq1954425

jixiang0908发表于2010-2-6 13:23:00谢谢 非常感谢你 能加你QQ吗 我想学 可是没人教 自学太累了 没头绪

你没有看见liminnet在那儿笑着等着你呢……那才是QQ回答问题专家

我跟他比简直就是 井中蝌蚪 (还不如井底之蛙呢)……你找他

Andyhon

getcorner 后边一般是跟前一列所取得的点位值 (pt)

getcorner Function
 
Pauses for user input of a rectangle's second corner

(getcorner pt [msg])

Command: (getcorner '(7.64935 6.02964 0.0) "Pick a corner")

jixiang0908

平时画图不断的重复 所以很想学LISP 只有是高手愿意教的 我都很虔诚的想找个师傅 呵呵