本帖最后由 正在连接... 于 2017-12-31 15:57 编辑
! [% n$ p7 k5 Z, g g. r
3 a; G. n5 S3 G% C+ [全齿高一般是2.25,既然你齿顶高系数是1了,底径=36.5-2.5*2.25,编程的话我不知道你对宏程序了解多少。下面是一个蜗杆宏程序,你自己慢慢研究吧。+ D6 V" p" `4 Q- r! C
, ^) m9 k; Y' Z$ K
4 `- j- A5 g2 a+ |+ e w4 u! Q
D=52 d=34.4 模数4 四头, 牙型角20度,刀宽2mm 角度LE20度 , ; U7 z6 s/ x2 C8 ]$ U* [$ m/ J2 Y; [
+ C$ E+ B; y$ y# b* U$ mP=3.14159*4*4=50.26544(导程等于摸数*3.14159*头数) W=0.7M =2.8(蜗杆底部宽度)
# F5 e3 S# I6 ?% w: @- z- B$ V* Y* B6 V% n
$ R) a5 G/ t1 {: E8 y% H
0 G; t p! [, i- u程序:
' U) E+ I) g9 [3 f# r/ @: o. N+ b
9 |! V* T( h$ PO0001 / V* G+ e- a0 a6 L
& p2 M$ d) _. T N! w1 }2 qG99M03S300 7 n6 d+ ^/ H2 _
% F; |. @! e# b2 J5 JG97T0101M8
2 u& g- C5 T! n& ~1 H$ e7 n6 q$ W1 b( D* V4 O$ y, L! g
G0X56Z10 - f* m g$ {: [2 v
0 l8 Z8 @/ [; B5 d: C
#1=52(蜗杆大直径) ' t9 w) s* y. b! n8 C
8 g7 i% k$ O" c, ~: T9 A, l# z( _
#2=34.4(蜗杆底直径) + O8 j' N( d/ C, L: T
- W. b/ [1 E" b9 B
#3=0.4(底部宽度减去刀宽的一半) 6 L0 A( W2 g( @- m
; m% {( @$ `' X( T
#13=360000/4(算出每一头的角度) ' L8 O8 b# z2 f/ G0 r S
! L9 Y9 l% C7 YN10#4=0.2(每层吃刀量)
7 i& X8 C7 W4 \0 E0 u$ g/ b5 F4 o2 E" j; Z* v6 @
#1=#1-#4(大直径递减)
7 n( z. l' K9 ^* q% e
, y/ u/ _" e2 a5 o4 V& E) BIF[#1LT#2]THEN#1=#2(条件判断防止过切,强制赋值。当#1小于#2,那么#1等于#2)
3 y3 Y i* k" E1 x1 O8 ]. b9 c7 h3 i5 W( f. h
#5=[#1-#2]/2*TAN[20]+#3(三角函数算出每层需要赶刀的宽度)
; y, |# z6 E% ~. u! ?7 [. `, K7 r4 W! `* g! D+ |! W1 o
#6=0(赶刀初始值)
7 a) p# Y$ B+ ]+ n5 s$ V4 B2 e0 y ~, O8 s9 x, T1 p( Y
N20 #12=0(Q的初始值,不能乱放)
5 s3 o3 O3 S4 k" j5 A9 F
0 p A! w% I* m#7=10+#6(计算右赶刀每次的定位) 7 s+ M+ m' @! @$ r4 p/ |+ w2 D
2 Z0 h E, t5 l: B, Z0 U- k
G0 X56 Z#7(螺纹定位)
" Z: Y! w9 R% f# v
: c8 K# v' M Z2 Y" T$ kN21G0X#1(X进刀)
3 B# L! Q4 b2 ~; v! t
+ h. n) T; h& w7 S) vG32 Z-95 F50.265 Q#12(螺纹车削)
. L. ^' I+ p/ |+ z
. @/ O* B7 d9 N8 h5 Y$ c% v( x' A& ]G0 X56(退刀) 7 s5 ?; J* c5 t9 n# d# |! V" P
; v* r0 h, F3 |) g! _0 [G0 Z#7(定位退刀到起点位置) ! L- j; ~# ~4 Y# Q0 X$ c
; t' D5 i5 L7 y! k" X; v1 L
#12=#12+#13(角度递加)
8 U3 I7 P% U( j U8 Z/ C
: Z% z; K( a9 ^: gIF[#12LT360000]GOTO21(如果Q值小于360度跳到N21执行下一头)
# b. o5 [) e. ~. a* X3 A0 g8 W9 c
IF[#6EQ#5]GOTO30(如果右边赶刀宽度到达跳出循环)
* \( c# B7 P3 [5 P) i/ J# S
/ q3 @8 C" v: T- N) k#6=#6+1.5(每刀赶刀量加1.5)
* l& d6 A, a, f8 I# q$ p$ h7 g% k. l% S6 }; r
IF[#6GT#5]THEN#6=#5(防止过切强制赋值) 7 j! e, T! T: C
/ \) [1 ?8 D# z: C' T2 b" r
IF[#6LE#5]GOTO20(如果右边赶刀宽度没有到达跳转N20继续循环)
; k0 n% s. p/ r) ^0 z" i" w# V+ F
2 H9 j( j$ Z# m# KN30#6=0(赶刀初始从新赋值)
+ [* E4 b) W! F
+ m! Q% @% d6 E) ?. L0 J9 yN40#12=0(Q的初始值,从新赋值,不能乱放)
' }* l0 u0 g0 x' u; m& }! I* ~
/ e. ~% m3 B# K#6=#6+1.5(赶刀宽度递加)
6 S: v) n8 A F; F4 X/ {$ b
) Q( l- w' M# b0 b8 Q9 z! I( pIF[#6GT#5]THEN#6=#5(防止宽度过切,强制赋值) H' a$ U& I( D( R9 x6 \( e+ M
/ |6 Z6 d! F: Q. M9 \8 ^
#8=10-#6(计算Z定位向左赶刀)
: n# n+ S b- p% I# x, }
5 C9 h, C; S: BG0 X56 Z#8(螺纹定位)
/ A, P1 ? {- y4 ~; a2 |, E$ m& g" D, h. G& C: u& o) H
N41G0X#1(X进刀) 4 h& G4 W3 n- s2 K4 [* H
# A7 Z; y1 R: k7 W# o9 h( F
G32 Z-95 F50.265Q#12(螺纹车削) * d0 H0 _+ w8 X) a- r/ a2 d% a
. {# S( w. [) E+ K6 U; t; x. T
G0 X56 (螺纹退刀)
1 q6 Z! A1 @; ?" R' n; Q& J# _$ b) m+ c* f+ J
Z#8(退回上一次加工起点)
/ R5 g# U. c: w( K) W# n; z I" @
) p) T' i7 w1 W- p$ W4 e% A#12=#12+#13(左边赶刀的角度递加)
% @+ V! ~- R8 y; m
5 W- L* R4 y1 l! WIF[#12LT360000]GOTO41(如果Q值角度小于360度跳转N41继续下一头) - u# d" a- `+ \- ^0 O/ S; R% {" V2 o
7 m5 M! g8 R2 XIF[#6EQ#5]GOTO50(防止死循环,如果宽度到达跳出循环)
, Q, x1 l" K7 H( a% P m1 `& H! ^ D( t6 P
IF[#6LE#5]GOTO40(如果左边赶刀宽度没有到达跳转N40继续赶刀)
# a2 |+ ?* L. e7 ]' g, i* {/ w8 Z; Q" {, R7 ?
N50IF[#1EQ#2]GOTO60(如果螺纹深度到达跳出循环) ( B$ S$ h W1 V! L! ?$ j5 S
2 H+ u' |$ [; {0 L/ aIF[#1GE#2]GOTO10(如果没有到达跳转N10继续下一层)
1 A6 { H, C( }2 V T3 N; b% K0 V/ b* s8 M# J
N60G0X100.
4 [6 @1 N, b3 P& D0 u1 T+ U% i% \1 M! t' x, |6 p
Z120.
* Z. W3 _5 z( M+ a( Y& `& k1 e# E( i& C2 g. \ g
M30 1 ^7 }: g: c/ p
8 H# t' L s: P8 r y. z$ c
7 \6 E3 [6 A. A) D6 s d) ?7 S8 K I' c& q% ~
完整程序如下:
" z A' l) {) F$ c
) K" a6 o# e K- I5 e6 V+ u3 kO0001 # v* @1 K( V$ u5 f2 G3 D& L- \
h4 J; D0 {! t# J( O. g6 t6 _' V
G99M03S300 & Z2 ?4 b9 N, [2 ~& S+ f0 K
. h! T7 H& Z' [. K
G97T0101M8
* {% e G4 C1 s( N4 R
. p" X' F3 F, m$ [1 gG0X56Z10
$ F3 W$ y& J! h( Z& `% e* _; K+ y( a4 N! d0 f2 `1 k
#1=52
7 H! p2 q, R6 q' @7 y- v
. q3 P' x# R; }% X" L#2=34.4 ' n h1 o; q/ l% d7 P8 e
X5 G! Q: a* Z! U
#3=0.4 5 ?3 o8 a/ N$ _( l1 q) n
9 v! C+ p; e+ c q( R% L#13=360000/4 6 T3 e3 W; L! K% k( \) R
- c) ]- w" Z1 d2 o' V* WN10#4=0.2 : S1 l3 d' f" y) Z9 H
$ P$ e) T# N+ g6 K; N8 ]#1=#1-#4 $ _) _/ H2 ]( c$ `
6 x2 r: M" ]: f) |8 x) j: BIF[#1LT#2]THEN#1=#2
4 p e9 t' y) i* L" d$ j8 P, p r( k, S2 p5 C& F8 R
#5=[#1-#2]/2*TAN[20]+#3
+ ~$ I4 }; q( F! a: L8 U7 J5 O" u6 W X& N, s; C
#6=0 ; U9 @" H f0 q' @) E) Q
/ U4 K/ o3 d9 T9 V" y
N20#12=0 2 T i6 A# F8 v
: H4 k9 s/ A$ e6 ~. Y
0 r, J- n% {& a
I9 L" H5 Z5 z! v #7=10+#6
2 E. d( q" }) |/ b/ j9 V9 ]4 j% v' w: X: f8 j
G0 X56 Z#7 - `& \3 }9 d! q( Y* k! U8 s. L& y
/ M: B# ^! n p1 zN21G0X#1
) W8 ~: j* F. U; p# [- f9 T. Q0 N7 e: [
G32 Z-95 F50.265 Q#12
; K) Y+ T4 ~& m2 U/ {$ Z
5 y/ @+ C0 A% @: U) pG0 X56
0 w6 o6 P* A) X: E' A+ R- x8 e; m% `+ U$ i/ y; W
G0 Z#7
# p7 w. u" O$ B: l8 O" p" V) ^2 S, T) z6 F
#12=#12+#13 7 j* a, S. P( [* F* x* t" r+ U
! d4 b7 H4 O [# s- C7 @1 _' ^; WIF[#12LT360000]GOTO21
( l/ w# e o$ p9 X! R* t7 X$ u# T) o1 s5 E; g" [0 K
IF[#6EQ#5]GOTO30 4 P1 n4 D/ V* A5 o
! [5 x! B- ~# U; ?0 f: m7 @
#6=#6+1.5
- B P1 S6 I: C- q0 P3 b5 r6 w
, G8 R7 y* R) \$ ]: B/ V; N0 qIF[#6GT#5]THEN#6=#5
( N/ R; P$ l+ W+ N1 Q. h* C
$ A6 R3 ?" L, P) P( x5 U3 b4 n4 @" oIF[#6LE#5]GOTO20
5 A9 h* Q5 M% g& n* R/ D* \& }/ P! r4 v0 R! ^ Z$ b
N30#6=0 7 H# m, P. Y* W M/ k4 G! R4 }& G# L! z
: K" O9 o3 c9 g3 D; ~9 h9 DN40#12=0 8 ~1 n6 W% D% T* W5 X7 f
" X- y& n6 d& e+ a7 w8 ^! L
#6=#6+1.5
3 c) D; M! O. A c4 y9 R7 \
+ e) b' n4 d8 J% X* hIF[#6GT#5]THEN#6=#5 * W& h! p8 Q0 F! t4 C$ O
1 J% @: {1 @- B- d% x- [
#8=10-#6 x1 l5 @' n; f+ z% W
' L5 S) O2 p+ s8 z3 b' F
G0 X56 Z#8
2 J: r0 }7 Z1 H {3 A+ ~- u! d8 e$ O
N41G0X#1 / z/ ]/ d: o' K) g# Y* d
7 D6 n! y( H8 ~4 j; Z8 e' I! `) XG32 Z-95 F50.265Q#12 7 E7 @- y8 B! I# |1 ]9 x: R ]
0 N* p9 ^& m3 x+ w+ P% OG0 X56
6 \$ c1 y- T# u! V3 u' p" f
d2 R! C7 n1 R" }' P' VZ#8
; |* t8 C4 I9 d, T) X8 l* v+ ?/ e, }5 \ T8 e3 i* v
#12=#12+#13
- ` B$ N. X: i6 m8 Y$ O7 z3 h8 P+ q" X; h! w g: u# b3 F* E
IF[#12LT360000]GOTO41 1 H3 ~0 G+ Q( e, |3 j8 i: a
: ]) t* U. A6 b1 rIF[#6EQ#5]GOTO50 0 v& [) _6 @, f6 @ z/ w ^+ o+ l
; Z3 W. z9 j8 p6 `" GIF[#6LE#5]GOTO40
; d4 b `( G9 m$ d9 H
; U0 T- a* `4 ?# J4 w' N2 _N50IF[#1EQ#2]GOTO60
7 c3 H" ~0 f" v$ M, @9 G6 Y# w# R) F
IF[#1GE#2]GOTO10
w. f }. h" D+ \, H3 i& j9 ]( T0 b3 q2 t; `: I# s7 [
N60G0X100.
2 b+ B# ~# O* B! }
Q# u7 N( B6 a {Z120.
7 A8 h" @# F7 u% u6 u$ \) b' g' z) h0 W D
M30 # O; |) E( g5 g+ {- l4 M
/ k+ O) ?3 a7 N* O% E |