CAD2004画三维螺纹

泵阀小群

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

寂静天花板

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

泵阀小群

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

luoxingming520

;;;-----------彈簧的程式----------
- C9 ]$ s$ I0 ~$ p& G. W(defun c:spring(/)
(setq p1(getpoint "基點:"))
- e. R5 _/ ~; [% t% i2 A(setq r(getreal "平均半徑:"))
(setq d0(getreal "直徑:"))
(setq disp(getreal "節距:"))
7 x+ r! z& R: O" ?3 D, C# }(setq n0(getint "工作圈數:"))
7 i4 f5 k% V" C% V9 ~(setq n(getint "細化段數(16/20/24/28/32/36/40/48/52/56/60/100):"))
5 q2 H, A7 e0 }) o& Z( O" a(setq n1(* 1.25 n)) ;支撐圈細化段數
' G: r# Y e4 |, g5 u(setq n1(fix n1))
(setq n2(* n0 n)) ;工作圈細化段數
& E- Z1 \0 ]- V5 [(setq delta(/ (* 2.0 pi) n)) ;單位轉角
(setq j(/ disp n)) ;工作圈軸向位移量
(setq j0(/ d0 n)) ;支撐圈軸向位移量
(setq bb(caddr p1))
(setq ang 0)
(setq jj 0)
(command "ucs" "o" p1)
(setq pt1(list r 0 0))
(command "3dpoly" pt1)
(repeat n1 ;繪製下支撐圈
4 K8 p+ f1 N$ {* q f(setq jj(+ jj 1))
: R$ T' d' y: M0 ?9 ^( |2 v) D(setq ang(+ delta ang))
2 V& y* Q. `0 q' [& k(setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))
0 B# s% u" b l, O9 B! ^8 d(command pt)
)
" v' e7 ^" D9 M/ K1 X& o(setq p2(list 0 0 (* j0 jj)))
6 f0 i4 _! o( O. T(setq g1(* j0 jj)) ;下支撐圈高度
(setq jj 0)
8 C+ Y6 D; B7 x; B6 s, F+ | o7 k(repeat n2 ;繪製工作圈
(setq jj(+ jj 1))
: w. W/ ~9 O; U9 j/ q- }(setq ang(+ delta ang))
(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))
^) z* v0 F9 X, h% R8 u, s(command pt)
)
(setq p3(list 0 0 (* j jj)))
(setq g2(* j jj)) ;工作圈高度
(setq jj 0)
(repeat n1 ;繪製上支撐圈
(setq jj(+ jj 1))
. Z: R( I2 a3 Y" x% n2 @(setq ang(+ delta ang))
(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 g2 (* j0 jj))))
(command pt)
3 y# d6 r* U/ }9 a0 W: ?6 C)
& |: ?$ O; h% C8 H/ @0 [5 _(setq g3(* j0 jj)) ;上支撐圈高度
! r- m0 r& L1 g( Y* I( K(command "")
# n% F2 D$ o; ]! r" B6 a6 ^(setq e1(entlast))
# ~# C/ ~, k( D) V; I- O& R(command "ucs" "x" "") ;拉伸彈簧
* d# o9 [5 r" c5 ^, ?- n9 W(command "circle" pt1 (/ d0 2))
(setq e2(entlast))
(command "extrude" e2 "" "p" e1)
% e) }, c( q$ k5 J(setq e3(entlast))
(setq pt2(list r (/ d0 4) 0)) ;磨平
3 S0 i3 l. ^$ l/ ]0 Z1 f9 S1 c(setq py(+ g1 g2 g3 (- 0 (/ d0 4))))
(setq pt3(list (- 0 r) py 0))
Q4 U( m$ @3 K( W/ ^: b9 `' }(command "slice" e3 "" "zx" pt2 pt3)
(command "slice" e3 "" "zx" pt3 pt2)
(command "ucs" "w")

)
! {' e; u8 T; B) n3 ?;;;---------end----------彈簧程式結束！
兄台把這個程序載入CAD就可以繪製3D彈簧了

愚乐中

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

学习“心”德

求螺纹？？