急救！

dpw

好久没在上面发帖了！最近在学习，没有时间，现在又一些问题想求助大家！ 。。。。。问题是我在用CAD2005做螺线是输入了
( N. q# K. e9 w7 D: R( h

1. (defunC:luoxian
   / |+ Y3 ~0 R5 J/ ~8 U- w
2.      (\)
   
3.      (setq b1 (getpoint"指定螺旋线基点："))
   * q; Q4 }" p8 K$ I5 v. z1 u; u
4.      (setq r(getreal"请输入螺纹平均半径："))
   
5.      (setq disp (getreal"请输入螺纹节距："))
   
6.      (setq n (getint"请输入每圈细化段数:"))
   1 U- S% q& c1 h, h
7.      (setq delta(|(*2.0pi)n))
   ; k  {# L- D0 @
8.      (setq j (|disp n))
   : j; X( Y" v5 `8 p
9.      (setq bb (caddr b1))
   
10.      (setq and 0)
    ) b" |  P& a) Q  z5 C, F3 F
11.      (setq jj 0)
    
12.      (Command"UCS""o"b1)
    6 ^  z$ |$ A) J
13.      (Command"3dpoly"(list r 0 0))
    
14.      (repeat n
    " B& ~# m0 g1 r; P8 |
15.          (setq jj(+jj))
    
16.          (setq ang(+delta ang))
    
17.          (setq pt2(list(*r(cos ang))(* r(sin ang))(+0*((j jj))))
    , x7 X, S2 ?2 R* L5 ?% K4 O& ?
18.   (Command pt2)
    1 v' [4 s# f4 S" M0 E4 |) @5 H: b
19. )
    8 e# _5 g& y, E6 E
20.        (Command"")
    
21.        )

复制代码

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

Camello

错误大多
4 r# w* j; O/ ]2 G6 V/ p请先调整出该有的空格
% H/ @/ h& b$ \4 d. |3 G$ x) W(defunC:luoxian ===> (defun C:luoxian
3 Y5 B8 q0 J7 T9 n$ {) x其下还有更多.....
1 s, k) S& ]6 L1 l" D! o) J. O (setq delta(|(*2.0pi)n)) !!??
- x) C& \' p7 |8 \& m+ s) R3 t
. J2 M, ^8 H( j' }4 h6 V最好上传文件,被加料后想调试都难

xhq1954425

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

dpw

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

dpw

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

dpw

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

dpw

这是什么意思？搞不懂？

xhq1954425

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

xhq1954425

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

dpw

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

xhq1954425

我白天一点空余时间都没有，只是早晚上来看看
4 i$ `0 F5 m) k/ F* c7 Y: d
: M' @6 r  g$ c" s- }

9 Y* R, v4 {5 K! W% g+ n. z[ 本帖最后由 xhq1954425 于 2010-11-17 18:36 编辑 ]

Camello

(setq j (/ disp n))
/ A; V2 P5 ^) L4 U- D==>
1 C  L8 E" o1 d8 f( E' j9 M: f(setq j (/ disp n 1.0))
$ m, r% m& r+ _: m( d, L

! ^$ i% w7 Z, c, p4 o- m: |5 p; n(setq and 0)
  T+ _5 Z( r+ v) T% v==>
5 ]9 }7 L8 C# f(setq ang 0)
* G0 ~2 j2 D6 ]  p9 z; E/ ~
(setq jj(+jj 1))
==>
(setq jj (1+ jj))

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

dpw

谢谢了！ 我在试试吧！

dpw

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

Camello

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