CAD2004畫三維螺紋

泵閥小群

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

寂靜天花板

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

泵閥小群

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

luoxingming520

;;;-----------彈簧的程式----------  
(defun c:spring(/)  
(setq p1(getpoint "基點(diǎn):"))  
(setq r(getreal "平均半徑:"))  
(setq d0(getreal "直徑:"))  
(setq disp(getreal "節(jié)距:"))  
- b+ b7 A. F7 B% q- r1 e(setq n0(getint "工作圈數(shù):"))  
% m/ p; F) T, x  Z! K: i(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))  
(setq n2(* n0 n)) ;工作圈細(xì)化段數(shù)  
5 s1 A9 X9 N( G2 N(setq delta(/ (* 2.0 pi) n)) ;單位轉(zhuǎn)角  
  S4 s) u' c6 ~! g! X7 U3 i  B(setq j(/ disp n)) ;工作圈軸向位移量  
(setq j0(/ d0 n)) ;支撐圈軸向位移量  
(setq bb(caddr p1))  
(setq ang 0)  
: S# F; y7 W2 B$ F1 X  [(setq jj 0)  
(command "ucs" "o" p1)  
0 Y; ^$ ]6 Z& \/ e- T* b9 V( w- z(setq pt1(list r 0 0))  
8 a( y( y3 v+ J& I  _3 \. A' P% X(command "3dpoly" pt1)  
(repeat n1 ;繪製下支撐圈  
(setq jj(+ jj 1))  
4 h! a/ J* X9 e6 \; C(setq ang(+ delta ang))  
1 j3 \& G6 r1 t(setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))  
(command pt)  
0 y9 N" L* b. ~: ^2 l+ `)  
(setq p2(list 0 0 (* j0 jj)))  
' _0 g. l( l: S1 K9 W(setq g1(* j0 jj)) ;下支撐圈高度  
8 @$ o0 H2 E% v2 Z: G; T. v(setq jj 0)  
5 d$ z3 t9 ^7 D& N3 {(repeat n2 ;繪製工作圈  
2 ^+ f2 E8 l9 D6 P4 }( p% o(setq jj(+ jj 1))  
(setq ang(+ delta ang))  
) j) u# P5 T2 k$ x/ C7 ^( T(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))  
(command pt)  
)  
(setq p3(list 0 0 (* j jj)))  
(setq g2(* j jj)) ;工作圈高度  
2 b& B. M) v* N7 h; b3 y(setq jj 0)  
8 z2 [( k, B8 r(repeat n1 ;繪製上支撐圈  
/ o1 v. u: M2 ~# V. N. X8 V# \(setq jj(+ jj 1))  
- C# J! [9 j" q; Q8 k(setq ang(+ delta ang))  
(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 g2 (* j0 jj))))  
(command pt)  
)  
$ z, P3 [  E1 `) h" t(setq g3(* j0 jj)) ;上支撐圈高度  
1 k# I. O2 q1 [. K# p! k, u+ f(command "")  
( {, r1 D* Y0 D5 B3 t/ L& T(setq e1(entlast))  
(command "ucs" "x" "") ;拉伸彈簧  
(command "circle" pt1 (/ d0 2))  
/ |: K$ T0 M: b" M(setq e2(entlast))  
(command "extrude" e2 "" "p" e1)  
5 G9 @$ N5 q! T" b6 m( R(setq e3(entlast))  
(setq pt2(list r (/ d0 4) 0)) ;磨平  
3 G# q+ E0 u! Q(setq py(+ g1 g2 g3 (- 0 (/ d0 4))))  
(setq pt3(list (- 0 r) py 0))  
* Y: ^6 m, S9 j; F8 e8 d6 J(command "slice" e3 "" "zx" pt2 pt3)  
' m: H7 K0 h' D' O5 d(command "slice" e3 "" "zx" pt3 pt2)  
) ]6 \5 P" L  t# Y8 I- `(command "ucs" "w")  
9 n; P) |) A" ]+ ^
)  
;;;---------end----------彈簧程式結(jié)束,！
兄臺(tái)把這個(gè)程序載入CAD就可以繪製3D彈簧了

愚樂中

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

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

求螺紋,？,？