CAD2004画三维螺纹

泵阀小群

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

寂静天花板

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

泵阀小群

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

luoxingming520

;;;-----------彈簧的程式----------
( \0 P4 _8 L( s! [2 u! s- k6 S" J(defun c:spring(/)
(setq p1(getpoint "基點:"))
9 O, U0 v3 t5 O S1 [3 m" h(setq r(getreal "平均半徑:"))
(setq d0(getreal "直徑:"))
(setq disp(getreal "節距:"))
& G O+ e# [; r; d+ L8 r- V& i(setq n0(getint "工作圈數:"))
7 O7 V' ?* G8 X6 l3 x( e(setq n(getint "細化段數(16/20/24/28/32/36/40/48/52/56/60/100):"))
- g) z1 E, Z! g& p/ b( D5 {5 \: ](setq n1(* 1.25 n)) ;支撐圈細化段數
( {; i7 c, K8 M! d(setq n1(fix n1))
1 J7 u& ~: L( a* X: {! P(setq n2(* n0 n)) ;工作圈細化段數
(setq delta(/ (* 2.0 pi) n)) ;單位轉角
1 _# o% K0 K0 G0 E& u$ j6 P(setq j(/ disp n)) ;工作圈軸向位移量
(setq j0(/ d0 n)) ;支撐圈軸向位移量
, c$ i& h( j, s2 E) A(setq bb(caddr p1))
(setq ang 0)
# }! w2 F! M i* Q8 v(setq jj 0)
(command "ucs" "o" p1)
) H: [+ p1 z+ D* b(setq pt1(list r 0 0))
5 w5 f3 Y, Q! ~8 t(command "3dpoly" pt1)
(repeat n1 ;繪製下支撐圈
6 A4 \1 l7 i$ s h# ^# v- \(setq jj(+ jj 1))
[& b" t% P! J' T6 F8 f: H( V(setq ang(+ delta ang))
(setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))
, ^! E9 l" y. K0 A! f4 Q' {3 `& N(command pt)
)
- F4 W: [ M0 t8 N, R( ?0 W4 S(setq p2(list 0 0 (* j0 jj)))
8 c6 L$ |4 m( P4 n(setq g1(* j0 jj)) ;下支撐圈高度
(setq jj 0)
# J9 _' D7 s# z5 G(repeat n2 ;繪製工作圈
(setq jj(+ jj 1))
0 _+ h( N' A0 b0 F0 A(setq ang(+ delta ang))
(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))
(command pt)
1 s7 u6 [9 a. i1 r& })
& I* x+ m6 q9 U$ K( H(setq p3(list 0 0 (* j jj)))
+ F! o# W' W2 s: _(setq g2(* j jj)) ;工作圈高度
(setq jj 0)
2 y* [5 Q/ [7 k(repeat n1 ;繪製上支撐圈
, K: v+ F( [0 Z- p, D$ R(setq jj(+ jj 1))
(setq ang(+ delta ang))
(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 g2 (* j0 jj))))
1 q7 v% e) m6 n0 b+ s, t* h(command pt)
)
(setq g3(* j0 jj)) ;上支撐圈高度
8 G$ n. C' s& z(command "")
4 C5 r1 u9 O; H, i, ?/ C: ?8 S(setq e1(entlast))
(command "ucs" "x" "") ;拉伸彈簧
1 A, [. h" s2 F0 z }(command "circle" pt1 (/ d0 2))
(setq e2(entlast))
. U6 H; q8 e F/ M(command "extrude" e2 "" "p" e1)
(setq e3(entlast))
! Y6 a/ A# |& i0 L! s(setq pt2(list r (/ d0 4) 0)) ;磨平
0 i! B" @' c0 d u% Z c7 ~(setq py(+ g1 g2 g3 (- 0 (/ d0 4))))
$ x" s4 j- o8 ]3 K: F$ C; V5 e5 Y(setq pt3(list (- 0 r) py 0))
% x/ {! Q: Q. ]2 Y5 s0 @(command "slice" e3 "" "zx" pt2 pt3)
% a1 [9 c+ h% m C% T C2 ~(command "slice" e3 "" "zx" pt3 pt2)
& p# G' O& N8 a, U3 ](command "ucs" "w")
+ N! F. p- i/ f
)
;;;---------end----------彈簧程式結束！
兄台把這個程序載入CAD就可以繪製3D彈簧了

愚乐中

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

学习“心”德

求螺纹？？