CAD2004畫三維螺紋

泵閥小群

我聽我一個朋友說以前他用過CAD2004里面有個命令輸進去可以出來螺紋的，請大家幫忙，謝謝

寂靜天花板

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

泵閥小群

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

luoxingming520

;;;-----------彈簧的程式----------  
(defun c:spring(/)  
(setq p1(getpoint "基點:"))  
(setq r(getreal "平均半徑:"))  
(setq d0(getreal "直徑:"))  
; c9 [! K" R( F, p(setq disp(getreal "節距:"))  
(setq n0(getint "工作圈數:"))  
(setq n(getint "細化段數(16/20/24/28/32/36/40/48/52/56/60/100):"))  
(setq n1(* 1.25 n)) ;支撐圈細化段數  
% K: a  @% j1 w& m- a# Y( e(setq n1(fix n1))  
(setq n2(* n0 n)) ;工作圈細化段數  
. d2 ?( w- d, Y% h, k(setq delta(/ (* 2.0 pi) n)) ;單位轉角  
(setq j(/ disp n)) ;工作圈軸向位移量  
(setq j0(/ d0 n)) ;支撐圈軸向位移量  
(setq bb(caddr p1))  
8 M/ h' F. A6 |( H$ m3 z5 b(setq ang 0)  
(setq jj 0)  
(command "ucs" "o" p1)  
(setq pt1(list r 0 0))  
3 s1 A* w; v+ d9 Q6 Z3 G* b% o(command "3dpoly" pt1)  
" w: c7 U  ^6 U: A- U" ]8 n(repeat n1 ;繪製下支撐圈  
(setq jj(+ jj 1))  
+ c$ g' q$ b9 `(setq ang(+ delta ang))  
4 u! U( \& r0 Q(setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))  
(command pt)  
9 N+ o. h6 _8 H$ l)  
(setq p2(list 0 0 (* j0 jj)))  
(setq g1(* j0 jj)) ;下支撐圈高度  
5 Y& n! e7 e) ?3 _& n# Q" T9 [(setq jj 0)  
9 `* v' h' d+ L  l" d(repeat n2 ;繪製工作圈  
(setq jj(+ jj 1))  
(setq ang(+ delta ang))  
, v0 y) p8 ~- k+ U4 w0 M& I$ k" r(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))  
# x/ k5 a. j  _+ f2 G(command pt)  
)  
7 r, u: ^$ R. w(setq p3(list 0 0 (* j jj)))  
1 r7 e5 W2 r2 Y: V: J7 s# ](setq g2(* j jj)) ;工作圈高度  
(setq jj 0)  
(repeat n1 ;繪製上支撐圈  
. B& z2 t3 t0 m" K5 M- T0 R(setq jj(+ jj 1))  
: N4 B* ~1 p4 S0 _* d(setq ang(+ delta ang))  
$ m" L# ?* U* i, z& R(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 g2 (* j0 jj))))  
8 Y, U1 `  V* Y) s* p. q- F/ T5 g  ?(command pt)  
3 w- I# e3 q* O+ c2 r8 t# X)  
(setq g3(* j0 jj)) ;上支撐圈高度  
(command "")  
(setq e1(entlast))  
) O. |. p4 P  n6 b! ?(command "ucs" "x" "") ;拉伸彈簧  
# l7 ]+ I7 L; I' N(command "circle" pt1 (/ d0 2))  
(setq e2(entlast))  
, G6 Y! ^4 F+ I9 V* t& O; C: A% P- ^(command "extrude" e2 "" "p" e1)  
# [1 v5 c* N9 a(setq e3(entlast))  
(setq pt2(list r (/ d0 4) 0)) ;磨平  
(setq py(+ g1 g2 g3 (- 0 (/ d0 4))))  
(setq pt3(list (- 0 r) py 0))  
- T$ X- Y+ i+ T5 C, v. p(command "slice" e3 "" "zx" pt2 pt3)  
(command "slice" e3 "" "zx" pt3 pt2)  
+ e! o4 i  q+ B1 M(command "ucs" "w")  

. C8 ~! Y! K7 h6 B9 x$ s4 l' _)  
1 M1 i" a& `' _, |;;;---------end----------彈簧程式結束！
兄臺把這個程序載入CAD就可以繪製3D彈簧了

愚樂中

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

學習“心”德

求螺紋？？