機械社區
標題: 蝸桿加工 [打印本頁]
作者: 陽光寶寶 時間: 2017-12-31 00:06
標題: 蝸桿加工
蝸桿有模數M=2.5 頭數Z1=4 齒頂高系數h*a1=1導程P=31.4 最大徑=36.5 中經=31.5 如何計算小徑 任何編程 第一次接觸蝸桿 一頭霧水
5 W7 v$ E+ m: F
作者: jiaweicz 時間: 2017-12-31 11:30
第一次做就做4個頭的蝸桿,有點難度啊
作者: 正在連接... 時間: 2017-12-31 15:53
本帖最后由 正在連接... 于 2017-12-31 15:57 編輯 ! ]# C) p* \, D# F
0 L+ T7 n' k2 Y/ ^
全齒高一般是2.25,既然你齒頂高系數是1了,底徑=36.5-2.5*2.25,編程的話我不知道你對宏程序了解多少。下面是一個蝸桿宏程序,你自己慢慢研究吧。
9 h! R8 _$ c9 @( \2 J$ n: [$ R3 N7 I; t/ A$ [: \0 x
7 }9 a2 d. g4 e$ r7 H5 A$ sD=52 d=34.4 模數4 四頭, 牙型角20度,刀寬2mm 角度LE20度 ,
. B; R' m, s+ R' D
3 H( @# w0 _% _; eP=3.14159*4*4=50.26544(導程等于摸數*3.14159*頭數) W=0.7M =2.8(蝸桿底部寬度)
5 f9 }# y: W3 v: k& ?
, f9 v8 j& \2 D4 t
! E2 Q% {" R u7 E/ C$ z
4 f& \/ A9 _7 C3 [1 b) ~) j, r程序:
9 F) u5 o1 z* e1 Y) _
5 i' d9 G& ~4 J- a7 Y
O0001
* p7 s6 C& g6 X3 y5 z
7 K6 `% T1 X2 s x- t: WG99M03S300
; h1 Z9 K ^& Z4 D% U4 a0 `
& I( J9 i: v8 X% }) LG97T0101M8
2 V' p* \, m; j; e* f( U6 K2 z
3 v- v) Y5 _ ?7 U, g
G0X56Z10
: i2 d7 d, o$ ~) g
) I4 ]- I8 }2 K- b#1=52(蝸桿大直徑)
( x$ a+ \' T" _" v/ o
5 [) c! B, z( q+ l' c2 d) N#2=34.4(蝸桿底直徑)
/ y" Z+ M. z( \5 x8 b; X: \0 M" ?2 x" |: M* a
#3=0.4(底部寬度減去刀寬的一半)
' `+ _2 I" p- ~, A
2 ]" t4 H3 T0 S#13=360000/4(算出每一頭的角度)
, w8 O2 y' A3 P/ @: }; o! A- a) ^: t- Q0 X" K5 X' N
N10#4=0.2(每層吃刀量)
$ S# l8 J1 e0 r! R" @& p5 m# O
8 n- _ i( z4 @7 }, G#1=#1-#4(大直徑遞減)
% Q Y+ S* W% G+ k* _) Q+ p
- V5 }8 I) t1 d
IF[#1LT#2]THEN#1=#2(條件判斷防止過切,強制賦值。當#1小于#2,那么#1等于#2)
; g x) D ~9 R6 t- c+ M/ G( l( w5 @1 x, I* q3 q9 u
#5=[#1-#2]/2*TAN[20]+#3(三角函數算出每層需要趕刀的寬度)
5 i4 w4 k" Z- T+ z1 Z) W
/ y# Z, Y( R# B. s7 E#6=0(趕刀初始值)
% u# e! q& W) Q: _4 t4 l+ a! c9 e, Q2 m/ X- A, X
N20 #12=0(Q的初始值,不能亂放)
6 q0 U/ T; t. X5 S
# V: Z# C5 L( Q9 j0 e& O( T5 }* t
#7=10+#6(計算右趕刀每次的定位)
' Z8 W2 Q7 G w: R
5 W: Q- s$ _ L O5 U9 b
G0 X56 Z#7(螺紋定位)
, U" J) h& Z3 t8 F8 B, K/ j( s1 i- u) H8 P1 v3 X+ d
N21G0X#1(X進刀)
, S b/ K4 i P6 ]9 Y# I$ h. s
7 Z9 o* B! o e' {
G32 Z-95 F50.265 Q#12(螺紋車削)
! u3 d2 S V/ O& f. B
$ N) \# Z/ D& Z N0 `1 |G0 X56(退刀)
; k" w* s8 p1 J, q5 d1 i0 t* S2 h& u2 J i5 `
G0 Z#7(定位退刀到起點位置)
! e( l. u& l7 F6 L/ J5 h* X
, Q h+ e. D- ?" P2 g9 c
#12=#12+#13(角度遞加)
5 r8 U+ \2 S0 V! H+ k5 v
' v4 E, W. r& ^ \1 T9 r. [0 X$ |) {
IF[#12LT360000]GOTO21(如果Q值小于360度跳到N21執行下一頭)
* B0 c0 L- P! A; s0 X
G0 Y* }2 {3 @3 y3 R$ T3 ?IF[#6EQ#5]GOTO30(如果右邊趕刀寬度到達跳出循環)
0 x: F! |4 T/ U; }8 G
+ t3 V, W) |8 s5 J7 D7 B+ Y. u
#6=#6+1.5(每刀趕刀量加1.5)
8 |7 F( U2 W0 v, \" R. d; `( s* F0 ~
IF[#6GT#5]THEN#6=#5(防止過切強制賦值)
, L3 k5 J3 s3 h* J% E* b
8 s/ ~ V) o9 V' N; X h/ G6 @IF[#6LE#5]GOTO20(如果右邊趕刀寬度沒有到達跳轉N20繼續循環)
$ k2 c$ B. ^9 L
( T/ I$ A# k$ @
N30#6=0(趕刀初始從新賦值)
) T9 y/ n) ~0 C* l* C& q
) ]0 h2 [( Y5 b, O9 B6 h0 M
N40#12=0(Q的初始值,從新賦值,不能亂放)
. _$ V) B" U O6 i7 n2 |+ s n( x" F' m6 d& f% _
#6=#6+1.5(趕刀寬度遞加)
5 Y5 p. s$ }6 I6 R% e9 }; _; j) T: a4 E' R# {5 E
IF[#6GT#5]THEN#6=#5(防止寬度過切,強制賦值)
, ^0 p" R T) W6 P! W' h
! y) v) f/ a: a0 r
#8=10-#6(計算Z定位向左趕刀)
' l; B; J7 v Y# @; h1 G9 P0 N2 P+ M" S
G0 X56 Z#8(螺紋定位)
5 t$ q0 Y$ \- a! n
/ s$ v* H% L, e, y/ z' `N41G0X#1(X進刀)
8 c ]! u; t4 g" D$ e* C+ Y- _/ a
5 Z+ q6 @: j! R5 @ d/ q/ U. kG32 Z-95 F50.265Q#12(螺紋車削)
8 }$ [( O2 d$ }. @$ l% Y5 b( Q7 |; q
7 x; c H- _9 i, c- L! C) r
G0 X56 (螺紋退刀)
/ l4 g& Q, N+ K$ P- ~: c/ V T
Z#8(退回上一次加工起點)
% O8 l, m: U+ W, f, r
$ C8 A& r' B2 |9 k#12=#12+#13(左邊趕刀的角度遞加)
& l! Q( I4 C; z4 M
# E3 f& ? g( B) S$ KIF[#12LT360000]GOTO41(如果Q值角度小于360度跳轉N41繼續下一頭)
1 v7 u2 t1 ^6 p( w
5 N+ G) K7 [( e, P8 w% H# e
IF[#6EQ#5]GOTO50(防止死循環,如果寬度到達跳出循環)
. `6 Q5 J e6 O- [( d
. T! s [# T. X* TIF[#6LE#5]GOTO40(如果左邊趕刀寬度沒有到達跳轉N40繼續趕刀)
. z$ Y- y/ |! S! @* g5 S ^: m) a& G( p0 F- c B
N50IF[#1EQ#2]GOTO60(如果螺紋深度到達跳出循環)
$ p9 w; N# x( s
3 |& n, A! F8 \) j- O8 M$ o" Y- Y m
IF[#1GE#2]GOTO10(如果沒有到達跳轉N10繼續下一層)
) W6 W$ E M+ |
6 L4 S- J0 K+ g9 jN60G0X100.
$ i$ W- U- Q8 ~, w# e6 I
) L( x8 i/ @' T& MZ120.
+ f( d% W- a! p1 ]
- O8 X! W9 K3 h& L+ R' Q. K% ~M30
& c% ?/ {9 U/ I, l2 k3 y+ @
7 z0 |! i+ r) V8 B* p
% X8 d: w" N4 W& {6 [# T! \3 v
2 E; ~& Z& \* Q, j8 e$ d0 I; s完整程序如下:
) c2 l+ N! j/ X: v% m, U; @+ {
5 c7 \- F1 m% S; s
O0001
+ z% y4 B. p$ [2 W- f
8 E2 r, E+ P4 d1 MG99M03S300
- v4 Z1 n0 Q8 {# M' E' P$ j# H
) ~9 p4 v! r( sG97T0101M8
) k0 D# h4 ?% h9 Z9 C4 v! t: X1 s E4 M* q! q# r1 z
G0X56Z10
/ C0 r! s: C6 o! X% y
8 w9 @) C( Q$ N: R0 f! |: t
#1=52
2 m v! v; } D- B6 [/ ]8 Z; W# D) c. j
#2=34.4
3 {9 b; A' E+ E6 ^
) K7 e1 Y/ z& i3 Z( F/ p
#3=0.4
+ O0 m) I3 I% _
* i( n& A% a& E, x+ S3 a! I2 t#13=360000/4
7 S7 G6 L: g# G$ Z4 _1 Z# q% E& q0 Y% s% d* ]. @
N10#4=0.2
% ^2 a/ J+ s) C* S; q7 n' E4 F/ S9 `. L+ R I+ {
#1=#1-#4
6 y; s7 N% |! f, v2 M$ ?+ [" P4 Q1 `, @) s$ G; \4 ~; n2 D
IF[#1LT#2]THEN#1=#2
5 V$ r+ o2 {" f
* m& d1 u6 x: h+ j
#5=[#1-#2]/2*TAN[20]+#3
, T5 S4 R' f% R* p& d$ U9 |# e/ [3 \5 U: R7 X2 B# T( u2 y [
#6=0
- u, D+ f& w$ }# W
# ~0 p* P3 L2 Y, a* vN20#12=0
! ^/ G: e6 }% }8 M. q8 [" N- I7 ~3 I0 U' m1 h+ U
) Y( u- g+ j. z
! O% V) N' w3 l+ s #7=10+#6
2 O! c% }5 z6 `5 n) o3 j
4 P5 ~' r7 o: H+ s- C
G0 X56 Z#7
3 Q3 s* ~+ Q# G
% _. W3 ?) @; ?0 XN21G0X#1
2 a- n' M& J' c& m2 P: p
3 J. b8 H/ k) i, A, U5 R0 YG32 Z-95 F50.265 Q#12
' e" ?# ^, t4 {! V! t" r `
3 E1 r( [4 M' O: Y4 hG0 X56
! m: B$ Q0 }( `2 G" M; ?
; ^* `/ b( z3 f1 U4 r- D4 C
G0 Z#7
, j% X3 A" T+ ~; a5 U
" S; [: f% o0 W5 m. w$ N$ q+ R! L#12=#12+#13
, W4 N( o b) W% r6 b) g2 L0 l! `5 V9 k2 h C. N
IF[#12LT360000]GOTO21
& N5 {- h. U% x) V: U$ b
& }9 D3 I* M2 U2 q
IF[#6EQ#5]GOTO30
, } C5 p: S3 f2 b0 q3 R4 L0 I/ k- G1 F0 @+ h4 d
#6=#6+1.5
5 }2 s! X3 a( Y) s8 p2 A8 i4 p
' {) N* y3 w M7 W% x6 b" c( r% TIF[#6GT#5]THEN#6=#5
& @( P1 e# u! q5 v! m- ^2 H! \
2 N3 ^" F6 x; @! Q0 Z+ ]' ]IF[#6LE#5]GOTO20
2 m: [4 l. O+ N4 w* V6 ^1 ~
1 l* y, d4 ~" I v8 D9 z& u/ h; rN30#6=0
P3 [5 y8 Q8 |# {0 C: c
2 z8 c C! r/ x. ^N40#12=0
. T0 d, J& L: F5 Y2 j
% f+ ^' z7 c" T1 ~; `
#6=#6+1.5
" q3 }) [# f' O( L) _+ m3 C* Q7 \' F) h. d9 K0 t
IF[#6GT#5]THEN#6=#5
) s" g; u- y6 H+ e- C9 v
4 A7 a- f0 D! b" \#8=10-#6
# G/ N1 u N2 F% o& K
) e+ l- X7 j* q7 J, K! K
G0 X56 Z#8
4 ^8 V( j, ^5 A, Q; ^1 c" `4 c0 P: A: E. d1 U
N41G0X#1
. U* c( y0 Z5 ]: Z; I- o$ r N( C+ n* r4 y( T- x1 `5 S8 \
G32 Z-95 F50.265Q#12
/ R7 N3 C9 N" b8 l+ C
5 t* _( v2 k, X3 I, I- tG0 X56
. m5 K- \1 P" ^0 y
9 {' f1 |) a' i+ B/ QZ#8
$ [4 z( K" ^0 j- B
! S) k2 m3 a5 c3 U
#12=#12+#13
6 w' l I# k5 \6 h+ Q& L3 i3 u! A Y. i
IF[#12LT360000]GOTO41
* I) m, c7 w& R, p4 n7 E% A6 j: E1 S% v
IF[#6EQ#5]GOTO50
% S% L# |# \2 B+ j/ d6 C& l, S: {/ U# D _
IF[#6LE#5]GOTO40
( n9 @1 M1 R n K: ]3 j
6 O; L* u* t% H
N50IF[#1EQ#2]GOTO60
, z# I4 j2 u+ p! o
0 d( f7 P" Y' W- c! RIF[#1GE#2]GOTO10
* I5 U0 _' y, [
% j* l& o1 Q8 K H+ N) r/ V3 LN60G0X100.
! D- B8 U! Z9 w" ?: h' _
" {8 K1 b1 j9 ?3 I- _) v0 E6 m
Z120.
/ [$ p: j! @; L
/ h* R8 W$ E% }% l0 U
M30
8 B- e7 T1 M- B5 W+ ^
j8 g- Q) z! f9 W& \$ P# i
作者: 韓寒11 時間: 2017-12-31 22:46
蝸桿得用宏程序,樓上的宏程序很好,樓主認真研究一下
作者: xiaobing86203 時間: 2018-1-1 18:01
三樓大神正解!
作者: aa2852029 時間: 2018-1-5 11:23
厲害,看一看。學一學
作者: XIEYANG1985 時間: 2018-1-31 12:33
: X) v$ b* _6 n* [$ g謝謝樓主
, k- b5 a3 S+ m* P5 i
作者: 章華鵬 時間: 2018-1-31 14:58
謝謝。正好想學習一下宏程序。
作者: wx_lbY2wG5b 時間: 2018-2-8 08:39
宏不會用。我一般做多頭梯形絲桿螺紋。這個能用G78做嗎?
作者: 正在連接... 時間: 2018-2-10 12:21
2 _# @' o% P6 w! y9 ~6 z x
只是給他參考: x, O5 j9 H6 O- q8 p
作者: yxj33463346 時間: 2018-2-24 17:25
厲害!
作者: 冬日夏風 時間: 2018-3-11 10:31
收到,不錯啊,我感覺很好
作者: 李玉彬 時間: 2018-11-17 17:58
不錯蝸桿就用宏吧
作者: 那座城 時間: 2018-12-10 18:45
頂一下
| 歡迎光臨 機械社區 (http://m.whclglass.com.cn/) |
Powered by Discuz! X3.5 |