CAD2004畫三維螺紋

泵閥小群

我聽我一個朋友說以前他用過CAD2004里面有個命令輸進去可以出來螺紋的，請大家?guī)兔Γ�謝謝

寂靜天花板

你是指07版以上的autocad吧，04版沒有這個功能的。

泵閥小群

我那個朋友不會騙我吧，他說原來學的時候畫過，是照書上的一個指令，可惜他那本書掉了，07是可以用螺旋線的，不過還是謝謝你，以后有問題還有請教

luoxingming520

;;;-----------彈簧的程式----------  
(defun c:spring(/)  
( l+ t& L0 u  P$ Z2 A+ r: X& e(setq p1(getpoint "基點:"))  
4 x& m( b; I* _1 A(setq r(getreal "平均半徑:"))  
; O; D0 Z& a7 l; K7 D9 _; w; q4 v(setq d0(getreal "直徑:"))  
  D6 v6 X  R, b6 Y(setq disp(getreal "節(jié)距:"))  
* h8 o! r' i1 k(setq n0(getint "工作圈數(shù):"))  
(setq n(getint "細化段數(shù)(16/20/24/28/32/36/40/48/52/56/60/100):"))  
(setq n1(* 1.25 n)) ;支撐圈細化段數(shù)  
(setq n1(fix n1))  
  _$ Q* Z+ w( d(setq n2(* n0 n)) ;工作圈細化段數(shù)  
(setq delta(/ (* 2.0 pi) n)) ;單位轉(zhuǎn)角  
8 B2 p( r! b% Z2 M, o& F, E(setq j(/ disp n)) ;工作圈軸向位移量  
' _$ o  l4 Z7 g: B7 n8 r- L* j2 @9 |(setq j0(/ d0 n)) ;支撐圈軸向位移量  
(setq bb(caddr p1))  
. |! e; U4 f8 T; X9 T6 k(setq ang 0)  
(setq jj 0)  
2 G' f0 ?/ j) W: ^: S(command "ucs" "o" p1)  
(setq pt1(list r 0 0))  
(command "3dpoly" pt1)  
# F; ~! F% w: p& R6 y$ H7 I! m(repeat n1 ;繪製下支撐圈  
# O/ ^/ c# e7 D: k5 P( q(setq jj(+ jj 1))  
(setq ang(+ delta ang))  
3 s$ ?7 G" j# c( F* c; S- y(setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))  
(command pt)  
)  
5 p* M' a4 d0 V$ E(setq p2(list 0 0 (* j0 jj)))  
+ }3 S0 |% n5 ^, D- q/ U(setq g1(* j0 jj)) ;下支撐圈高度  
(setq jj 0)  
! u5 w& y# b1 l/ S6 w(repeat n2 ;繪製工作圈  
(setq jj(+ jj 1))  
2 r  T/ n8 q. J7 h) H$ e(setq ang(+ delta ang))  
& Q; F% ~! n( \3 C. e! f* L(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))  
(command pt)  
' K$ \: Q0 W/ Z# Y* O)  
! B/ g+ x* |* Y1 p(setq p3(list 0 0 (* j jj)))  
8 S! d, e& e: `(setq g2(* j jj)) ;工作圈高度  
3 |7 w, ]) A# \6 V2 [3 _0 E(setq jj 0)  
(repeat n1 ;繪製上支撐圈  
(setq jj(+ jj 1))  
0 H1 g8 H$ o: u! U- L(setq ang(+ delta ang))  
9 |- h7 v4 O; r$ W) h(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 g2 (* j0 jj))))  
(command pt)  
)  
(setq g3(* j0 jj)) ;上支撐圈高度  
0 `; j4 H( g1 f9 {3 R3 w(command "")  
+ E; A2 u# B& X3 A, p$ F& k2 r(setq e1(entlast))  
! G0 d" |% i, i8 g! k(command "ucs" "x" "") ;拉伸彈簧  
(command "circle" pt1 (/ d0 2))  
(setq e2(entlast))  
9 M- m( _* J# P, n: |4 s$ O9 ^3 v(command "extrude" e2 "" "p" e1)  
6 {  H1 }; g( r; C3 y; V6 y(setq e3(entlast))  
: d& h0 v% B" \  Z. Z(setq pt2(list r (/ d0 4) 0)) ;磨平  
& G# R1 m: t" e, Q2 w3 x(setq py(+ g1 g2 g3 (- 0 (/ d0 4))))  
(setq pt3(list (- 0 r) py 0))  
(command "slice" e3 "" "zx" pt2 pt3)  
: l, ?6 s2 @9 V, L. n5 T(command "slice" e3 "" "zx" pt3 pt2)  
4 e% m* j, M2 ^& Q* H  }" z' M(command "ucs" "w")  

)  
) O  e  f0 n3 ?1 w  f' e;;;---------end----------彈簧程式結(jié)束！
) X( G5 `& P3 Q" k兄臺把這個程序載入CAD就可以繪製3D彈簧了

愚樂中

以前一直沒搞出來，有機會試試，謝啦

學習“心”德

求螺紋？？