求解释“（command point）”

cindy_fisher · 发表于 2011-10-10 10:21:23

(defun C:lsp_08()
(setq nn (getint "\n阶数："))

(setq pt1 (getpoint "\n请输入第一点："))
(setq pt2 (getpoint "\n请输入第二点："))
(setq ww (distance pt1 pt2))
(setq hh (getdist pt1 "\n 请输入高度hh"))
(setq ang (angle pt1 pt2))
(setq ptbas pt2)
(command "pline" pt1 ptbas)
(repeat nn
(setq ptbas (polar ptbas (+ ang (/ pi 2)) (/ hh nn)))
(command "ptbas")
(setq ptbas (polar ptbas (+ ang pi) (/ ww nn)))
(command "ptbas")
)

(command "c")
(prin1)
)
上面一段摘自吴老师的课本，对(command "ptbas")有点不明白，请求解释，谢谢。
我自己尝试把command pline那行去掉只执行command "ptbas" 我以为能画出一系列点，结果什么都没有。
谢谢。

yjr111 · 发表于 2011-10-10 11:13:51

什么课本？把2个(command "ptbas")改成(command ptbas)。。。。。

ZZXXQQ · 发表于 2011-10-10 11:17:28

抄错了吧。
变量使用时大多数不能放在引号中。

byghbcx · 发表于 2011-10-10 15:25:35

抄错了

cindy_fisher · 发表于 2011-10-10 20:28:38

道歉，确实写错了，ptbas指的应该是一个点，不断变化的，那command ptbas怎么理解，谢谢？

mccad · 发表于 2011-10-10 21:20:56

不要只看(command ptbas)，因为前面的命令没有完成，这里只是接着前面的命令提供一个点给命令而已。

gbhsu · 发表于 2011-10-11 00:25:50

明总也真有耐心！诲人不倦呀

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