求扭转弹簧的lisp编程

gfgyf007

下面是我已经有了的画弹簧的程序，可是怎么才能让它可以画出扭转弹簧的三维程序呢，请高手指点，非常感谢！！！

(defun C:spring()
  (setq bp (getpoint "\n 弹簧中心点"))
  y2 ~# u, x, }  (setq dw (getreal "\n 弹簧直径="))
  (setq d (getreal "\n 弹簧丝径="))
& i. W4 f# G9 `  s( l  (setq pitch (getreal "\n 弹簧节距="))
" x1 d. B7 d3 t  z4 o8 s  (setq len (getreal "\n 弹簧长度＝"))
5 _! P$ L/ x5 F7 F2 _1 {  (setq n (getint "\n 段数="))
/ B. ?& Y& q3 Y4 ?' G0 a. U  (setq r (/(- dw d)2))
5 b8 `" ?/ u" {3 Z, Y8 O; g% }2 t  (setq d1 (- d (* 1.0825 pitch)))
5 Y: D% _* G- m  L! L  (setq r1 (/ d1 2))
  (setq m1 (fix (* n 1.25)))
" q. v( n8 }0 |' M7 e* T  (setq m0 (fix (*n (/ (- len (* d 2)) pitch))))
) u# U8 a. a4 x) l/ H; F  g  (setq delta (/(* 2.0 pi)n))
  (setq j0 (/ pitch n ))
* k5 X8 F& S5 D8 C8 Y6 a  (setq j1 (/ d n ))
) f( ~4 M$ {0 b% u  L5 u  (setq bz (caddr bp ))
  (setq ang 0)
: R7 A: b* S6 ?- p  (setq jj 0 )
* |. ~7 N8 \8 c  Z; T3 w  (command "UCS" "o" bp )
4 \6 S; D7 L3 |. o  (command "3dpoly" (list r 0 0 ))
& h* p6 ^! e+ l, u  B  (repeat m1
7 a) B2 H. n6 m$ }    (setq jj (+ jj 1))
    (setq ang (+ delta ang ))
7 P( Z* f, ~6 h4 Q- R" q: i( ^, C    (setq pt1 (list (* r (cos ang ))(* r (sin ang ))(+ bz (* j1 jj))))
    (command pt1)
$ T7 a" ^; U9 Q! W; F) _5 s! r7 @  )
+ J/ y- ~# w" d% N. _: o  (setq bz (caddr pt1))
2 [$ J& g0 `9 [; |5 ?  (setq jj 0)
  (repeat m0
2 [* g0 [0 n' W0 Y' J' d* Z) E    (setq jj (+ jj 1))
' L) `! E8 Q% u7 [/ q    (setq ang (+ delta ang ))
    (setq pt0 (list (* r (cos ang ))(* r (sin ang ))(+ bz (* j0 jj))))
4 M! o4 @/ x  c2 d: M    (command pt0)
4 X' h0 V7 }5 \: Y" R  )
6 @5 B/ E/ P- b$ p* ?! i  (setq bz (caddr pt0))
  (setq jj 0)
  (repeat m1
! H3 P8 E5 S2 o" r    (setq jj (+ jj 1))
    (setq ang (+ delta ang ))
3 u$ @. x4 t2 U$ W/ j0 f    (setq pt2 (list (* r (cos ang ))(* r (sin ang ))(+ bz (* j1 jj))))
    (command pt2)
/ @3 \% Y8 A  E& g: y% f7 U  )
$ b) V# o, O( f% S, H+ w  (command "")
)

gfgyf007

唉，没人回复啊

DXP2004

不懂咋回复