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

jixiang0908 · 发表于 2010-2-6 12:50:00

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

(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 · 发表于 2010-2-6 13:11:00

(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")
)

明经网友 *发表于 2010-2-6 13:17:00* · 发表于 2010-2-6 13:17:00

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

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

xhq1954425 · 发表于 2010-2-6 13:18:00

jixiang0908 · 发表于 2010-2-6 13:23:00

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

liminnet · 发表于 2010-2-6 13:28:00

提示: 作者被禁止或删除内容自动屏蔽

xhq1954425 · 发表于 2010-2-6 13:35:00

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

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

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

Andyhon · 发表于 2010-2-6 13:37:00

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 · 发表于 2010-2-6 14:05:00

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

账号		自动登录	找回密码
密码			注册

liminnet liminnet 当前离线积分 9742 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2010-2-6 13:28:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

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

本帖子中包含更多资源

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