急救！

dpw 发表于 2010-11-14 14:24

好久没在上面发帖了！最近在学习，没有时间，现在又一些问题想求助大家！。。。。。问题是我在用CAD2005做螺线是输入了
(defunC:luoxian
(\)
(setq b1 (getpoint"指定螺旋线基点："))
(setq r(getreal"请输入螺纹平均半径："))
(setq disp (getreal"请输入螺纹节距："))
(setq n (getint"请输入每圈细化段数:"))
(setq delta(|(*2.0pi)n))
(setq j (|disp n))
(setq bb (caddr b1))
(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"")
   )
这些命令时，加载后，在命令行中输入luoxian，它的提示是按f1帮助，这不是表明没加载成功吗，无法使用，但是我确实是加载成功了！我试了好几次都不行！求大家慷慨解囊1给些意见！谢谢！我的成长希望能得到大家的见证！

Camello 发表于 2010-11-14 14:47

错误大多
请先调整出该有的空格
(defunC:luoxian ===> (defun C:luoxian
其下还有更多.....
(setq delta(|(*2.0pi)n)) !!??:L

最好上传文件,被加料后想调试都难

xhq1954425 发表于 2010-11-14 15:03

(+0*表示什么？(\)也没有这样写的呀？ (setq delta(|(*2.0pi)n))中许多必要的空格都没有……
差太多了。

dpw 发表于 2010-11-15 15:45

回复 #2 Camello 的帖子

我会尽快在这几天把文件上传！先谢谢你！:) 我是自学CAD的，希望您多加帮助！

dpw 发表于 2010-11-15 15:54

回复 #3 xhq1954425 的帖子

哦！关于空格我没注意！以后会注意的！谢谢！关于空格还有其他的要求吗?顺便问一下！您知不知道一些关于AUTOLISP的书，我这方面的知识缺的太很,最好是基础教程的！我自学的！先谢谢您了！以后还希望您多多指点！:)

dpw 发表于 2010-11-17 12:07

请大家看一下哪里错了！谢谢了！

dpw 发表于 2010-11-17 12:11

这是什么意思？搞不懂？

xhq1954425 发表于 2010-11-17 13:30

是原文件存贮地址变更了，找不到了！

xhq1954425 发表于 2010-11-17 13:31

把它删掉，重新打开一个！

dpw 发表于 2010-11-17 14:17

回复 #9 xhq1954425 的帖子

我从新建个文件，但是加载后，还是不行！恼火！你可能把制造螺线的步骤展示一下！主要是加载lsp命令，然后实行！我在这老犯晕！我一下午都在线，我等你回贴！谢谢了！我急需学会这个，要不然后面的没法再做了！谢谢了！等你回帖！:)

xhq1954425 发表于 2010-11-17 18:31

我白天一点空余时间都没有，只是早晚上来看看

[ 本帖最后由 xhq1954425 于 2010-11-17 18:36 编辑 ]

Camello 发表于 2010-11-17 22:12

回复 #7 dpw 的帖子

(setq j (/ disp n))
==>
(setq j (/ disp n 1.0))

(setq and 0)
==>
(setq ang 0)

(setq jj(+jj 1))
==>
(setq jj (1+ jj))

... (+0*((j jj))))!!???

dpw 发表于 2010-11-19 21:07

回复 #11 xhq1954425 的帖子

谢谢了！我在试试吧！

dpw 发表于 2010-11-19 21:20

回复 #12 Camello 的帖子

不行！改过了还是加载不成！程序没有其他的问题了吗？帮忙可能把制作螺线的命令完整步骤发过来！谢谢了！:)

Camello 发表于 2010-11-19 22:35

这句... (+0*((j jj)))) !!???您改成什么了

页: [1] 2