機械社區
標題: 蝸桿加工 [打印本頁]
作者: 陽光寶寶 時間: 2017-12-31 00:06
標題: 蝸桿加工
蝸桿有模數M=2.5 頭數Z1=4 齒頂高系數h*a1=1導程P=31.4 最大徑=36.5 中經=31.5 如何計算小徑 任何編程 第一次接觸蝸桿 一頭霧水
5 a1 I3 `; y' t
作者: jiaweicz 時間: 2017-12-31 11:30
第一次做就做4個頭的蝸桿，有點難度啊
作者: 正在連接... 時間: 2017-12-31 15:53
本帖最后由 正在連接... 于 2017-12-31 15:57 編輯 ) m7 u- n& D2 R
* r3 I! u' V' C, ^* l% w, `) J! K全齒高一般是2.25，既然你齒頂高系數是1了，底徑=36.5-2.5*2.25，編程的話我不知道你對宏程序了解多少。下面是一個蝸桿宏程序，你自己慢慢研究吧。
2 `- p9 V( ?5 Q2 z# t3 w/ ?0 o5 h, q3 e3 j W2 ^1 Z0 |
9 G+ R. U1 B+ F
D=52 d=34.4 模數4 四頭， 牙型角20度，刀寬2mm 角度LE20度 ，
G' K% d$ e+ \+ {
( ]0 X( _$ ~2 ^3 HP=3.14159*4*4=50.26544（導程等于摸數*3.14159*頭數） W=0.7M =2.8（蝸桿底部寬度）
7 M+ m: ] J0 p( k
+ d2 `# ~0 D" X' J3 d" R9 \
0 V7 a0 i, f, y. p) d. V; x# L6 L/ r0 O3 P' h
程序：
% {# P9 G) w7 s
; f" s( p; E. F1 \( rO0001
: D0 n. i) q4 v1 h0 O& i' H7 G* g2 Q; w4 J! L `
G99M03S300
1 Z* e- [3 e8 l7 Q$ ?/ q
+ T7 {# _& n3 Z0 I( l& b2 @G97T0101M8
* n; D1 U) |; A4 s
( m0 \4 g0 Z3 \+ W0 n$ ^; O1 ?G0X56Z10
" H; R3 d2 x. E8 W t9 A$ X4 d$ i% F' l
/ d {! ^& V; p8 ^- g
#1=52（蝸桿大直徑）
3 u3 N5 m% T# g! m4 }! _
3 K9 h* Z( F3 Z* ~2 O% h#2=34.4（蝸桿底直徑）
- y1 n3 p+ u$ K
T; d2 ?% {! o: Y5 g
#3=0.4（底部寬度減去刀寬的一半）
: s0 x7 ? O8 A8 ]1 V
. H3 {. _: u# s/ G) Q! X* i#13=360000/4（算出每一頭的角度）
4 l( ]0 N" \' S* Y. O; b& F" a
) x1 u5 L3 q% s5 a* I; i aN10#4=0.2（每層吃刀量）
- A$ E* H; @$ G/ e: K
% W: W9 T5 H0 l" b1 _& H#1=#1-#4（大直徑遞減）
7 T/ I: _* N) j& s' `
2 Y' ~' b* N3 q. |- H$ v+ q: p
IF[#1LT#2]THEN#1=#2（條件判斷防止過切，強制賦值。當#1小于#2，那么#1等于#2）
0 h& ]! i) F" g w' M/ t. u* N: s4 i2 q+ h2 }
#5=[#1-#2]/2*TAN[20]+#3（三角函數算出每層需要趕刀的寬度）
* @7 o( @: Z' a1 N% |8 J
" s( F4 p4 X [2 d2 f! W- y5 W#6=0（趕刀初始值）
+ r0 S+ L' ` N. q" f' }8 y8 C5 J9 ?1 V$ t* i
N20 #12=0（Q的初始值,不能亂放）
6 R- I, a6 h- |/ t" S0 t/ J6 f
" _9 l1 \0 b# J# N#7=10+#6（計算右趕刀每次的定位）
" }1 c. q2 v' d6 V3 Z% e) E8 H8 H8 f
2 b' V5 X/ T# @. bG0 X56 Z#7（螺紋定位）
3 F" |) k9 | K0 x
; A4 j2 r4 f/ U8 j% ^
N21G0X#1（X進刀）
% P7 q$ l/ E* b' l+ f& j1 U; ?( z* c& A7 I: F7 A
G32 Z-95 F50.265 Q#12（螺紋車削）
. W" n. t: i* I2 M5 g% M' e0 o
G! S- m- y9 {6 L8 G8 dG0 X56（退刀）
( H5 \+ B! d, N/ {+ e1 R0 o
6 H+ }0 p! _! oG0 Z#7（定位退刀到起點位置）
M8 n1 m! i: t2 l3 `
; B6 p9 n2 f: H#12=#12+#13（角度遞加）
N1 A h/ Z' T" }# H4 m) m; p& _+ f# @1 D9 E
IF[#12LT360000]GOTO21（如果Q值小于360度跳到N21執行下一頭）
! ~4 q; f4 B8 O) l5 v3 I" y: g9 j' Z% K( T7 l3 J
IF[#6EQ#5]GOTO30（如果右邊趕刀寬度到達跳出循環）
* N, q4 i' r# a- m
) R7 I* O9 f# V2 G# f9 ]. g% ]#6=#6+1.5（每刀趕刀量加1.5）
) z+ C) j% z& \) D4 v) k4 Q8 [7 ?# u
2 @2 e: \! d' gIF[#6GT#5]THEN#6=#5（防止過切強制賦值）
. P% t/ e, @0 l6 _* V* \, ^1 \
5 W, j' y5 V2 h; X; z' L/ nIF[#6LE#5]GOTO20（如果右邊趕刀寬度沒有到達跳轉N20繼續循環）
, I4 O3 n% J) @9 T, K9 G& U, v, a
$ ~0 f- H4 [" mN30#6=0（趕刀初始從新賦值）
* L2 [/ |% {2 h7 L& E5 |" U" J: T% g! b2 i: q
N40#12=0（Q的初始值,從新賦值，不能亂放）
" |6 A, u2 O* w# q
' k1 R9 D# _* n" D( n& |9 U
#6=#6+1.5（趕刀寬度遞加）
$ v1 x) u: w! T5 A1 r" } k# J3 `& m" n- I2 ~3 e
IF[#6GT#5]THEN#6=#5（防止寬度過切，強制賦值）
( M6 ]& F( R2 @+ f! ?
' f2 X5 R1 F5 K" z" |0 t5 C5 J
#8=10-#6（計算Z定位向左趕刀）
! `% X$ T. | k1 {7 V! u
4 R5 t- H* x# YG0 X56 Z#8（螺紋定位）
' L9 Y1 T0 n, @8 W% B
8 b) q0 f q) ?/ ^1 n+ ?2 s
N41G0X#1（X進刀）
`. q3 C- l! j- y* J
" P2 N- N6 H- h
G32 Z-95 F50.265Q#12（螺紋車削）
0 x8 u! n7 n, y) ?8 g1 g2 z H' I# Y1 L( ]" E
G0 X56 （螺紋退刀）
9 F! G! _/ o6 \1 l b- b- k
% u U, y7 ]; l; B" k2 ]5 lZ#8（退回上一次加工起點）
4 L8 _+ f/ q5 Z
$ D) G) k8 h9 E+ v
#12=#12+#13（左邊趕刀的角度遞加）
( i" a" x: t+ c9 A; ]( ]8 S0 ]
. h. ~0 x$ r; o, c. kIF[#12LT360000]GOTO41（如果Q值角度小于360度跳轉N41繼續下一頭）
8 d x9 k" F5 r( ~! T
" g% X9 G7 s" ^) I: {( t
IF[#6EQ#5]GOTO50（防止死循環，如果寬度到達跳出循環）
5 }/ A6 V1 W+ n$ ~
3 b. z* Y; H, F3 ?! Q/ n* s" _
IF[#6LE#5]GOTO40（如果左邊趕刀寬度沒有到達跳轉N40繼續趕刀）
; a; |2 w* [8 y! P
b2 {; `$ { `7 W* t( [
N50IF[#1EQ#2]GOTO60（如果螺紋深度到達跳出循環）
# {2 e- ~; H7 |) d8 o9 G/ P- O8 b$ W0 T1 u# E$ x
IF[#1GE#2]GOTO10（如果沒有到達跳轉N10繼續下一層）
3 _# o+ z' @7 R
7 ?6 _ X% N: U9 Q2 ~: Q+ ?
N60G0X100.
' u* N" y& `9 j# h5 V
3 o6 J- f. @* l, z7 ~# x; d3 c2 Z6 _. j
Z120.
4 F$ I s% V5 V% s* U
/ W N+ d. I# Z! A" D* x1 n
M30
6 N5 p* J" ?3 M' s& t9 o w0 m y8 F) d& }
. _; {' T; P4 W$ n
- }5 {* C ]. u; x6 S8 V
完整程序如下：
' N7 A- g j& w9 d: L1 e: O
; ?6 r& O9 u, {$ D' o2 G# P
O0001
6 G; ]3 \9 x; l0 J8 @
1 C' P+ T% W1 M1 L9 c+ |G99M03S300
# L& M" x8 v! w2 o' t
6 Y% x% Y( l% p& KG97T0101M8
& H+ U' J s) j3 H' A- N/ [, c. J8 W; y4 n
G0X56Z10
' g" Q/ @+ @4 h1 H6 d/ C
* P& k8 [2 R# s3 v1 ~8 R2 E- J
#1=52
" k' |6 {$ g; E9 e5 F" G& o; M, E# @/ c) V! V# e
#2=34.4
S& v1 S' G* E- U5 F5 g/ Z6 B3 d: G$ x1 `* b
#3=0.4
$ f3 k6 F9 @ v: U$ P
+ p7 @6 ~2 \- |
#13=360000/4
* I) f+ V; j; }& J7 F% e" d- x% V: j; V- U4 R5 u
N10#4=0.2
9 u4 v. {, c) P4 j/ L! g2 l
+ u% N6 {7 E' j% {/ G- p
#1=#1-#4
5 i$ q8 f4 f- }, A, G
; ~! o# i# L( |7 r& FIF[#1LT#2]THEN#1=#2
' g1 u( c) ]% Q9 w7 z: ?4 s7 Y8 m
! M: O& S: d' ?4 i( O: d2 F# ~' |
#5=[#1-#2]/2*TAN[20]+#3
) x9 b' k3 z: V" H4 |: u9 }9 l
8 `6 E; A" `8 o$ D3 ^' w5 _#6=0
/ G {5 ?. Y1 \+ z! k+ F$ k* q% d" w8 i: {3 ^9 Y- R. H; F
N20#12=0
; U- r6 [8 _( g2 L D3 Y! g& G
3 T% B3 o4 [. R
5 I8 A0 c5 u4 Z- p6 ?3 Z
$ O" A# l+ U$ S: I2 s* ?& i #7=10+#6
* x5 t& s6 b) t- t, [! Q: N5 j
$ U2 w: U% c( l* x; K! F: M' I( k) n
G0 X56 Z#7
- `0 ?9 J E8 D3 t1 @
: n# s. o8 _( q/ V+ ^N21G0X#1
. T& L- M0 n& f9 Q
5 G0 O6 y6 O9 G, V5 S2 O
G32 Z-95 F50.265 Q#12
8 L, `9 }- Q- ? x$ P; w
( N" G' ?2 H7 X c7 P& N. QG0 X56
+ E; G0 Y2 u: w' I' ^) C" k
/ }/ u% K1 i7 ^/ `7 IG0 Z#7
: v4 j" W3 b: N! d; Q, Q: C$ ~2 G0 {0 N& P$ V6 \5 C
#12=#12+#13
4 C- Z3 D8 o# a" N
8 H w- L: z% N5 d! [1 E) r
IF[#12LT360000]GOTO21
: f2 B% x% Z t; p# x
/ U2 ~' O B" i* u9 QIF[#6EQ#5]GOTO30
& y% h/ s/ n {. e$ W$ `3 m
D0 Z" P' [3 Y1 x. p. O/ i#6=#6+1.5
* Y. a# e3 A6 ^. C) t% ?& _& N6 o/ e _
IF[#6GT#5]THEN#6=#5
# i% t! O: I7 P, H+ q
5 j# i- a0 T$ P# HIF[#6LE#5]GOTO20
" X; w6 n2 U- e6 {
) A, v1 M& _2 G( a3 Q; AN30#6=0
" J5 V, Y/ s/ _* w8 R2 J
$ U" O8 s) _: B9 IN40#12=0
" c; X1 i) |7 d V, L
- S% d( l( A1 Z* N1 K& a
#6=#6+1.5
9 E$ N+ G$ a) k, Q" d% ]# e
. Q& D; v6 s% ^IF[#6GT#5]THEN#6=#5
2 F. n3 o A( d' g, C+ B
3 m" @7 P$ r# E: z/ U
#8=10-#6
2 e9 m; V) V+ U5 r
, T/ r5 c0 k% h1 kG0 X56 Z#8
, R/ A/ y. E7 p3 A U2 ^
: W0 K( M% |% J6 V5 t- x3 Q0 Y6 gN41G0X#1
- h4 w/ }: D' i/ X
0 w+ G' n* C J: Q$ HG32 Z-95 F50.265Q#12
9 w, d" |( e# k+ @5 ]& [
1 ~& t7 }5 S7 z; v$ B
G0 X56
1 p: Q5 a# \* g2 c* ~
, o8 \# p' E0 B1 iZ#8
$ W* W# t( z4 I) O/ a+ |4 g
0 T" u! A6 k2 p/ A& ^( g( b2 H#12=#12+#13
. @7 ?' F" I9 U9 s2 ~# N4 h; [+ l! k ~- U* h3 O# {
IF[#12LT360000]GOTO41
* ?, q& O# i$ d8 d$ G" A$ R0 O
9 R2 }1 A! i2 j L G" S& c7 p
IF[#6EQ#5]GOTO50
/ G# U" m$ ^5 N* X& F: a. ~* N
5 N/ h$ ]1 j1 k2 p( W) M0 oIF[#6LE#5]GOTO40
8 E4 h: N& G8 g+ U9 T7 j3 c$ v% Y. K
N50IF[#1EQ#2]GOTO60
/ x$ u% J/ |# Q( g* i1 E2 i. A1 I* K8 d
IF[#1GE#2]GOTO10
9 A, j. o4 n1 O# [9 _, b
1 E( t" `$ ^+ E% E- t
N60G0X100.
7 g5 I+ t) [2 |$ `
) c3 T, C1 u# X) n' k' o5 i9 G! {Z120.
& J$ J7 @+ r3 T, H- w/ P2 Q; Z# |- \8 v$ M/ D' q w5 w7 u
M30
1 K9 j% r+ S) i' w! T7 g; O$ V1 y/ E P1 K# M4 c% d2 H$ V1 L
作者: 韓寒11 時間: 2017-12-31 22:46
蝸桿得用宏程序，樓上的宏程序很好，樓主認真研究一下
作者: xiaobing86203 時間: 2018-1-1 18:01
三樓大神正解！
作者: aa2852029 時間: 2018-1-5 11:23
厲害，看一看。學一學
作者: XIEYANG1985 時間: 2018-1-31 12:33
4 A j5 t4 x9 w+ `$ B) B
謝謝樓主1 p' e: H: c' Q L+ W
作者: 章華鵬 時間: 2018-1-31 14:58
謝謝。正好想學習一下宏程序。
作者: wx_lbY2wG5b 時間: 2018-2-8 08:39
宏不會用。我一般做多頭梯形絲桿螺紋。這個能用G78做嗎？
作者: 正在連接... 時間: 2018-2-10 12:21
" [) K" a2 A1 T. \
只是給他參考/ X0 c4 c. ?4 k: h( A' ^
作者: yxj33463346 時間: 2018-2-24 17:25
厲害！
作者: 冬日夏風 時間: 2018-3-11 10:31
收到，不錯啊，我感覺很好
作者: 李玉彬 時間: 2018-11-17 17:58
不錯蝸桿就用宏吧
作者: 那座城 時間: 2018-12-10 18:45
頂一下
| 歡迎光臨 機械社區 (http://www.ytsybjq.com/) |
Powered by Discuz! X3.5 |