急救！

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

好久没在上面发帖了！最近在学习，没有时间，现在又一些问题想求助大家！。。。。。问题是我在用CAD2005做螺线是输入了

(defunC:luoxian
+ M! S' p. S& G( n7 p
(\)
, l7 `+ j6 e" S2 d
(setq b1 (getpoint"指定螺旋线基点："))
4 k- y! W! r# `! J4 l9 w% i
(setq r(getreal"请输入螺纹平均半径："))
8 x+ f- O e; t @& o
(setq disp (getreal"请输入螺纹节距："))
8 A8 C! E5 W1 h, [! v
(setq n (getint"请输入每圈细化段数:")) \% u' S0 {$ L+ T0 H) m
(setq delta(|(*2.0pi)n))
(setq j (|disp n))' Z; K9 Z& \) S. R. O+ O8 V- {" h
(setq bb (caddr b1)): q# a9 M: v5 w1 ^& ]/ K$ h
(setq and 0)0 ]% d6 E+ t% t% g6 b: B
(setq jj 0)
# t A; q* A' q& p0 D7 ~3 U0 Q
(Command"UCS""o"b1)8 V. v# u2 ~9 [+ Q1 `* R2 q
(Command"3dpoly"(list r 0 0))
, h+ O A% H* ~$ t$ a
(repeat n
6 k: o8 c" B1 d' [( ]
(setq jj(+jj))
5 B, \" l( O9 e# X; r- b$ A
(setq ang(+delta ang))* S' k; g% Z' A9 O4 [6 Q7 {
(setq pt2(list(*r(cos ang))(* r(sin ang))(+0*((j jj))))
3 z! l) L# B3 F/ L# I% U
(Command pt2)
z$ p M9 G( [! h0 g
)
2 T g$ @: L' B9 T: W) |# x
(Command"")
( ?0 J1 V) D3 A/ ^
)

复制代码

这些命令时，加载后，在命令行中输入luoxian，它的提示是按f1帮助，这不是表明没加载成功吗，无法使用，但是我确实是加载成功了！我试了好几次都不行！求大家慷慨解囊1给些意见！谢谢！我的成长希望能得到大家的见证！

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

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

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

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

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

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

我会尽快在这几天把文件上传！先谢谢你！

我是自学CAD的，希望您多加帮助！

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

哦！关于空格我没注意！以后会注意的！谢谢！关于空格还有其他的要求吗?顺便问一下！您知不知道一些关于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

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

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

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

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

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

(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

谢谢了！我在试试吧！

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

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

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

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

		自动登录	找回密码
密码			立即注册

[求助] 急救！