本帖最后由 正在连接... 于 2017-12-31 15:57 编辑
% V0 P2 [5 ?) ?) D* j$ z
8 t) b+ y% ~% k全齿高一般是2.25，既然你齿顶高系数是1了，底径=36.5-2.5*2.25，编程的话我不知道你对宏程序了解多少。下面是一个蜗杆宏程序，你自己慢慢研究吧。
5 `7 c: p1 ?6 X. m D9 n7 {6 R
- W9 p* s: S, O; Z# K% m- ~0 A! J% J2 M; `) `3 k) b: u/ _2 X
D=52 d=34.4 模数4 四头， 牙型角20度，刀宽2mm 角度LE20度 ， 7 S H" H" C( P4 k! U9 g* B. R# s
' z+ }, ]' `2 `, HP=3.14159*4*4=50.26544（导程等于摸数*3.14159*头数） W=0.7M =2.8（蜗杆底部宽度） : J8 U8 _9 R1 R
; @2 O& g" E8 B6 j" O
; o6 b1 N+ M! } i3 w N& p# `& y) h9 z$ g& H& D" c
程序： ; u; W/ p) B1 b! h9 v4 f8 ?. W2 w
* I9 {- J9 U$ e/ A; u5 y1 |( V
O0001 # j/ x' N; t/ S8 {( M
5 r2 N- S& `" s2 J0 h& d5 S; d3 uG99M03S300 # u* D- y# N2 x5 k6 q- N. R4 f }
$ a6 b9 [- I FG97T0101M8 5 \. x& n" P4 @
& ]; I8 j; d: l& y
G0X56Z10
, g0 T x( u) s+ j# S: s* X" U0 l4 H' {+ V- Z7 p
#1=52（蜗杆大直径）
) W' n9 i+ W$ s, {+ Y* t* c, y- b2 `$ W0 e a6 y% U; y% B
#2=34.4（蜗杆底直径）
' L9 a6 L: p8 M! R' j' u5 Y1 p; w8 L& H! m
#3=0.4（底部宽度减去刀宽的一半） " J7 S' A- E) v/ R# z
7 h$ b! }0 V* m% |2 R7 Z% G#13=360000/4（算出每一头的角度）
, k( u. q: d( ^- D2 ~ U
" c% _7 {% ` [; V$ ^N10#4=0.2（每层吃刀量） 7 ?8 ~7 t* ~/ X& S& b5 u! V/ F( l
_% b, E& g. _3 ]
#1=#1-#4（大直径递减）
( }- @$ x. W6 r7 _. n! I5 X, L) A& O" j9 |3 k( X [
IF[#1LT#2]THEN#1=#2（条件判断防止过切，强制赋值。当#1小于#2，那么#1等于#2）
4 {! C! `3 _% S) L [' ]) m+ o
2 C7 o9 N2 b8 l; V+ H#5=[#1-#2]/2*TAN[20]+#3（三角函数算出每层需要赶刀的宽度）
3 l- a* L0 K: l c' I3 R8 s
1 r- ]6 g# k" p, j1 T) P% o#6=0（赶刀初始值）
, o/ t* H# l) X# E% m* \3 n) V; Y1 x% U
N20 #12=0（Q的初始值,不能乱放）
' S1 ^; O9 J+ }! x- l- x! X; T2 V" ?2 {0 c) ~, F" Z
#7=10+#6（计算右赶刀每次的定位）
1 w z# T0 b$ p( H1 V( r
1 ~: g [7 t/ CG0 X56 Z#7（螺纹定位）
- k0 Y* B' y- |: x3 S. Q. ?) H+ `2 m
7 `3 K* f5 B9 x# A3 ^1 E$ \N21G0X#1（X进刀） + w- c7 e j5 r; n4 Y* G+ ~# J
9 `1 ?8 k6 M5 R; }: `" h9 y
G32 Z-95 F50.265 Q#12（螺纹车削） ) d" ? ~: A: \: x9 L
, O5 ^! [( C. ^. V7 PG0 X56（退刀） : R( |% ~8 M" {3 D% u6 {4 }: T; |
- C. A! h. ?1 W' p( ^ NG0 Z#7（定位退刀到起点位置）
: H- d: y |* L+ _( E. ^3 j5 `8 K
#12=#12+#13（角度递加）
& E( J! J1 L& E2 }* [' R: {
' {! y& {& ] L L3 UIF[#12LT360000]GOTO21（如果Q值小于360度跳到N21执行下一头）
A6 j/ e0 D" |) ?# ?' {. e `3 T, Y6 \6 q; [0 _
IF[#6EQ#5]GOTO30（如果右边赶刀宽度到达跳出循环）
' L6 Y$ y% `, y
$ |/ D- W$ p8 ]$ w#6=#6+1.5（每刀赶刀量加1.5）
& f' Q/ e! Y1 L) }/ d8 C( M2 Y/ t) Y7 }* _ C* [
IF[#6GT#5]THEN#6=#5（防止过切强制赋值） ; y& d: f, t* G: N. K9 \/ |
' I% `; D2 r2 {) ^- m: J2 \IF[#6LE#5]GOTO20（如果右边赶刀宽度没有到达跳转N20继续循环）
! O9 `% j" j8 X D
6 a/ I( F9 N4 F& E( ZN30#6=0（赶刀初始从新赋值）
2 ^% \2 z- h6 U6 [) ~
% z: M3 e1 {8 ^. `N40#12=0（Q的初始值,从新赋值，不能乱放） % @+ F! K8 a% S b8 s# @* F D
/ `( V/ f2 d3 S6 z#6=#6+1.5（赶刀宽度递加）
: W" V( l u1 O# M& s8 a
+ L; M1 f6 B9 g1 o) X( _& V# V1 MIF[#6GT#5]THEN#6=#5（防止宽度过切，强制赋值）
: M* g# x! x( b- B, k5 R2 K6 P+ L
" P! ~9 n4 O6 S3 W V& S, }#8=10-#6（计算Z定位向左赶刀）
# u" T6 I- B! C" x1 s' }8 f
- ?2 y% S& \$ B P8 e3 MG0 X56 Z#8（螺纹定位）
9 b1 S" E( J% B9 N6 `, M
( Z' F5 m- d% i& R# _, J/ FN41G0X#1（X进刀）
$ N" ` N" X9 e' `- E1 O) M; B0 D# H1 \
G32 Z-95 F50.265Q#12（螺纹车削）
& i+ Z7 w/ n8 p# x) ?! r7 A" u; m4 o! u, n- }( F) ?& \ V
G0 X56 （螺纹退刀） N* j! `+ J% N: A2 a/ `6 {2 @
! s( e' ^9 w6 S. I
Z#8（退回上一次加工起点）
7 v7 s* F$ W, z2 M6 t, g5 |! l; n0 |* Q" |: j/ o% C& {- |
#12=#12+#13（左边赶刀的角度递加） " ^) [6 B8 `8 d7 y; i; R) {
. ]9 a4 V% w. A7 o, S& g, t. q
IF[#12LT360000]GOTO41（如果Q值角度小于360度跳转N41继续下一头）
! |* Q( F/ m d7 Z& l; _8 [% m; e% ^, @3 _: r4 n& R: O
IF[#6EQ#5]GOTO50（防止死循环，如果宽度到达跳出循环）
2 y7 k n6 B% m1 U
4 h, @. K. h: o& ^0 iIF[#6LE#5]GOTO40（如果左边赶刀宽度没有到达跳转N40继续赶刀） 4 o$ d8 ^- R$ A) P
0 K% v1 I& H- BN50IF[#1EQ#2]GOTO60（如果螺纹深度到达跳出循环） 9 j6 w- i! G d; O$ k, C* q: X
& T" E/ m) G* {# Z2 w4 s1 yIF[#1GE#2]GOTO10（如果没有到达跳转N10继续下一层） ! s$ C7 E) A: Z
) o# Y2 O F6 A, |. e) F/ d3 R; _6 L( rN60G0X100. / k/ }& l' P9 @( c
1 t% S: ~2 O) A" m: CZ120. 9 w! j. f4 B2 U1 I) z; B' j+ L
- C, N4 N/ p. F e4 J+ VM30
9 p( @; h/ C# A' R) A+ j& Y
3 `5 y$ S7 H' k' h* ^ v5 \" ?& J7 p- m9 d
" A" c7 k0 B7 Z+ [
完整程序如下： 9 C8 I/ K7 \* P5 J: t) N
9 l- Y. {% W; ~0 ^
O0001
" N G3 M. K2 L3 J/ ?. l- w+ f' I8 g) y5 K
G99M03S300 8 M( G; B! M" `% [. Z# q
" _% z8 N% L5 R# \9 U3 P5 q. j- }5 uG97T0101M8
, G7 O+ b! ^+ H- G' t# W% K
; B8 o( L0 n8 p3 MG0X56Z10
( M7 T9 K2 b% R* i1 [$ T( d
& L3 ^ H k) [9 K6 }7 t#1=52 ( t% X4 D$ c8 f' ?/ C1 ~
( c6 D7 y$ o v#2=34.4
1 K' |) C# f J* A' O
7 [, q! R* s9 x P3 ^5 @#3=0.4
$ |, G) {# W t5 ?4 H3 U
/ B) j) R' L, t+ l. s#13=360000/4 ( z- W5 a4 N* O$ M
5 q3 l/ S _- O S) Z+ NN10#4=0.2
! r$ D0 s$ t* V. h& M8 B
) D8 g8 @! R1 j+ `#1=#1-#4 - p9 g+ E* F+ Y
/ [5 I% r& s! |$ g% sIF[#1LT#2]THEN#1=#2
/ I2 G3 q" d4 J( m6 j* ]' k) R2 F) q o9 S% D
#5=[#1-#2]/2*TAN[20]+#3
1 f. v3 L3 I9 y2 b" n7 k# ?( U/ J
' S5 h" h1 r6 r#6=0
+ J6 q8 c$ {! t8 p1 {7 q; k Y5 D! r4 B0 j4 L: C1 {
N20#12=0 * ~- M3 l% j. {" V0 b- g
( Y, s. S" A* }8 U, [. q , S& A* }0 N. B1 X0 Q# R
5 B9 h% \) M: ^7 N0 |$ ^ #7=10+#6 9 p% V" x$ H: @3 Z1 s
' E4 c4 a2 I4 N. h/ sG0 X56 Z#7 0 n9 }6 B) Y6 m# g- ?
2 \8 u4 }. X2 s [4 ]. jN21G0X#1 & i# B" d+ l; Q+ q% m( B
- g4 i! X; b$ ?+ fG32 Z-95 F50.265 Q#12 5 S, C+ L% r. I; M' r1 w& v( ^
; n; I" k0 e7 A0 j3 U0 a7 [: v
G0 X56 ! u" A# r+ _( x. | s. ^' g
, b- h) C; W' ~( I) I2 Q7 gG0 Z#7
/ d: r) R6 Z& M3 s8 @
- e4 ~( @1 n8 k9 c#12=#12+#13 4 O) }& a% b( K& K, Y& }& `
$ R# `; F! Z9 B0 J, e8 Y
IF[#12LT360000]GOTO21 " }/ ], {* _8 ?/ {
) c' D- B ^- A/ q9 m7 e4 f5 Q: @IF[#6EQ#5]GOTO30 : {. B0 W9 c/ a, s5 @
' K8 n! O. |& ^9 f. Z2 m) B#6=#6+1.5
# M! `. A1 r: j0 L. ~- w) u
4 _; b' Y# Y$ } j0 a9 [0 i6 VIF[#6GT#5]THEN#6=#5
$ d- ?* K) t; P) Y1 Q. C% E5 b/ V0 \* y
IF[#6LE#5]GOTO20 3 [! ]3 [9 X+ f4 D( v- u/ M
+ e5 @! o& j" N0 sN30#6=0
" E: \' `" z8 ^* f
* P0 |1 n! l, {( A4 lN40#12=0
$ y. L/ X8 i, r: h0 ?- c2 E9 \: L0 q# P" X7 c, ?
#6=#6+1.5
% C `) b0 f4 S# [) z' H- {, W& `6 w2 V9 J
IF[#6GT#5]THEN#6=#5 ) [% S s, G a, \* d; i
+ t5 \' d: v, D2 X4 `7 R
#8=10-#6
; m1 K- ~2 L5 g9 d& ~
' q5 n/ J; L6 J9 ]G0 X56 Z#8
3 o$ A$ Q; M) P1 c8 Y. b6 G; ^* y( @- k2 C& V' {, @. ]/ A8 Y
N41G0X#1 " J+ Q& N7 Y( F2 T# o: G6 e
9 r+ h- h1 r4 `/ x" M
G32 Z-95 F50.265Q#12
) U9 m% F) x1 b S% E8 O5 D# h; K7 m4 v1 M! m/ S2 T
G0 X56 ! x0 u/ N3 i8 A5 B2 o
0 W+ q1 b D2 B$ [9 W- S( a! V# ?Z#8 $ ]* K) h0 l# e* J( t3 Z2 {
6 @* ^6 u4 r% O$ E# V
#12=#12+#13
! H3 n D6 V/ |. Y$ v' w
- Z9 ^' }% d, d0 ~# M) SIF[#12LT360000]GOTO41
2 h' o# j5 n1 n c
( h g9 l! d, E$ Y; ~: ^$ O# Q9 ~IF[#6EQ#5]GOTO50 " h( ^- {6 b4 u: T
; r- H5 y r1 y. V" X: _5 ?' q
IF[#6LE#5]GOTO40 . C* \$ r8 C+ [
; X l W: d6 o# W
N50IF[#1EQ#2]GOTO60 0 x, k0 G3 M. d0 R
( d; n* E. T- T5 Q/ W- ~9 c& `! nIF[#1GE#2]GOTO10
6 v$ {/ E! C( ^2 n7 K" h5 j2 ]! P$ S) {- K3 Q. S
N60G0X100. : T+ |% J# S+ D! Y9 {# {
. i8 ]; j& h3 }3 ~6 z
Z120. 7 l. Y- v4 C; d! T$ C
, Y. D" H4 t0 H- IM30 7 F& t$ J( p+ _
% o5 z7 t! V# q D, o# _# g- o
|
发表于 2017-12-31 00:06:01
