CAD2004画三维螺纹

泵阀小群

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

寂静天花板

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

泵阀小群

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

luoxingming520

;;;-----------彈簧的程式----------  
(defun c:spring(/)  
' M0 Y/ b$ `$ f% r(setq p1(getpoint "基點:"))  
5 ^1 N, C5 ?! f. ]8 \6 x( ~9 S(setq r(getreal "平均半徑:"))  
(setq d0(getreal "直徑:"))  
( s& I+ W* r4 \0 v& |(setq disp(getreal "節距:"))  
(setq n0(getint "工作圈數:"))  
( y9 |+ Q' F* x8 ?, i1 G* L(setq n(getint "細化段數(16/20/24/28/32/36/40/48/52/56/60/100):"))  
(setq n1(* 1.25 n)) ;支撐圈細化段數  
(setq n1(fix n1))  
( K) n& L# q/ n0 f5 _& `2 E% G(setq n2(* n0 n)) ;工作圈細化段數  
/ J' U& e- ~3 _5 V7 A(setq delta(/ (* 2.0 pi) n)) ;單位轉角  
(setq j(/ disp n)) ;工作圈軸向位移量  
(setq j0(/ d0 n)) ;支撐圈軸向位移量  
(setq bb(caddr p1))  
: z) }" P* y" i$ m( z; a5 S7 B(setq ang 0)  
(setq jj 0)  
(command "ucs" "o" p1)  
(setq pt1(list r 0 0))  
(command "3dpoly" pt1)  
(repeat n1 ;繪製下支撐圈  
(setq jj(+ jj 1))  
" N2 {2 ]! `0 f1 ^: X- j  E% R3 O(setq ang(+ delta ang))  
(setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))  
(command pt)  
. }' n" A; q% p* T8 D% A, k)  
( k0 U' o7 ]  k, Z5 I( ?(setq p2(list 0 0 (* j0 jj)))  
# V9 c7 s% ~1 V0 k(setq g1(* j0 jj)) ;下支撐圈高度  
  @# L+ M+ q7 n- p3 i: \(setq jj 0)  
(repeat n2 ;繪製工作圈  
+ ^4 t# B. E, D7 T6 t0 O* a(setq jj(+ jj 1))  
(setq ang(+ delta ang))  
" {0 o: T) K, C0 S+ f% V$ S! f(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))  
8 c8 K/ [& _& A1 }! M6 s& F( [" u(command pt)  
: E3 p+ N% K" b( R)  
# r. L0 D/ @2 v0 Y; o(setq p3(list 0 0 (* j jj)))  
$ Q+ O) S/ j7 N4 A- B' Y# R! \0 i(setq g2(* j jj)) ;工作圈高度  
(setq jj 0)  
(repeat n1 ;繪製上支撐圈  
& |/ c0 n* Y+ a9 d* H5 w(setq jj(+ jj 1))  
(setq ang(+ delta ang))  
(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 g2 (* j0 jj))))  
6 ~* O8 l) j- J(command pt)  
)  
(setq g3(* j0 jj)) ;上支撐圈高度  
(command "")  
(setq e1(entlast))  
1 P5 q0 k; R* h% t; q5 l(command "ucs" "x" "") ;拉伸彈簧  
(command "circle" pt1 (/ d0 2))  
4 \: ~! {! K" c# i8 b, \6 {8 f* ~(setq e2(entlast))  
4 [* N0 W1 `2 X7 W6 c- x(command "extrude" e2 "" "p" e1)  
(setq e3(entlast))  
1 `9 N1 n3 W/ j(setq pt2(list r (/ d0 4) 0)) ;磨平  
(setq py(+ g1 g2 g3 (- 0 (/ d0 4))))  
' \# j$ G2 j9 l/ \3 H(setq pt3(list (- 0 r) py 0))  
7 `- |8 N0 @, g(command "slice" e3 "" "zx" pt2 pt3)  
(command "slice" e3 "" "zx" pt3 pt2)  
  F+ ^# R2 v: L' }(command "ucs" "w")  

* l* V4 I) i4 p1 g) `3 y)  
3 a5 Q  Q2 B+ |' e;;;---------end----------彈簧程式結束！
8 B2 V+ C: c1 g% }兄台把這個程序載入CAD就可以繪製3D彈簧了

愚乐中

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

学习“心”德

求螺纹？？