急救！

dpw

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

1. (defunC:luoxian
   
2.      (\)
   9 l+ l; k9 o  W
3.      (setq b1 (getpoint"指定螺旋线基点："))
   
4.      (setq r(getreal"请输入螺纹平均半径："))
   3 E( |6 V! W2 U( F0 z3 F+ r6 z: C" g
5.      (setq disp (getreal"请输入螺纹节距："))
   ' S9 a2 q& D# C9 m' H" M* C
6.      (setq n (getint"请输入每圈细化段数:"))
   
7.      (setq delta(|(*2.0pi)n))
   % _9 l9 M! Q) ^  p" T& J
8.      (setq j (|disp n))
   
9.      (setq bb (caddr b1))
   2 W& _8 i4 Y: o2 ~% u8 C% q" j
10.      (setq and 0)
    7 A6 Z) |& F9 e# Q
11.      (setq jj 0)
    ) r6 v" h5 a& O8 i/ M) a
12.      (Command"UCS""o"b1)
    
13.      (Command"3dpoly"(list r 0 0))
    
14.      (repeat n
    
15.          (setq jj(+jj))
    * Q1 Q5 s% X4 i. J" M4 _
16.          (setq ang(+delta ang))
    5 R6 g: h. F3 b
17.          (setq pt2(list(*r(cos ang))(* r(sin ang))(+0*((j jj))))
    
18.   (Command pt2)
    
19. )
    8 F2 ~" F" T* l: c; d6 N& B
20.        (Command"")
    : m2 g9 d- t/ l+ G8 K+ X
21.        )

复制代码

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

Camello

错误大多
3 s- d% Q4 p: q) }0 ~$ O请先调整出该有的空格
5 ?9 B9 Q, e. e. q9 B4 t; b% B( o(defunC:luoxian ===> (defun C:luoxian
1 F4 H  O" f" F8 |1 u其下还有更多.....
9 Y$ U" g- V; }# e8 ~5 O" _- F (setq delta(|(*2.0pi)n)) !!??
. s' V# T0 T% b
最好上传文件,被加料后想调试都难

xhq1954425

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

dpw

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

dpw

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

dpw

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

dpw

这是什么意思？搞不懂？

xhq1954425

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

xhq1954425

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

dpw

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

xhq1954425

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

* r6 [: p  [; m/ \( @5 V2 e+ G

7 D' ~! H; I% K[ 本帖最后由 xhq1954425 于 2010-11-17 18:36 编辑 ]

Camello

(setq j (/ disp n))
8 i" G7 _. N9 ~2 D8 W# u==>
(setq j (/ disp n 1.0))


: }0 n" |* e$ O; d* ?% x: X) Z(setq and 0)
==>
  V. P' p. d* E2 f" [(setq ang 0)
) a4 @  N3 M& |) v0 J
; T7 }& @( j, h(setq jj(+jj 1))
3 F- e9 d; d2 o==>
2 P; ~* S& l8 N. Q1 w7 U* F; c3 K(setq jj (1+ jj))
9 {; b  j  z* g. R! Q
- ~9 {; s9 z* _  u! S1 E- h) B... (+0*((j jj))))  !!???

dpw

谢谢了！ 我在试试吧！

dpw

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

Camello

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