螺旋线程序

LOVELYAREA

下面这个螺旋线程序，只能画一层螺旋线，还需要使用阵列才能实现多层螺旋线！画螺丝的时候每层螺纹接口处都会出现偏差！而且阵列之后不知道为什么这些线不能合并！！
请问可以把程序修改一下，直接就可以画出一条多层的螺旋线！这样就不用出现接口出衔接不上的问题了！
; {$ R( U! C; O" g3 _6 R5 Q0 A
8 e  p  U8 r6 t' e( O
1 `4 C+ I6 A$ [' X% I+ o- O6 r
- y: x/ N# W. `' A4 O" h! s
0 J! x3 e# }& E) `; n5 u: |. q$ }$ c把下面的程序导入cad ,就可以画螺纹了！（２００７以前的版本）．画螺纹的命令就是luox
" x! t5 V! q: ^(defun C:luox(/)
& Z6 _5 O7 |0 x/ N/ O$ c(setq b1 (getpoint"请指定螺旋线基点:"))
, A" o' M( O4 `! C# D. a" ^8 ](setq r (getreal"请指定螺旋线的平均半径:"))
(setq disp ( getreal"请输入螺旋线节距:"))
( S3 N' W+ y  u7 ~' j(setq n (getint"请输入每圈细化段数:"))
1 j% m: \, _0 Y: j! _8 j( _5 {(setq delta (/(* 2.0 pi) n))
(setq j (/ disp n))
(setq bb(caddr b1))
1 _# o! z4 B- }. t) ~; k- B(setq ang 0)
3 j& M5 l1 C' x( }; v(setq k 0)
(command "ucs" "o" b1)
(command "3dpoly" (list r 0 0))
( n+ B! q& }" O) r8 y& p4 [+ ~(repeat n
   (setq k(+ k 1))
; G% ^/ p3 W# t4 q1 }' N9 d   (setq ang(+ delta ang))
   (setq pt2(list (* r(cos ang)) (* r(sin ang)) (+ 0 (* j k))))
# K3 m/ ~" a4 U( c+ V6 j( {   (command pt2)
/ s+ Y0 C# {7 h" D* o* D* f2 B9 a)
) ?5 j7 {# x$ b! ?9 ^$ J' s(command" ")
- h- i& k9 c$ G7 a3 e% ~)

LOVELYAREA

你快出来啊！我说！

wvvei

下次我碰到他的时候顺便帮你提醒提醒他哦

雨天

呵呵,他不在吧

jicheng

如果你的CAD版本是07的话，里面有，无需编程序。

zhouyuhui

这段程序应该可以了.你试一试!命令还是luox
2 `) M$ D$ t. r. z(defun C:luox (/)
(setq b1 (getpoint"请输入基点:"))　　　
(setq r (getreal"半径:"))
(setq t1 (getreal"节距:"))
/ _$ |' c6 Y2 @# |" R  X# p& F' k(setq k (getint"段数:"))
(setq n (getint"圈数:"))　
% C0 X* r% U/ ^" w; G(setq ta (/(* 2 3.14159) k))
(setq j1 (/ t1 k))
(setq a 0)
(setq jj 0)
) r7 O: Z0 C7 r( ?1 y5 w(setq ii 0)
- E0 n( H! V9 F9 G" ?1 [4 ?(command "ucs" "o" b1)
(command "3dpoly" (list r 0 0))
" O* h/ m" S" m6 J2 R(repeat n
0 Y& {6 C& z0 R0 E% B0 q(repeat k
  Y( V6 Q" D9 x: G3 Q(setq jj (+ jj 1))
; z8 G5 y1 I# K; u, L9 m5 U: t(setq a (+ ta a))
/ ^7 [9 _& t/ s9 Q7 @3 J(setq x (* r (cos a)))
- O! J, s2 A$ d+ u& N: `(setq y (* r (sin a)))
(setq z (* j1 jj))
+ j4 p$ K1 c2 ?1 A9 Q. _(setq p2 (list x y z))
. j$ ?( Q  \- y% P, B; h5 a(command p2)
)
(setq ii (+ ii 1))
(setq z (* t1 ii))
8 N( \& q, k- u2 M1 a) v: v)
(command "" )
)

LOVELYAREA

zhouyuhui太谢谢了！我画出来了！
3 I6 o, K( _: P: z' J( }5 M3 Z! C) q1 }谢谢大家啊！！！我终于画出来了！
我昨天用了各种方法就是不能画出来！！！