螺旋线程序

LOVELYAREA

下面这个螺旋线程序，只能画一层螺旋线，还需要使用阵列才能实现多层螺旋线！画螺丝的时候每层螺纹接口处都会出现偏差！而且阵列之后不知道为什么这些线不能合并！！
$ R- E; K' |1 H请问可以把程序修改一下，直接就可以画出一条多层的螺旋线！这样就不用出现接口出衔接不上的问题了！


0 |8 T$ Y1 c  w( Y  h; l
% Z. W7 z! F- i6 n* l8 |+ B
: V) N! f. \  x: ?5 I* i把下面的程序导入cad ,就可以画螺纹了！（２００７以前的版本）．画螺纹的命令就是luox
+ A, E( X- S+ R: ~(defun C:luox(/)
(setq b1 (getpoint"请指定螺旋线基点:"))
4 A0 Z) `/ G% q4 P(setq r (getreal"请指定螺旋线的平均半径:"))
(setq disp ( getreal"请输入螺旋线节距:"))
(setq n (getint"请输入每圈细化段数:"))
: T' ?5 I  F  F( x% o(setq delta (/(* 2.0 pi) n))
! W/ A$ H" W& p2 s/ Q6 S. y3 J' C(setq j (/ disp n))
- x3 t. d) l% R' I(setq bb(caddr b1))
3 U& R7 F# x* Z6 D6 k$ i+ s/ C3 _$ m(setq ang 0)
" N# ?/ k3 V( V* y3 O(setq k 0)
(command "ucs" "o" b1)
; E) k( P6 v# O3 c0 Y(command "3dpoly" (list r 0 0))
2 ]/ Y" q" m8 a0 E& ~- b& M; W9 W(repeat n
* U7 F  N% K+ N3 h9 T7 f8 w) {. \) P   (setq k(+ k 1))
   (setq ang(+ delta ang))
7 C& c  t5 D& C2 m' Q+ x3 O/ p   (setq pt2(list (* r(cos ang)) (* r(sin ang)) (+ 0 (* j k))))
4 x. x1 H  X4 G- |5 _1 H2 M   (command pt2)
+ Z! O7 R. W  Z5 q8 f1 X3 R)
(command" ")
" Z! h5 H) o0 i' })

LOVELYAREA

你快出来啊！我说！

wvvei

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

雨天

呵呵,他不在吧

jicheng

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

zhouyuhui

这段程序应该可以了.你试一试!命令还是luox
(defun C:luox (/)
(setq b1 (getpoint"请输入基点:"))　　　
6 S/ R. c+ ~* f  @8 I- e$ x(setq r (getreal"半径:"))
; f$ o$ h# J0 t1 V; p(setq t1 (getreal"节距:"))
# U( w' t5 o; k(setq k (getint"段数:"))
8 ~6 i2 J& g( `3 Y0 j* y8 L(setq n (getint"圈数:"))　
(setq ta (/(* 2 3.14159) k))
# s5 c0 D/ G) S+ m6 Z- `6 A- N' z(setq j1 (/ t1 k))
! O- E$ l3 a; g5 F+ I- j2 Y2 V(setq a 0)
(setq jj 0)
* c2 O( K8 |; Q( t, E+ Q2 T(setq ii 0)
, G; ^: R5 Q& y' J' B(command "ucs" "o" b1)
(command "3dpoly" (list r 0 0))
(repeat n
(repeat k
(setq jj (+ jj 1))
(setq a (+ ta a))
; C9 {4 X% _' |- w6 Z: y8 I(setq x (* r (cos a)))
3 |- N/ r) ~$ C* n(setq y (* r (sin a)))
5 m; K: E7 Q7 b) B4 Q(setq z (* j1 jj))
(setq p2 (list x y z))
! G4 \/ S: Y9 @! n4 n) ~( u5 k" u: c(command p2)
' N& u: e+ D5 [2 K( E)
(setq ii (+ ii 1))
! D. k# S' D3 F6 D, ](setq z (* t1 ii))
)
(command "" )
)

LOVELYAREA

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