急救！

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

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

(defunC:luoxian
9 P+ v& B/ u% g
(\)$ Q% S: H {! T3 r) G) x, s
(setq b1 (getpoint"指定螺旋线基点："))$ U) C3 @ r6 b0 Z% G9 f
(setq r(getreal"请输入螺纹平均半径：")), y( J" M5 A5 O2 @' R% v& B' a
(setq disp (getreal"请输入螺纹节距："))
7 g$ v' n" R j B% ]- |, t
(setq n (getint"请输入每圈细化段数:"))
& ~, N: Y8 o4 M; S8 i) f
(setq delta(|(*2.0pi)n))* G! T: i) g$ H9 S( o, L
(setq j (|disp n))
4 s; O% x; q) y6 h
(setq bb (caddr b1))2 }7 w8 ?* n+ j2 w8 [7 z
(setq and 0)
- `# j; j6 [" s' R, a
(setq jj 0)' R- o5 D9 M0 ~% r4 O2 b7 y2 ?
(Command"UCS""o"b1)
# b3 a& k' b2 \3 R4 ~
(Command"3dpoly"(list r 0 0))( }. P6 A/ X9 }* ]) k
(repeat n& I# @. }1 B2 P3 j4 I+ d
(setq jj(+jj))
+ {9 K5 s$ E/ M2 ^) _9 M5 V. z
(setq ang(+delta ang))' g/ {; J$ G1 I( Z
(setq pt2(list(*r(cos ang))(* r(sin ang))(+0*((j jj))))
, k. \) I2 Y* v; B+ s3 Y
(Command pt2)
) E8 ^! o; }+ d+ y l! z% d
)' E9 k w/ G# T; ^1 \) C
(Command"")
2 s, z- L2 Q8 @* v4 I
)

复制代码

这些命令时，加载后，在命令行中输入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)))) !!??? 您改成什么了

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

[求助] 急救！