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

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

http://bbs.mjtd.com/skins/default/topicface/face1.gif
编了个程序做螺旋线，但是加载时候，提示有错误，不知道在那里，请指点？
(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

谢谢了　　？
页: [1]
查看完整版本: 求助？请高手点化一下？不胜感激？谢了？