机械必威体育网址
标题:
CAD2004画三维螺纹
[打印本页]
作者:
泵阀小群
时间:
2009-4-21 14:37
标题:
CAD2004画三维螺纹
我听我一个朋友说以前他用过CAD2004里面有个命令输进去可以出来螺纹的，请大家帮忙，谢谢
作者:
寂静天花板
时间:
2009-4-21 15:16
你是指07版以上的autocad吧，04版没有这个功能的。
作者:
泵阀小群
时间:
2009-4-22 07:15
我那个朋友不会骗我吧，他说原来学的时候画过，是照书上的一个指令，可惜他那本书掉了，07是可以用螺旋线的，不过还是谢谢你，以后有问题还有请教
作者:
luoxingming520
时间:
2009-4-26 12:43
;;;-----------彈簧的程式----------
+ V# w1 @( V y+ s- c3 ?$ d. G3 {6 |
(defun c:spring(/)
% l, ^4 y. d! o( U9 }8 S* S
(setq p1(getpoint "基點:"))
& ]- P* f% S9 s, g
(setq r(getreal "平均半徑:"))
: O0 y) D' U1 s- P7 t, m. J
(setq d0(getreal "直徑:"))
, ~5 h8 a" V. m( n" J8 a3 u8 `
(setq disp(getreal "節距:"))
" k% d/ N3 k7 P4 Q1 n
(setq n0(getint "工作圈數:"))
& U9 m1 J. D) H9 O1 I1 x/ _: V( m4 \
(setq n(getint "細化段數(16/20/24/28/32/36/40/48/52/56/60/100):"))
8 s+ F( j; j7 K6 X
(setq n1(* 1.25 n)) ;支撐圈細化段數
5 ]5 P- S B6 j5 ~2 T% _
(setq n1(fix n1))
1 ]: W+ B$ i. E3 o
(setq n2(* n0 n)) ;工作圈細化段數
4 l, w' y3 w( _1 @6 @# |2 q5 T0 Y
(setq delta(/ (* 2.0 pi) n)) ;單位轉角
3 y2 x! @. V7 @# z
(setq j(/ disp n)) ;工作圈軸向位移量
( [, k6 w4 l% G, R/ o1 O: ]
(setq j0(/ d0 n)) ;支撐圈軸向位移量
, m7 _1 F" \# V: l
(setq bb(caddr p1))
( k% f1 j8 }" ^4 \7 a: {
(setq ang 0)
( a. Y5 s7 C+ A! X5 C7 ~) l
(setq jj 0)
3 n% s& ~, \& ^0 L( `$ r! U
(command "ucs" "o" p1)
$ f) D6 ]3 l4 o) [5 p$ Y& H
(setq pt1(list r 0 0))
* i9 ]! m7 p! j6 Q, S
(command "3dpoly" pt1)
- ], K3 L8 n5 k
(repeat n1 ;繪製下支撐圈
/ L8 }8 ]' Y( W% _
(setq jj(+ jj 1))
+ A! Z; u Y8 ?: M# p8 `! S
(setq ang(+ delta ang))
$ u" E, m3 C- i
(setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))
: Y. e1 L' K+ R. u! I n8 p
(command pt)
1 a" z4 T8 e* v% E
)
5 Q \' X. L0 v
(setq p2(list 0 0 (* j0 jj)))
* E& g# s: n' y
(setq g1(* j0 jj)) ;下支撐圈高度
* @0 V. {2 f' k& Q) {
(setq jj 0)
7 x4 {! P" `% u$ K
(repeat n2 ;繪製工作圈
' s" ^7 T- X G; D2 [
(setq jj(+ jj 1))
! \. V+ Y0 j4 n5 c
(setq ang(+ delta ang))
6 o, N; t! n; l* F- @. T, x
(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))
7 h: v0 X2 A, |, [# l7 W
(command pt)
4 e g! h2 }# } I9 [* t- b' ^
)
) p6 Q( I( h" Y/ S2 @ O$ U8 u/ Z
(setq p3(list 0 0 (* j jj)))
5 ]7 J: D% L1 F% ]0 v$ B
(setq g2(* j jj)) ;工作圈高度
% m: S V' I! s$ l7 q1 ?
(setq jj 0)
4 g& y0 y& p+ w7 c9 H
(repeat n1 ;繪製上支撐圈
! L/ Z1 S+ R* m" ^' k6 @
(setq jj(+ jj 1))
9 l' F$ `; j( G0 g- S) u
(setq ang(+ delta ang))
. D# j4 b4 M1 R" R+ L* ]
(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 g2 (* j0 jj))))
`/ `6 U* N) m' Q6 i3 T
(command pt)
, n" i/ _ i4 ~* z. w! _2 z
)
% Z, J3 M+ k* U7 ^
(setq g3(* j0 jj)) ;上支撐圈高度
+ ~, [0 T' J4 z$ h" y
(command "")
+ i" _ F0 `2 I+ S! D8 R" [
(setq e1(entlast))
, e i5 `5 m9 ^
(command "ucs" "x" "") ;拉伸彈簧
- d7 V3 X8 a$ ~' w
(command "circle" pt1 (/ d0 2))
* I+ |6 T4 y: X+ n" ~) a; C
(setq e2(entlast))
* Z2 v' U) R$ \) B! p7 \
(command "extrude" e2 "" "p" e1)
/ W7 R. {. ] |8 _: o
(setq e3(entlast))
) i( s, i+ I( Q m4 Y! ?1 X
(setq pt2(list r (/ d0 4) 0)) ;磨平
2 [6 P5 b5 P$ S/ S0 ^- l
(setq py(+ g1 g2 g3 (- 0 (/ d0 4))))
& ~$ O7 h+ p! L- z$ J, C
(setq pt3(list (- 0 r) py 0))
5 N; p" g% U3 r3 S$ L8 R4 x5 D8 W
(command "slice" e3 "" "zx" pt2 pt3)
8 t8 ^( g9 ~/ E* C+ e9 h
(command "slice" e3 "" "zx" pt3 pt2)
% x5 R# ]7 [$ g% P9 o; m7 c' P
(command "ucs" "w")
% u# |* i1 g3 l9 ], q6 f
. l( _2 Z3 l1 `) P. E6 P( b
)
4 x' T. \7 Q& r3 e0 o9 b% _: c" n
;;;---------end----------彈簧程式結束！
# u& Q% O% Z3 T' @2 e3 ]: Q
兄台把這個程序載入CAD就可以繪製3D彈簧了
作者:
愚乐中
时间:
2009-5-25 01:54
以前一直没搞出来，有机会试试，谢啦
作者:
学习“心”德
时间:
2012-5-15 08:46
求螺纹？？
欢迎光临 机械必威体育网址 (//www.szfco.com/)
Powered by Discuz! X3.4