螺旋线程序

LOVELYAREA

下面这个螺旋线程序，只能画一层螺旋线，还需要使用阵列才能实现多层螺旋线！画螺丝的时候每层螺纹接口处都会出现偏差！而且阵列之后不知道为什么这些线不能合并！！
请问可以把程序修改一下，直接就可以画出一条多层的螺旋线！这样就不用出现接口出衔接不上的问题了！
. l+ k1 h' g" b) M0 P9 `- c$ o) l$ e6 W
" D, y/ g( k) i% M
, C" B: u/ n; J- F! ^* K

把下面的程序导入cad ,就可以画螺纹了！（２００７以前的版本）．画螺纹的命令就是luox
. |$ ]9 q' g) Q3 w" Q. r! D(defun C:luox(/)
(setq b1 (getpoint"请指定螺旋线基点:"))
(setq r (getreal"请指定螺旋线的平均半径:"))
* w6 I  H0 S. v" V2 Y1 F(setq disp ( getreal"请输入螺旋线节距:"))
(setq n (getint"请输入每圈细化段数:"))
/ k( v& t  z/ @5 B(setq delta (/(* 2.0 pi) n))
( O: }# a; N7 u6 V" P(setq j (/ disp n))
(setq bb(caddr b1))
(setq ang 0)
(setq k 0)
(command "ucs" "o" b1)
2 P% k/ M5 e0 @( _$ z) F" d- I(command "3dpoly" (list r 0 0))
(repeat n
   (setq k(+ k 1))
   (setq ang(+ delta ang))
   (setq pt2(list (* r(cos ang)) (* r(sin ang)) (+ 0 (* j k))))
+ ^: x& r& z! o7 {  V2 B" b   (command pt2)
8 ^* \1 L% K& |: r)
% ~9 ~+ r6 y5 ~  J  |/ }# o/ q(command" ")
1 {/ t' r! R# C) r7 z)

LOVELYAREA

你快出来啊！我说！

wvvei

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

雨天

呵呵,他不在吧

jicheng

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

zhouyuhui

这段程序应该可以了.你试一试!命令还是luox
$ P( a. Y5 k/ q& G) v; o(defun C:luox (/)
  y9 f7 }( [' ~3 w(setq b1 (getpoint"请输入基点:"))　　　
* g4 W4 y4 l9 u5 F(setq r (getreal"半径:"))
3 F4 q! M7 P0 W4 B% x- i  f(setq t1 (getreal"节距:"))
(setq k (getint"段数:"))
(setq n (getint"圈数:"))　
5 x5 [* C5 ]* f1 B(setq ta (/(* 2 3.14159) k))
& W& @# {# I3 t7 T: f" K! r( K% B6 e) S(setq j1 (/ t1 k))
(setq a 0)
# v5 U3 j& i( v9 F- x2 ~' G(setq jj 0)
6 K8 B$ s2 g" j8 g. S7 w(setq ii 0)
& y# |- X  z* x# Q(command "ucs" "o" b1)
(command "3dpoly" (list r 0 0))
0 |; A8 e/ o4 F  ?+ R7 ](repeat n
  W: k/ n7 z+ U# A(repeat k
; k& g, D: X7 d  w/ c. B* {(setq jj (+ jj 1))
* @- o) D& p& u: X5 c(setq a (+ ta a))
# ]! q, |& k; H  [6 Q9 Y(setq x (* r (cos a)))
0 l0 d4 X: a3 Y+ G9 X! |2 H, O(setq y (* r (sin a)))
(setq z (* j1 jj))
- `' [5 ^2 c7 ?) }4 I# J% n3 @3 I(setq p2 (list x y z))
; Q0 ~. e1 O) E4 y" V(command p2)
)
(setq ii (+ ii 1))
(setq z (* t1 ii))
)
(command "" )
8 D2 E, [! [1 s: })

LOVELYAREA

zhouyuhui太谢谢了！我画出来了！
谢谢大家啊！！！我终于画出来了！
我昨天用了各种方法就是不能画出来！！！