本帖最后由 正在连接... 于 2017-12-31 15:57 编辑
; B+ O2 R5 z8 t6 l: v) W# @& Z4 H. O- v$ ?* \. d1 }
全齿高一般是2.25,既然你齿顶高系数是1了,底径=36.5-2.5*2.25,编程的话我不知道你对宏程序了解多少。下面是一个蜗杆宏程序,你自己慢慢研究吧。" t: J; c/ Q% a/ ~& c U8 {, i
* v. H' ]' W3 h$ v; L
/ V. |- n9 t$ z+ { Y
D=52 d=34.4 模数4 四头, 牙型角20度,刀宽2mm 角度LE20度 , # X& `; c ~6 p R5 k9 _/ x: S. f
" r; s4 ^. | U* n# m
P=3.14159*4*4=50.26544(导程等于摸数*3.14159*头数) W=0.7M =2.8(蜗杆底部宽度)
; H7 m J6 d$ q; P0 ^: H8 K7 U! q5 |, J; G; d
4 C2 S3 P- P/ l' S H
$ s" i* W9 l/ Y" H& d& [0 A% E6 x1 h3 M
程序:
: W3 q+ Y/ ^ M, p7 O
+ S, [! o/ [4 F- D9 MO0001
! \, T2 f. ?/ l! K6 Y/ N6 H4 T, Y- D; w0 u/ O
G99M03S300 1 p+ w9 I4 [. |; |
* h' S: Y" t8 H4 l6 X
G97T0101M8
' Z9 p) p; l5 F; T" B4 ~3 j
6 |( M9 ] T7 u" ZG0X56Z10
9 n7 N6 Y. C: G5 N! i% ~1 w6 m& g g' ~) z5 I
#1=52(蜗杆大直径)
2 a5 _# m; {8 }0 U7 _# l6 E& Q
$ @: U v: o9 I1 v5 E7 A+ o#2=34.4(蜗杆底直径)
+ ?: D# |$ y6 r9 [5 T3 S( z! ^- r" i1 X/ u- F9 M
#3=0.4(底部宽度减去刀宽的一半) & [5 F1 M! @- {9 e# i
6 q! }+ q! m0 ^# P7 L8 J#13=360000/4(算出每一头的角度) $ B' S' C& W4 u6 w* ^' W
# s. I$ K* F2 Y: ~+ Q' V
N10#4=0.2(每层吃刀量) $ K+ ~6 ?( ~" I8 S4 m9 s; x
& j5 Q$ O/ J" E; V* Y; b#1=#1-#4(大直径递减)
! G* o6 T% Q6 |# Q" `1 b2 F3 b% h5 g5 N
IF[#1LT#2]THEN#1=#2(条件判断防止过切,强制赋值。当#1小于#2,那么#1等于#2) $ J* q& Z8 H; E; ?, i6 Z
; u% T' w& e. ~1 z! y! ^#5=[#1-#2]/2*TAN[20]+#3(三角函数算出每层需要赶刀的宽度)
0 x3 Q5 E) n) J. i: s3 c2 S3 B! v2 r4 ^) b5 R5 N
#6=0(赶刀初始值) * f6 `& o& p! t6 V3 a, Y$ U
# [! z. V7 s- ?4 {, {6 |N20 #12=0(Q的初始值,不能乱放)
: Z8 |4 {; k8 Y1 E e! A( P: c' D
" c5 _1 A/ j0 s' ?% ~$ l#7=10+#6(计算右赶刀每次的定位) " K" m2 k5 c! U. [5 h+ |/ q
3 t% |# c8 C" |5 S
G0 X56 Z#7(螺纹定位)
4 h8 V( s0 j' p% }0 }( k* w" ]2 M) w* e1 W! i4 {. `
N21G0X#1(X进刀) + J" R- ]: v$ n. z5 _
, m+ D8 m+ s" E9 ^G32 Z-95 F50.265 Q#12(螺纹车削) , H' k" J4 X4 j
7 [% T: Y9 v% v* {; a& cG0 X56(退刀) * ~* R; ^: _8 Z( p+ n7 g0 k2 g
4 u% h# q& w& {9 q: N: n' vG0 Z#7(定位退刀到起点位置)
& {3 b# q. D& i4 Y. c5 F2 l5 m5 T4 V9 c2 v! F" X$ E
#12=#12+#13(角度递加) G" P4 @" Y$ ]" ]* }
, e9 L. I. A3 a* OIF[#12LT360000]GOTO21(如果Q值小于360度跳到N21执行下一头)
* [1 ? k5 R7 m2 T( e9 D% j+ M# Z& [0 H
IF[#6EQ#5]GOTO30(如果右边赶刀宽度到达跳出循环)
8 E# C* \3 D3 E6 W' Z) z3 E( B
/ B4 [) v6 I* v# {1 o7 X#6=#6+1.5(每刀赶刀量加1.5)
4 T! ] Z3 O- E: R# l
! o; s( i5 v; @IF[#6GT#5]THEN#6=#5(防止过切强制赋值)
+ D9 L, H0 C/ I/ r. U ?( G% r: ]* f7 {0 q5 ~0 B9 R- F
IF[#6LE#5]GOTO20(如果右边赶刀宽度没有到达跳转N20继续循环)
; u2 J" V7 e) U) B# M5 n5 n( q# _% |$ Z% X# S+ Q% f
N30#6=0(赶刀初始从新赋值) 0 C1 g# H+ P) Y3 i" k% s3 m
! t9 E" i- R& }8 E0 R5 P5 I
N40#12=0(Q的初始值,从新赋值,不能乱放) 7 I) L: T ~6 v- V ~9 u E
" ~9 N, o9 `) `- g5 ]3 Y4 h2 w#6=#6+1.5(赶刀宽度递加)
& u+ b" g7 z& ~# C& ~8 t- k9 ]' z: h# T8 S [
IF[#6GT#5]THEN#6=#5(防止宽度过切,强制赋值) ) u$ I/ |: f! F# m7 l& O
# `; m2 Y+ C) q. s3 {
#8=10-#6(计算Z定位向左赶刀)
$ g: o* r O0 E! V
3 t& [, x7 C G. ?1 XG0 X56 Z#8(螺纹定位)
( p( [& E9 p1 m3 |$ c+ G0 X" `3 m8 n6 | u0 c6 }; x8 u
N41G0X#1(X进刀) ) \- S' g% B R6 A9 f0 C* E
2 |! \! S4 L* \; o( aG32 Z-95 F50.265Q#12(螺纹车削)
+ V6 ~& ~3 d- b2 H2 N$ `9 L0 ?& G0 v2 \* \- b6 O
G0 X56 (螺纹退刀)
+ Q6 }4 F, b7 R. c$ r
, c% P7 `4 c- c1 A5 ?7 h3 E7 pZ#8(退回上一次加工起点)
3 Y9 B+ ~) w+ [1 {! L4 K
' P: S% e+ O( i& q) L0 N- J* U#12=#12+#13(左边赶刀的角度递加) - z: B3 B7 S/ V) V7 D8 E
3 @8 e$ j: j- b) K% S2 J
IF[#12LT360000]GOTO41(如果Q值角度小于360度跳转N41继续下一头)
1 K m4 \5 G' N: m
/ h! n4 h x4 F' BIF[#6EQ#5]GOTO50(防止死循环,如果宽度到达跳出循环)
A- r2 k% e0 M- F" N$ I* w" S, b/ J: W% v5 Z8 |
IF[#6LE#5]GOTO40(如果左边赶刀宽度没有到达跳转N40继续赶刀) ! k+ y6 x5 e G* U1 k! H; C
~5 L0 h p: U. r
N50IF[#1EQ#2]GOTO60(如果螺纹深度到达跳出循环)
3 Q" X# v, s J; H! S9 x
* b; j- E |4 ` q+ dIF[#1GE#2]GOTO10(如果没有到达跳转N10继续下一层)
# n8 _8 F m8 ]/ h0 N) ?! J; Y' e2 p5 |8 N1 r) M( Q
N60G0X100. 0 N" S/ }" a* n# y' V4 ]# @
/ U8 s$ p8 h2 [" z
Z120.
1 r. a2 U @8 k6 W/ G# t% [" Y
9 a5 f* W) D& N! v6 `M30
3 p3 B. B; ~: R$ \) ]4 M' u0 P' O; d% E
! X, k$ |) u$ m d6 s/ ?+ P
: A0 m1 j# Y' h完整程序如下: 7 r1 E" M8 g* ?( v `0 q
& M5 w8 H0 A7 m5 g& y) nO0001
2 q3 T. ?9 _- n9 r* L
0 t* f8 @: g; l* Q% m" |5 D1 P tG99M03S300
! n. k$ t& b) s2 P: _$ z+ q) x' |; P, p
G97T0101M8
C; S# t1 E/ i% M) ^+ o- W
6 u$ M/ h1 {9 P$ }1 pG0X56Z10 ) s3 h1 D+ @% U [- c
: z5 ]7 |) @& p1 G$ h _% N
#1=52 , v$ z! g! j. w8 Z: R( D/ [- v1 r& m
" f+ T: R& n* h# i; P' L
#2=34.4
6 ~; u8 y% K* b, ?: ?+ |- E2 C
) W* U7 H2 M; f: T+ C#3=0.4 ' v8 ~4 f( ^; O o* N8 v9 M
' c0 b% ^1 ~9 O/ G
#13=360000/4 G* U1 M9 @1 y4 U" _* [
* p, {# n2 t1 W! i/ q. x# sN10#4=0.2
5 ~+ K, u6 v! M3 K
: n* W+ y, T" s9 l#1=#1-#4 . w, P. |" d6 X! P
) _2 w0 I+ ~# h2 _IF[#1LT#2]THEN#1=#2 " {$ y) K& { M' O3 E
( r$ o9 h1 K( s# q K4 B9 T* T4 J#5=[#1-#2]/2*TAN[20]+#3
% b1 L3 ]* V( B. `) X2 y; s" Z) F5 k9 F+ a8 T G
#6=0
: R: n- M+ A. t1 S6 m
( _5 T! U7 |3 X gN20#12=0
; X3 C* c/ S* q& r; s- C4 v* j2 t' e; B
% Y: S" y9 [9 f8 g2 f4 k4 f V
) a: W, Z9 j! ] ~. m9 m# Y
#7=10+#6 % f* K D. }5 `5 P
Y! ?5 W9 ^. B: s& L8 wG0 X56 Z#7 0 _/ }8 w; t# y. b7 x; z/ e' F
( b3 {% B; b c w
N21G0X#1
( w+ w) ^$ y) Q0 X" e
- x" i* T' l# dG32 Z-95 F50.265 Q#12
1 U6 Z# T. f; F O/ N+ r% j1 t# p4 ]
G0 X56
: V- q% s' ?+ {/ O6 e& H. T
- k, n% k t- }* o GG0 Z#7 9 ?! h. Z5 y# g
$ Z2 d3 Q5 r; D8 A
#12=#12+#13
" K8 ?( R" \2 [8 K8 N1 k+ N' i: f$ A( I) ~* z: ?& u; `
IF[#12LT360000]GOTO21 # [ j$ I. q# p' K5 R
7 |5 x. l5 ^9 E
IF[#6EQ#5]GOTO30 2 `& z( e+ l) h' S3 T: H
% T: Z' g% l9 f' d; c& r" O#6=#6+1.5 * P: i5 m5 `- Y- P! ^7 _$ X
; C+ R8 r; Y" q, K; m6 A
IF[#6GT#5]THEN#6=#5
- c, b5 j* B- t" A$ ?' u7 |- G8 W! c- t9 O8 u" `& k/ f+ l
IF[#6LE#5]GOTO20 " v2 R3 K# ?/ J: b5 f6 s
! w3 a9 [) y6 g) @N30#6=0
8 \8 n+ P* S' s! e' U& C5 ]5 ]9 i2 `" N. f: |) |
N40#12=0 % k* K9 g: Z, A* K9 j
& V) g0 R9 \' [, u3 ?* Y9 n5 h2 y0 V$ \
#6=#6+1.5
8 O; c( P- l1 `. l& g
3 f) Z4 I4 d% PIF[#6GT#5]THEN#6=#5 - T0 n3 h" \; P2 z' Z- e
2 c( F2 E. D; \ O. ]/ ?#8=10-#6 $ e9 Q J" L+ n! k; ]( E
5 W" s1 j4 L B! i7 n3 J% f M
G0 X56 Z#8
) ^5 z8 L! l$ ?- d( C. p& z+ D, I$ q C) V2 R: _
N41G0X#1
- s) w I0 f5 z
. W# e9 y2 s% h" TG32 Z-95 F50.265Q#12
0 d' }. _% ]* ]5 t; F+ I& N" t" F1 t3 d2 g1 J" B6 Q
G0 X56 # a. b, N o$ Y" u
' }- i8 V( x( Z0 r' p7 oZ#8 0 u" p4 |/ f. n5 q) Z5 H8 ? D) F5 ^
* |! M! m2 E% _: t#12=#12+#13 k) g8 z8 c# f4 H0 i6 V
" _. F" M4 \3 \7 e/ s6 j0 RIF[#12LT360000]GOTO41
9 l r% k! z z" d
% ~' D' X6 s( _1 V. W! }IF[#6EQ#5]GOTO50 2 h, o4 M& P: J3 e7 m; J8 D( s" U
* V5 m% V7 w! B# a: ]# [
IF[#6LE#5]GOTO40 ( J; y! f1 x c/ k3 k( I( R* U0 h
- o: h0 }" u" X
N50IF[#1EQ#2]GOTO60
6 k( v4 a/ e5 O. M6 E4 s
8 l! E& @% x0 H! g$ s3 fIF[#1GE#2]GOTO10 % O1 o1 h2 @# |+ x9 \1 w h2 M
+ P) H, Z7 z6 a: H- MN60G0X100.
/ G: q, w$ V. d( V
$ o9 K6 A. [* W: r1 k: j% SZ120. 5 `8 _+ u) z N
2 W5 ?! L# Q$ X' IM30
, s' j) A/ U! l* P8 b0 B3 @5 J9 X) d4 _) t: S3 E* ~
|