CAD2004畫三維螺紋

泵閥小群

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

寂靜天花板

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

泵閥小群

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

luoxingming520

;;;-----------彈簧的程式----------  
+ U2 t4 r2 a9 s) F* I(defun c:spring(/)  
: s& E. M6 K% ^. z- Y/ r. R(setq p1(getpoint "基點(diǎn):"))  
(setq r(getreal "平均半徑:"))  
; `, m7 c/ f" Q$ k8 ]/ K, Q$ L8 T(setq d0(getreal "直徑:"))  
(setq disp(getreal "節(jié)距:"))  
5 k  m5 ^. u( R% i4 b: _( s(setq n0(getint "工作圈數(shù):"))  
  s  i$ L% q2 S# M- h0 j(setq n(getint "細(xì)化段數(shù)(16/20/24/28/32/36/40/48/52/56/60/100):"))  
(setq n1(* 1.25 n)) ;支撐圈細(xì)化段數(shù)  
(setq n1(fix n1))  
& b1 _3 \. h# t6 {(setq n2(* n0 n)) ;工作圈細(xì)化段數(shù)  
(setq delta(/ (* 2.0 pi) n)) ;單位轉(zhuǎn)角  
(setq j(/ disp n)) ;工作圈軸向位移量  
" m- h/ f1 L3 T9 w) D! b(setq j0(/ d0 n)) ;支撐圈軸向位移量  
# ^$ G& c1 P. u6 v(setq bb(caddr p1))  
(setq ang 0)  
7 {& J1 p" K. H0 h3 e(setq jj 0)  
(command "ucs" "o" p1)  
* V  z$ S$ o+ A(setq pt1(list r 0 0))  
& W, A+ I- G) J$ M7 _" ?: @(command "3dpoly" pt1)  
: e. F6 D; p  i; v* o$ R(repeat n1 ;繪製下支撐圈  
(setq jj(+ jj 1))  
(setq ang(+ delta ang))  
(setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))  
8 Y* l" A; H; W: {( S, X* M(command pt)  
- G& F* p( N( t1 X! ~6 n)  
(setq p2(list 0 0 (* j0 jj)))  
" V/ \4 \( M, t7 _# c(setq g1(* j0 jj)) ;下支撐圈高度  
(setq jj 0)  
5 U: }! W" X; f- t7 h7 K(repeat n2 ;繪製工作圈  
(setq jj(+ jj 1))  
. d/ p5 J# s+ t8 P4 F(setq ang(+ delta ang))  
+ J5 m0 `5 P( W(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))  
(command pt)  
)  
# O: X" ]" }* G% g6 I(setq p3(list 0 0 (* j jj)))  
- Z% F5 B0 ?  m1 }* w7 W(setq g2(* j jj)) ;工作圈高度  
(setq jj 0)  
. x; a, B" h2 ]5 A9 {(repeat n1 ;繪製上支撐圈  
(setq jj(+ jj 1))  
(setq ang(+ delta ang))  
4 s) \9 B8 d. n) J' O(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 g2 (* j0 jj))))  
: o  W+ a( r/ d6 E(command pt)  
2 Q! Q4 B7 W0 Q* O)  
(setq g3(* j0 jj)) ;上支撐圈高度  
" h" X2 }" r1 u  d(command "")  
5 d7 T1 S- `9 x% b: n) a(setq e1(entlast))  
# ]; k( c; M9 C0 o* {; Z(command "ucs" "x" "") ;拉伸彈簧  
8 @; m; S3 Z, k! ]9 B(command "circle" pt1 (/ d0 2))  
(setq e2(entlast))  
) D; V# O) H# Z- n/ v& d- ?% P: g; G(command "extrude" e2 "" "p" e1)  
5 O" X! q) R4 \(setq e3(entlast))  
7 b' H& d, k  n( F+ F; _  W(setq pt2(list r (/ d0 4) 0)) ;磨平  
/ \; x. |# c$ B$ g(setq py(+ g1 g2 g3 (- 0 (/ d0 4))))  
6 f" K3 V7 l4 R  k. V(setq pt3(list (- 0 r) py 0))  
(command "slice" e3 "" "zx" pt2 pt3)  
(command "slice" e3 "" "zx" pt3 pt2)  
(command "ucs" "w")  

9 f8 g$ Q8 }- E( d8 e)  
- H: Z/ Z4 O" m;;;---------end----------彈簧程式結(jié)束,！
. w% f$ R9 h' E. s兄臺把這個程序載入CAD就可以繪製3D彈簧了

愚樂中

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

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

求螺紋,？,？