求助？请高手点化一下？不胜感激？谢了？

XYA10 · 发表于 2006-6-30 14:38:00

编了个程序做螺旋线，但是加载时候，提示有错误，不知道在那里，请指点？

(defun c:luoxian

(/)

(setq b1 (getpoint"指定螺旋线基点: "))

(setq r (getreal"请输入螺纹平均半径: "))

(setq disp (getreal"请输入螺纹节距: "))

(setq n (getint"请输入每圈细化段数: "))

(setq delta (/ (*2.0 pi)n))

(setq j (/ disp n))

(setq bb (caddr bl))

(setq and 0)

(setq jj 0)

(Command "UCS" "o" b1)

(command "3dpoly" (list r 0 0))

(repeat n

(setq jj (+jj))

(setq ang (+delta ang))

(setq pt2(list(*r(cos ang))(*r(sin ang))(+0*(j jj))))

(Command pt2)

)

(Command"")

)

362810200 · 发表于 2006-7-1 08:41:00

你来错地方了！

XYA10 · 发表于 2006-7-1 20:38:00

不好意思,版主,我在那个区发了N天,都没人里我,觉得这里人气好,才发到这里的?请帮帮我吧?谢谢了

guyuxian · 发表于 2006-7-2 09:18:00

这些程序我怎么看了就头晕呢？？？？？

xhq1954425 · 发表于 2006-7-2 10:34:00

先把有可能出错的语句变成注释行，再运行看看，如果还出错就说明变成注释行的语句没错，如果能正常运行就说明变成注释行的语句有错，这是用的排除法，调试程序很费劲，你不是自己调试吧！

362810200 · 发表于 2006-7-2 16:24:00

我不是怪你，我只想告诉你那里是专门的版块，会的人应该很多的！

只是我一时发快了。没有详细说明白！

XYA10 · 发表于 2006-7-3 13:11:00

谢谢了　　？

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