求扭转弹簧的lisp编程

gfgyf007

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

(defun C:spring()
  (setq bp (getpoint "\n 弹簧中心点"))
  (setq dw (getreal "\n 弹簧直径="))
2 d' O( x" B3 `6 W+ I. J  (setq d (getreal "\n 弹簧丝径="))
) c2 T1 j. |/ P; V3 s( h  (setq pitch (getreal "\n 弹簧节距="))
  (setq len (getreal "\n 弹簧长度＝"))
) A+ Q* z! @1 c3 q* j  (setq n (getint "\n 段数="))
* a9 `( X2 Y% {2 t" X) I# }6 D  (setq r (/(- dw d)2))
  (setq d1 (- d (* 1.0825 pitch)))
  (setq r1 (/ d1 2))
5 Y' b4 f$ O1 I& R  r9 _. b* y6 L. z  (setq m1 (fix (* n 1.25)))
  (setq m0 (fix (*n (/ (- len (* d 2)) pitch))))
  (setq delta (/(* 2.0 pi)n))
# G" ?; |+ [" ?' d3 k9 C  (setq j0 (/ pitch n ))
: T8 Y9 c5 e6 Z0 \# b1 w  (setq j1 (/ d n ))
  (setq bz (caddr bp ))
4 D+ |9 V/ m9 @) s7 G# ~2 T: Q  (setq ang 0)
* V- h7 o' t5 S4 L+ f( m  (setq jj 0 )
  (command "UCS" "o" bp )
  (command "3dpoly" (list r 0 0 ))
: [' s/ e- }# \1 u8 G  (repeat m1
    (setq jj (+ jj 1))
( p8 i) y/ \) P7 p    (setq ang (+ delta ang ))
$ a" l) b0 R' E/ [! T    (setq pt1 (list (* r (cos ang ))(* r (sin ang ))(+ bz (* j1 jj))))
    (command pt1)
, Q5 `% {, l' {" w! G  )
5 r! Y. K6 t* \8 z' m- D  (setq bz (caddr pt1))
! n7 _2 G5 R3 ~" i% H9 E  (setq jj 0)
+ J$ \5 f. n0 m7 h7 W3 ^. G' h  (repeat m0
    (setq jj (+ jj 1))
5 [+ X% ]5 C' W  [" r9 Q    (setq ang (+ delta ang ))
9 {; |% T! K4 n+ b* d    (setq pt0 (list (* r (cos ang ))(* r (sin ang ))(+ bz (* j0 jj))))
    (command pt0)
! U$ U1 Z( k# _( O9 B  )
  (setq bz (caddr pt0))
& `* \2 [  F  h" d  (setq jj 0)
  (repeat m1
: A3 r6 U% j4 {, w. `" [1 R) Z+ K    (setq jj (+ jj 1))
  C5 A0 i# C% Z4 F9 C* t" G& ?  W1 q6 |    (setq ang (+ delta ang ))
' x" {9 \' T7 W6 c/ r8 Y; g    (setq pt2 (list (* r (cos ang ))(* r (sin ang ))(+ bz (* j1 jj))))
: t8 X3 d2 M5 C- k* f8 o    (command pt2)
  )
  (command "")
, [4 a9 k" m4 n* s7 L/ v$ H) l)

gfgyf007

唉，没人回复啊

DXP2004

不懂咋回复