CAD2004畫三維螺紋

泵閥小群

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

寂靜天花板

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

泵閥小群

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

luoxingming520

;;;-----------彈簧的程式----------  
* ^6 j0 [& B" C* [0 J(defun c:spring(/)  
(setq p1(getpoint "基點:"))  
5 e$ ^( \. G. y0 ](setq r(getreal "平均半徑:"))  
(setq d0(getreal "直徑:"))  
; C, Z* G: j! ^(setq disp(getreal "節(jié)距:"))  
+ v! s+ Z# ~, ^& t6 W5 r5 n(setq n0(getint "工作圈數(shù):"))  
(setq n(getint "細(xì)化段數(shù)(16/20/24/28/32/36/40/48/52/56/60/100):"))  
(setq n1(* 1.25 n)) ;支撐圈細(xì)化段數(shù)  
* ^8 ~2 b; E. ?/ j* B(setq n1(fix n1))  
(setq n2(* n0 n)) ;工作圈細(xì)化段數(shù)  
(setq delta(/ (* 2.0 pi) n)) ;單位轉(zhuǎn)角  
(setq j(/ disp n)) ;工作圈軸向位移量  
(setq j0(/ d0 n)) ;支撐圈軸向位移量  
(setq bb(caddr p1))  
(setq ang 0)  
2 ~/ n8 A! \% T* E(setq jj 0)  
(command "ucs" "o" p1)  
* a5 _  `7 d( [& |' Q% Q- ?& c(setq pt1(list r 0 0))  
(command "3dpoly" pt1)  
(repeat n1 ;繪製下支撐圈  
(setq jj(+ jj 1))  
(setq ang(+ delta ang))  
(setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))  
5 w  `* O6 g6 f; R4 n(command pt)  
)  
* _( U" N8 }; O3 f" e' k' f9 w, q(setq p2(list 0 0 (* j0 jj)))  
+ d! _6 w0 @( p  C! g(setq g1(* j0 jj)) ;下支撐圈高度  
(setq jj 0)  
(repeat n2 ;繪製工作圈  
3 t4 {3 ^' u  y  ?(setq jj(+ jj 1))  
# S/ y( P% E- ]% O& {: G& `6 q& D(setq ang(+ delta ang))  
(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))  
(command pt)  
0 u, @- v& P7 _) k, ^)  
/ S, K0 }" i  ?(setq p3(list 0 0 (* j jj)))  
' d3 w+ L1 z& ~) M3 ]( {(setq g2(* j jj)) ;工作圈高度  
1 g- m2 V" q$ t(setq jj 0)  
(repeat n1 ;繪製上支撐圈  
* ?: N* u% [8 w(setq jj(+ jj 1))  
6 y( f0 m* h% \, r1 X% `(setq ang(+ delta ang))  
% D5 W# {/ s" u( |6 e(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 g2 (* j0 jj))))  
* l8 p, a2 u$ N(command pt)  
)  
(setq g3(* j0 jj)) ;上支撐圈高度  
* ^1 @  G+ H: Y3 x  w9 v(command "")  
(setq e1(entlast))  
5 z# Z) ~0 t: `4 Z& c( A(command "ucs" "x" "") ;拉伸彈簧  
(command "circle" pt1 (/ d0 2))  
(setq e2(entlast))  
$ U* A) P, s) X. c3 m* l/ Z( o(command "extrude" e2 "" "p" e1)  
(setq e3(entlast))  
1 K% f6 C# E" }2 V) G) ^" b(setq pt2(list r (/ d0 4) 0)) ;磨平  
* b2 q+ u! c/ X9 ]3 W  U; X(setq py(+ g1 g2 g3 (- 0 (/ d0 4))))  
/ A( E! z- m" z# Q7 p( \(setq pt3(list (- 0 r) py 0))  
(command "slice" e3 "" "zx" pt2 pt3)  
(command "slice" e3 "" "zx" pt3 pt2)  
(command "ucs" "w")  
- M: ?5 q; t0 _! p
$ W# f& F. w- r+ a* b1 Y+ l)  
8 N( a+ Z: I3 a) U$ |' `;;;---------end----------彈簧程式結(jié)束,！
! E' X7 ]: \$ B$ d  S. Q  h3 E兄臺把這個程序載入CAD就可以繪製3D彈簧了

愚樂中

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

學(xué)習(xí)“心”德

求螺紋,？？