CAD2004画三维螺纹

泵阀小群

我听我一个朋友说以前他用过CAD2004里面有个命令输进去可以出来螺纹的，请大家帮忙，谢谢

寂静天花板

你是指07版以上的autocad吧，04版没有这个功能的。

泵阀小群

我那个朋友不会骗我吧，他说原来学的时候画过，是照书上的一个指令，可惜他那本书掉了，07是可以用螺旋线的，不过还是谢谢你，以后有问题还有请教

luoxingming520

;;;-----------彈簧的程式----------  
5 D$ m. h- @+ L) K+ U- s* z(defun c:spring(/)  
(setq p1(getpoint "基點:"))  
(setq r(getreal "平均半徑:"))  
' K  j1 {# z% v(setq d0(getreal "直徑:"))  
! f3 b% F* f5 n) b$ ], c(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)) ;支撐圈細化段數  
(setq n1(fix n1))  
(setq n2(* n0 n)) ;工作圈細化段數  
(setq delta(/ (* 2.0 pi) n)) ;單位轉角  
(setq j(/ disp n)) ;工作圈軸向位移量  
(setq j0(/ d0 n)) ;支撐圈軸向位移量  
0 _/ x( j+ |/ [, h3 Q(setq bb(caddr p1))  
/ s1 I- q6 C. `' ^/ S: T3 [5 X(setq ang 0)  
(setq jj 0)  
  n5 c9 o; u/ S. i! [(command "ucs" "o" p1)  
(setq pt1(list r 0 0))  
2 B3 m2 [/ Y4 k9 r+ a(command "3dpoly" pt1)  
(repeat n1 ;繪製下支撐圈  
(setq jj(+ jj 1))  
$ K+ r8 P/ r. Y& B; T* g(setq ang(+ delta ang))  
(setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))  
) g  H" ]4 ^7 l8 W" p6 J(command pt)  
" I" G* R# }- \. w6 \0 L# M)  
(setq p2(list 0 0 (* j0 jj)))  
(setq g1(* j0 jj)) ;下支撐圈高度  
(setq jj 0)  
" H+ B8 P1 J: E- V( ](repeat n2 ;繪製工作圈  
(setq jj(+ jj 1))  
' W' a% O5 s' \$ P4 n(setq ang(+ delta ang))  
) G# q! u9 `" O: G3 J9 ?; O(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))  
(command pt)  
+ W" a- v5 B3 Y7 g) _: m)  
(setq p3(list 0 0 (* j jj)))  
(setq g2(* j jj)) ;工作圈高度  
(setq jj 0)  
: h! [4 B6 P8 l) [* U$ r) Y(repeat n1 ;繪製上支撐圈  
) K1 t) j& d, B% s( ?7 O- @$ K(setq jj(+ jj 1))  
/ _) G) O* d' D: }' M- ~(setq ang(+ delta ang))  
+ d: @' T: M  r6 [(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 g2 (* j0 jj))))  
(command pt)  
6 _! h. {4 V4 Z# B: w)  
: c+ D/ B  d& S: U8 e(setq g3(* j0 jj)) ;上支撐圈高度  
0 e8 R$ K7 t) |2 n& [2 v$ T, L(command "")  
(setq e1(entlast))  
- q1 Y2 X$ \* i$ q9 L5 d! h8 b(command "ucs" "x" "") ;拉伸彈簧  
(command "circle" pt1 (/ d0 2))  
& x, e; x% {3 ?5 }! V: @(setq e2(entlast))  
(command "extrude" e2 "" "p" e1)  
(setq e3(entlast))  
(setq pt2(list r (/ d0 4) 0)) ;磨平  
# H! @. k* B! i& T6 v2 @  o/ {0 ~(setq py(+ g1 g2 g3 (- 0 (/ d0 4))))  
(setq pt3(list (- 0 r) py 0))  
8 x# H- q& H* t4 {7 p, X' _' h% X(command "slice" e3 "" "zx" pt2 pt3)  
(command "slice" e3 "" "zx" pt3 pt2)  
% K& a4 p8 z% O; D, D1 B: T# D7 {+ S(command "ucs" "w")  
5 {. l7 t* E4 A- {+ H; O
)  
; c6 H) M( f7 ~/ f& L% _;;;---------end----------彈簧程式結束！
+ k7 S4 h$ l1 T5 c. _兄台把這個程序載入CAD就可以繪製3D彈簧了

愚乐中

以前一直没搞出来，有机会试试，谢啦

学习“心”德

求螺纹？？