CAD2004畫三維螺紋

泵閥小群

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

寂靜天花板

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

泵閥小群

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

luoxingming520

;;;-----------彈簧的程式----------  
(defun c:spring(/)  
(setq p1(getpoint "基點(diǎn):"))  
* H* c, B- O' j; l# B(setq r(getreal "平均半徑:"))  
" @6 _$ |& S$ Q! b(setq d0(getreal "直徑:"))  
(setq disp(getreal "節(jié)距:"))  
(setq n0(getint "工作圈數(shù):"))  
* t$ B! t9 b" g* ~(setq n(getint "細(xì)化段數(shù)(16/20/24/28/32/36/40/48/52/56/60/100):"))  
/ ^) ?1 j( R9 }4 t8 D/ W* [(setq n1(* 1.25 n)) ;支撐圈細(xì)化段數(shù)  
* X7 W! J8 E: a' \(setq n1(fix n1))  
(setq n2(* n0 n)) ;工作圈細(xì)化段數(shù)  
(setq delta(/ (* 2.0 pi) n)) ;單位轉(zhuǎn)角  
( P* p! g$ r6 A. D, E) J+ R(setq j(/ disp n)) ;工作圈軸向位移量  
# I# n( L4 N/ k' G5 I+ ], t, \  t* w(setq j0(/ d0 n)) ;支撐圈軸向位移量  
9 f/ C4 g$ X2 T- |5 p% v( J(setq bb(caddr p1))  
(setq ang 0)  
(setq jj 0)  
5 p  D+ ~3 i5 r: K' a6 {9 ?(command "ucs" "o" p1)  
: C. m0 ]4 m% B9 A. ^$ s(setq pt1(list r 0 0))  
% h7 f( N1 f+ ?- l% f- d: x(command "3dpoly" pt1)  
(repeat n1 ;繪製下支撐圈  
(setq jj(+ jj 1))  
& g7 c* f0 }3 D$ o8 Y(setq ang(+ delta ang))  
(setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))  
(command pt)  
)  
(setq p2(list 0 0 (* j0 jj)))  
(setq g1(* j0 jj)) ;下支撐圈高度  
' X0 Z* @( p9 y6 e0 v, F8 i6 u(setq jj 0)  
(repeat n2 ;繪製工作圈  
( x) J( a' a$ c(setq jj(+ jj 1))  
' j* ?; J5 `  p3 ]/ w(setq ang(+ delta ang))  
1 d+ v5 _) }9 [( _2 I) d; u(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))  
(command pt)  
)  
8 E5 O7 Y  G: G# |(setq p3(list 0 0 (* j jj)))  
(setq g2(* j jj)) ;工作圈高度  
(setq jj 0)  
( G7 c5 l7 ?6 D1 t8 C0 s  y% B# |(repeat n1 ;繪製上支撐圈  
5 y' k! m4 t% ^+ `(setq jj(+ jj 1))  
& s( n0 `. L/ q- F1 I4 \) U* z(setq ang(+ delta ang))  
(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 g2 (* j0 jj))))  
(command pt)  
)  
(setq g3(* j0 jj)) ;上支撐圈高度  
; n9 a: z( U9 D4 y  ^; ]- m(command "")  
(setq e1(entlast))  
(command "ucs" "x" "") ;拉伸彈簧  
(command "circle" pt1 (/ d0 2))  
(setq e2(entlast))  
(command "extrude" e2 "" "p" e1)  
5 ?8 u  @6 x& Y: Y4 K; x" p5 ^(setq e3(entlast))  
(setq pt2(list r (/ d0 4) 0)) ;磨平  
(setq py(+ g1 g2 g3 (- 0 (/ d0 4))))  
: G" h! s  F& G( {% h(setq pt3(list (- 0 r) py 0))  
(command "slice" e3 "" "zx" pt2 pt3)  
5 L2 A% Y" V  Q) x( R# z' ?(command "slice" e3 "" "zx" pt3 pt2)  
7 i) C4 u# L* v+ T$ V/ e) |( o(command "ucs" "w")  
0 D0 z% f: c1 I3 l7 S
0 ?$ L; D9 z6 _, b) G% f+ }$ ^9 o/ G)  
% q4 K" A! h' k;;;---------end----------彈簧程式結(jié)束！
/ m6 X) s- M& J* q兄臺把這個程序載入CAD就可以繪製3D彈簧了

愚樂中

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

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

求螺紋？,？