本帖最后由 正在连接... 于 2017-12-31 15:57 编辑 : s( p* b4 ]0 G1 j
/ b% {4 t* S. s
全齿高一般是2.25，既然你齿顶高系数是1了，底径=36.5-2.5*2.25，编程的话我不知道你对宏程序了解多少。下面是一个蜗杆宏程序，你自己慢慢研究吧。
* s2 M; a8 X# h+ m0 [9 N1 y5 S$ h n. R5 @# {1 {8 T. x
- N! B4 _8 j8 _; ND=52 d=34.4 模数4 四头， 牙型角20度，刀宽2mm 角度LE20度 ， : @- R. s( @/ ~2 t
/ L% e" K9 o. F# N1 Z' k0 K! T
P=3.14159*4*4=50.26544（导程等于摸数*3.14159*头数） W=0.7M =2.8（蜗杆底部宽度）
1 a; y, ]" g& l; g3 Z# s
) M( u4 _5 ]' z9 @; x' P % J' g. }+ q* g# l1 _- X
* X+ v# P( l+ o& p
程序： : r) a, R* P/ T* W# E9 ]( i
. \3 M7 l( ]; i
O0001
& G6 V4 m* e4 z- {. t2 U$ l- c( n+ e* {3 @9 U2 y8 j
G99M03S300
; m* V9 }3 z% _! g2 d* [% \- e2 k
G97T0101M8
' l( e. X4 {& p" D8 h
4 p1 `% A0 `6 _9 {" mG0X56Z10 % G' [3 X9 Y1 L
+ D8 @0 o- G" X3 c: O- X8 Z#1=52（蜗杆大直径）
0 X5 \. t* r) l
) E" o& p) m+ j#2=34.4（蜗杆底直径）
, l) k# f, r# L6 p7 o" y w$ s- H5 B
#3=0.4（底部宽度减去刀宽的一半）
+ t" l& r# g7 ]4 \5 l3 \+ `7 X9 S
q; R" Q2 X' M% V$ B1 E#13=360000/4（算出每一头的角度） # A* y0 K. e, Z* I' ]
' z% Q5 g2 K# E. w" a' [
N10#4=0.2（每层吃刀量） ( z4 |3 O3 Q2 S8 r
1 e& m+ _4 Y0 s7 I#1=#1-#4（大直径递减） ' Z; V' s9 I, o0 p8 u0 ?
( ~1 x& L$ s5 X, T* u
IF[#1LT#2]THEN#1=#2（条件判断防止过切，强制赋值。当#1小于#2，那么#1等于#2） 1 \ S s7 L! ^
' G& N0 r- z, e* W
#5=[#1-#2]/2*TAN[20]+#3（三角函数算出每层需要赶刀的宽度） / z( a2 k# c( {" i5 o& g
( a O4 H/ m1 o#6=0（赶刀初始值） ; A' b4 j7 q3 W
" I- ?3 k% @. h8 [N20 #12=0（Q的初始值,不能乱放）
& ]0 R7 t% S* F3 i
' q! E3 s8 p3 W5 A+ e#7=10+#6（计算右赶刀每次的定位）
0 `* }: [" I8 \! o/ o6 D8 J; K& l' b8 j' W+ y2 A0 l
G0 X56 Z#7（螺纹定位）
/ M: Y/ p4 }% M: ?: B! Y. V( u4 w5 X( p( D: h9 f7 M: r3 n G) x* x
N21G0X#1（X进刀）
$ o6 t3 p1 D: I
; r) b6 o/ F+ o( e2 T, rG32 Z-95 F50.265 Q#12（螺纹车削） / f8 p6 w: r& `( T
0 W& d! S3 G$ a M! y- R" cG0 X56（退刀） 6 |7 Y) r: l G: { y4 f4 [
7 i( j6 a& L/ T/ O8 _
G0 Z#7（定位退刀到起点位置）
, S' I2 g6 @9 g% K6 i; M, H" S8 y w: a
#12=#12+#13（角度递加）
# N" c0 n7 C/ `9 Z% ]: j0 f- k+ b% s" O/ m
IF[#12LT360000]GOTO21（如果Q值小于360度跳到N21执行下一头）
% i$ T: U2 m: s2 B; U* K, m* p3 \# c, H& f1 y
IF[#6EQ#5]GOTO30（如果右边赶刀宽度到达跳出循环）
( G$ E+ r9 l+ U3 O# X4 ^8 y' j+ l! n- s, W6 Q8 J2 N
#6=#6+1.5（每刀赶刀量加1.5） . D$ q+ c+ I3 p% i6 p' n
8 m8 M5 g4 s7 _; M7 \7 ZIF[#6GT#5]THEN#6=#5（防止过切强制赋值） 0 g+ p% {& M4 C3 J; B7 L" n( W" z
* B6 W8 W: v8 C) b
IF[#6LE#5]GOTO20（如果右边赶刀宽度没有到达跳转N20继续循环）
1 R* y) z4 V9 P# s9 K5 @
8 a7 _2 w" Y1 G$ X4 |N30#6=0（赶刀初始从新赋值）
7 `- \7 d& V8 V. h
: h5 D4 |! h2 A/ X+ H! MN40#12=0（Q的初始值,从新赋值，不能乱放）
7 g# S# _* y/ O& U7 i6 g1 g; r8 l; T1 I# O" Q$ i* V) p, f
#6=#6+1.5（赶刀宽度递加） $ b' n+ j7 b. M9 w6 J1 t0 Y
; b! ?3 e3 t+ h$ s6 BIF[#6GT#5]THEN#6=#5（防止宽度过切，强制赋值）
8 _6 L8 T" b, V0 b+ b% F7 G6 [* ?% S: ]. H' M! S
#8=10-#6（计算Z定位向左赶刀）
$ g, {, e; B2 P1 y3 `3 e/ ?8 P" Z4 G) A6 Z* p9 L' ~: v8 V
G0 X56 Z#8（螺纹定位） & ^ u: H3 T3 F: h& F( \7 p5 Y6 T5 O
; x( Y, V2 n1 o$ `9 t* V4 K' f( D
N41G0X#1（X进刀） ( f g+ |( R* S) O7 l
% g/ t5 e) Q1 ?) Q4 J6 b) {, s& `+ bG32 Z-95 F50.265Q#12（螺纹车削）
( {- C% ^. {. g$ t
# W8 a) f! c4 aG0 X56 （螺纹退刀） 5 Q' S) L" t) G7 q& z7 f. }, u
`0 h# P7 E$ Y& D/ F$ i
Z#8（退回上一次加工起点）
4 D3 \9 c, Y. C$ m% f! L ?9 d6 g: u j. [* R
#12=#12+#13（左边赶刀的角度递加） 7 `( |( o a1 P& N
& f# _! x; E; G5 e2 zIF[#12LT360000]GOTO41（如果Q值角度小于360度跳转N41继续下一头） ' A/ T6 I* Z9 z# t8 S5 [# ~. c
Z% d; G& `% t
IF[#6EQ#5]GOTO50（防止死循环，如果宽度到达跳出循环）
/ S% @" T, Y& N \. @1 q Z9 E* j! i0 t: \. B8 } H) Y* C
IF[#6LE#5]GOTO40（如果左边赶刀宽度没有到达跳转N40继续赶刀） ' H3 C0 o0 c9 j7 n
- |' Q& L' T8 k, K4 A* S# aN50IF[#1EQ#2]GOTO60（如果螺纹深度到达跳出循环） . [- F+ O8 L6 X
* m9 _. z. d) M- b0 Y* J( \IF[#1GE#2]GOTO10（如果没有到达跳转N10继续下一层） B: x/ t+ Y; c+ t
, p" P* |# y3 P1 P( C
N60G0X100. , p) J8 D, I% ]: o6 y
5 J; h" U) x: V" M' ]& b9 jZ120. 2 p2 U5 B$ p A$ j' l0 t- \) c
: b0 P; }- e j
M30
0 y' E+ i$ _" y5 C; |7 s" g0 E$ r/ e- ^! |3 U7 a5 G. m: I
/ Z3 Y. ~7 [! q5 W
5 @1 m' |( J9 V' H) @ Q3 t* g完整程序如下：
& c# \$ G7 t! O) J2 }' \
, a0 Z$ a. l# @7 H: VO0001
) |4 N4 ?9 ?3 `0 R: D9 i7 j Y! q8 f
' j4 g7 l. ]" E% T/ U! r6 l* kG99M03S300 : H1 L" n! [7 d# X, ^2 c
4 ]( a: K" D$ V& V+ Z0 n, B7 QG97T0101M8 3 N/ q& K- U7 E6 [* U5 _3 @; r) ~
( U: S4 r" P* {! _- l$ BG0X56Z10 & N" ]$ @* e2 a
- y+ d1 p& ]0 D! _$ N#1=52
& ^; N1 f8 C: p( ~7 G. ~* v7 P4 l: N9 _" f* T n) O
#2=34.4
. W" w3 L$ m: D8 A4 K: H4 X: K) C+ ]" v7 Y& e; M
#3=0.4
) b) C! Z9 X$ M$ B
7 w, e- N, |* M! s, T5 U, ?#13=360000/4
, M1 o/ K3 D, R5 l8 T8 M" \3 A4 @- z$ Y0 s8 F6 f4 k
N10#4=0.2
8 i( j% t7 e5 ^
5 m4 Q" ~0 n5 P) F7 F#1=#1-#4 1 t3 R9 V( s! I$ |! c9 y) t0 G
+ L% K1 }: e+ c+ w! [* s, m2 TIF[#1LT#2]THEN#1=#2
3 o t8 b( S8 G3 b0 z# Q7 F8 r* _6 V' m9 h. h5 N
#5=[#1-#2]/2*TAN[20]+#3
3 T1 C. {! H8 X- K: f8 q( F, d
#6=0
1 g3 Q9 e Y) ~+ R+ e2 \! q' S; }& c1 D" P
N20#12=0 ! u- f/ z# N' V1 Z h3 N1 u
$ H- g, ]6 ?8 |9 f% U. o % [, F# b# M! m" B `
# ^# V2 z& q( F3 n
#7=10+#6 6 O/ p4 P0 [, C1 I4 W
/ H7 W! K- D/ Z; lG0 X56 Z#7 ! F+ q7 R. R7 e. P; `
. h- W# A+ Z1 A" G% ?
N21G0X#1 : g- G, |9 R, B9 G) T
+ [- {; b) G+ P% ^& q Q5 x) a( g
G32 Z-95 F50.265 Q#12
: ]' g$ V: ?! J$ l. B, O8 v
0 F4 G. H; ~, z4 GG0 X56 4 d& s& k5 M5 Y
N+ F ^# O8 N D; i6 u' dG0 Z#7
; s$ n) N& s t5 E- z
, ?! M6 @7 `9 W* d7 u+ c! i#12=#12+#13
0 c( Z; U# I# `
7 W. i, @& p5 I2 GIF[#12LT360000]GOTO21 6 e3 x7 B7 X9 x5 r: N& i
7 P; l* F9 C% k8 N
IF[#6EQ#5]GOTO30 6 P) i, ]/ h/ S5 V
5 M8 j8 B. P* O# m' x9 Y& n5 V
#6=#6+1.5
/ ^; w" b8 ]2 `1 g" E- E6 @
' X3 J. d1 b8 O ?IF[#6GT#5]THEN#6=#5
. V/ v" H; b. g H q7 j4 H+ u3 P' d! `& M
IF[#6LE#5]GOTO20
1 B3 m! B% a5 W, Z8 T
2 D! ~$ `4 w7 O5 f' ^% s9 s& f x1 kN30#6=0 % C$ J8 k8 w. n, A$ h+ i
- K- [, u( |5 c& ?
N40#12=0
; {- E% k/ E' b+ ]7 I+ _7 G- q% l6 V
#6=#6+1.5
3 q8 e. U) \1 ^7 u2 ]: i9 s& f* ]3 H0 V4 m+ e
IF[#6GT#5]THEN#6=#5
; o& x% a' C5 K% ~% R# ^) B( S; \7 ^5 E$ z" ^- @
#8=10-#6 4 q) L$ j5 m7 J1 M0 A6 e
- g, u2 K' W. ^3 Y, p7 p8 E3 V# { b
G0 X56 Z#8 ! J# M- P" \5 q# n. q
4 b/ _% W: K, n3 A% P2 J5 Q
N41G0X#1
; s! P. u* N( x: q6 h9 u- U1 G" K3 Z% Q# M: `+ X* R
G32 Z-95 F50.265Q#12
; K) n7 r7 m& q: g4 V! h
3 d7 R. H l2 B; r# `6 x& \+ z1 JG0 X56
# r6 }- O9 j4 a* V' o" H* G$ [$ |$ F" ]2 l7 J; y1 D
Z#8 3 h. q, k8 j- B" r7 d9 _3 d9 O% g
0 c3 g6 T! \2 a#12=#12+#13
7 Z; G/ b- ~: _. z; t
: r6 |6 q# x4 N5 z; ?' SIF[#12LT360000]GOTO41 ( H0 l: f( n& L( u
, Q8 m9 U2 K( q; C% J( v. oIF[#6EQ#5]GOTO50 " {0 I: \+ H+ f: p
9 @2 ?, [' ~% e* B+ z4 M
IF[#6LE#5]GOTO40
: c p6 j! H/ R1 r. a5 B
- t( `& \/ ]4 K dN50IF[#1EQ#2]GOTO60
% h# T2 H3 L- q# V5 y$ S/ E$ [! s# s- h( D* Y7 ~ Q
IF[#1GE#2]GOTO10 * G( v' ]6 W" \; d1 J! f6 Y" B
! z* A- p6 a+ b1 f& O
N60G0X100.
& u$ \; @+ Y6 N1 W# B. A0 C9 p/ w7 z# Q/ _/ g5 b/ k9 {
Z120. ( d' w, B/ H; ]8 ?9 q3 ~% i
5 Y0 e! v( h E8 H- g1 }( L
M30 0 ^1 |; `2 D, N* p
1 ~) l- Q7 ?+ J: R E( Z |
发表于 2017-12-31 00:06:01
