螺旋线程序

LOVELYAREA

下面这个螺旋线程序，只能画一层螺旋线，还需要使用阵列才能实现多层螺旋线！画螺丝的时候每层螺纹接口处都会出现偏差！而且阵列之后不知道为什么这些线不能合并！！
9 Z3 H: ^% h3 q7 d  c1 F请问可以把程序修改一下，直接就可以画出一条多层的螺旋线！这样就不用出现接口出衔接不上的问题了！
2 A1 b/ Z8 F% h8 C

8 z7 @+ n5 d8 _* A

把下面的程序导入cad ,就可以画螺纹了！（２００７以前的版本）．画螺纹的命令就是luox
$ H, U2 f9 }, S/ \7 T(defun C:luox(/)
(setq b1 (getpoint"请指定螺旋线基点:"))
(setq r (getreal"请指定螺旋线的平均半径:"))
) P2 z) m2 o$ k- n/ @, f3 \(setq disp ( getreal"请输入螺旋线节距:"))
(setq n (getint"请输入每圈细化段数:"))
* Q6 F; o0 h$ ~/ `; O. P; O4 T(setq delta (/(* 2.0 pi) n))
8 ^" |6 {. ]# s( c( b; U- `- T(setq j (/ disp n))
5 C2 u) h4 Q2 r: x* T+ l) C& o8 i(setq bb(caddr b1))
(setq ang 0)
* e9 h4 B% _7 M) r$ g' P4 w1 z(setq k 0)
( A' |6 t; d. G" l9 y1 G: t! w(command "ucs" "o" b1)
& R' H: [/ N' v9 j(command "3dpoly" (list r 0 0))
4 R: f& |( d3 X9 ^+ o3 V(repeat n
   (setq k(+ k 1))
0 r$ F. M5 H& _) ~' q3 z, u, H* }   (setq ang(+ delta ang))
   (setq pt2(list (* r(cos ang)) (* r(sin ang)) (+ 0 (* j k))))
   (command pt2)
: p4 \) f  O# [' W)
5 d) N5 \, U- t(command" ")
)

LOVELYAREA

你快出来啊！我说！

wvvei

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

雨天

呵呵,他不在吧

jicheng

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

zhouyuhui

这段程序应该可以了.你试一试!命令还是luox
' A1 ?7 b. a: R(defun C:luox (/)
(setq b1 (getpoint"请输入基点:"))　　　
(setq r (getreal"半径:"))
(setq t1 (getreal"节距:"))
. Z# B. M+ ]4 W7 j' K" U$ {. }9 g(setq k (getint"段数:"))
(setq n (getint"圈数:"))　
1 E2 b' T: W, e- d4 C$ E(setq ta (/(* 2 3.14159) k))
(setq j1 (/ t1 k))
(setq a 0)
(setq jj 0)
(setq ii 0)
(command "ucs" "o" b1)
(command "3dpoly" (list r 0 0))
( l; k+ l& \* }, m- ~' h(repeat n
(repeat k
(setq jj (+ jj 1))
" N. ~& \$ i; }( N3 V% Z; L  M(setq a (+ ta a))
. o2 U( S" d5 ~& @* O9 W1 s0 v(setq x (* r (cos a)))
(setq y (* r (sin a)))
(setq z (* j1 jj))
(setq p2 (list x y z))
$ F8 w2 A5 L. D' W& V: [$ o(command p2)
5 A: `  b  L9 ]0 }* F. ~: n)
- K0 L# [- I. ^  H% J& X& j3 ~(setq ii (+ ii 1))
(setq z (* t1 ii))
)
" g- q, F1 j  p; L(command "" )
)

LOVELYAREA

zhouyuhui太谢谢了！我画出来了！
! ]1 }( R6 v% ^谢谢大家啊！！！我终于画出来了！
我昨天用了各种方法就是不能画出来！！！