帮忙看看语法错在那里啊！

gcj12301

(defun C: trigon
(/ p1 p2 p3 len)
(setq p1 (getpoint "输入左下角点: "))
(setq len (getreal "输入边长: "))
(setq p2 (polar p1 0 len)
p3 (polar p2 (/ (* 2 pi) 3) len)
)
(command "pline" p1 p2 p3 "c")
) ;帮忙看看吧，我是菜鸟调试了半天还是不对

小妹丁

(defun C:trigon
(/ p1 p2 p3 len)
(setq p1 (getpoint "输入左下角点: "))
(setq len (getreal "输入边长: "))
(setq p2 (polar p1 0 len)
p3 (polar p2 (/ (* 2 pi) 3) len)
)
(command "pline" p1 p2 p3 "c")
)

gcj12301

大哥，你好象没找的错误啊！

meflying

晕，小弟，她好象不是大哥，，，有没有找出错误，你试一下不就知道了吗？你觉得没找出来，那是你观察不够仔细！！！

lijiao

gcj12301发表于2005-4-4 21:49:00回复：（gcj12301）帮忙看看语法错在那里啊！ (defun C: trigon (/ p1 p2 p3 len) (setq p1 (getpoint \"输入左下角点: \")) (setq len (getreal \"输入边长: \")) (setq p2 (polar p1 0 l

C:后面多了一个空格。

小妹丁

gcj12301发表于2005-4-5 7:57:00大哥，你

惨过叫我“姨记、阿婶“。成左男人婆，快点整容先，迟了没得医！

gcj12301

呵呵，不好意思！咱的眼神不好使啊！

gcj12301

谢谢哥哥姐姐们，我刚学很多语法不明白！以后希望大家多多帮助！