CAD2004画三维螺纹

泵阀小群

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

寂静天花板

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

泵阀小群

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

luoxingming520

;;;-----------彈簧的程式----------  
(defun c:spring(/)  
7 k' }; W! O4 O0 e" \. E* q(setq p1(getpoint "基點:"))  
0 ^5 T6 |( d+ Y; a2 @( b(setq r(getreal "平均半徑:"))  
(setq d0(getreal "直徑:"))  
+ z0 }( r4 V5 Y2 G- \(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)) ;支撐圈細化段數  
( ?4 T8 D# c, y9 V2 ~(setq n1(fix n1))  
! f+ a4 B# ^) ?" \(setq n2(* n0 n)) ;工作圈細化段數  
(setq delta(/ (* 2.0 pi) n)) ;單位轉角  
- \6 w) E; i5 _# w! \  ?: c9 S(setq j(/ disp n)) ;工作圈軸向位移量  
  u2 K# i" H9 D+ I' @8 s(setq j0(/ d0 n)) ;支撐圈軸向位移量  
+ Q' J5 h( |+ R& E(setq bb(caddr p1))  
6 y: h. s# W/ f% |(setq ang 0)  
(setq jj 0)  
* C; ~$ L9 H/ ^' `8 \(command "ucs" "o" p1)  
' k$ ]8 J. B1 {(setq pt1(list r 0 0))  
(command "3dpoly" pt1)  
(repeat n1 ;繪製下支撐圈  
(setq jj(+ jj 1))  
6 F/ [/ }0 g- G- S( f! Y(setq ang(+ delta ang))  
(setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))  
5 O+ x+ [' t% K& {  W(command pt)  
)  
  Y5 r' I. i* }- _4 c(setq p2(list 0 0 (* j0 jj)))  
(setq g1(* j0 jj)) ;下支撐圈高度  
(setq jj 0)  
' d" u4 G; c5 [% c1 ^(repeat n2 ;繪製工作圈  
1 n/ ]9 o7 a4 }) O" u(setq jj(+ jj 1))  
(setq ang(+ delta ang))  
(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))  
(command pt)  
' u9 `' O7 G% o) G" T)  
2 j  ]7 d3 F( v0 N: g8 U+ ~(setq p3(list 0 0 (* j jj)))  
8 e* e  N0 k8 c$ i5 c& S4 L(setq g2(* j jj)) ;工作圈高度  
# T% I# B* E1 L# @7 A7 F(setq jj 0)  
(repeat n1 ;繪製上支撐圈  
(setq jj(+ jj 1))  
(setq ang(+ delta ang))  
(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 g2 (* j0 jj))))  
(command pt)  
)  
6 n$ T$ H' B& u- s: G(setq g3(* j0 jj)) ;上支撐圈高度  
(command "")  
- a0 C  L" t, K0 d* K4 k( `$ m(setq e1(entlast))  
  y$ [. V- ]! l6 a(command "ucs" "x" "") ;拉伸彈簧  
6 ^' L4 s. h4 T8 G(command "circle" pt1 (/ d0 2))  
(setq e2(entlast))  
(command "extrude" e2 "" "p" e1)  
( I6 x# \2 O& j(setq e3(entlast))  
$ X0 m1 p6 A- ?9 [2 D5 e(setq pt2(list r (/ d0 4) 0)) ;磨平  
(setq py(+ g1 g2 g3 (- 0 (/ d0 4))))  
& J6 g! M) Z+ a8 H(setq pt3(list (- 0 r) py 0))  
& k, k- X) h& I- t' y  H# L(command "slice" e3 "" "zx" pt2 pt3)  
(command "slice" e3 "" "zx" pt3 pt2)  
0 s5 o9 P- c! [1 ~! l3 M% H(command "ucs" "w")  
+ _& t9 x. s" c2 s' ~
% C' Y5 C& L: f1 {' \)  
;;;---------end----------彈簧程式結束！
$ D# M) i9 V4 v; }5 s8 o, j2 h1 _兄台把這個程序載入CAD就可以繪製3D彈簧了

愚乐中

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

学习“心”德

求螺纹？？