本帖最后由 正在连接... 于 2017-12-31 15:57 编辑
{. S8 J/ I% A% h6 Q1 M, N1 @. ^. n
全齿高一般是2.25，既然你齿顶高系数是1了，底径=36.5-2.5*2.25，编程的话我不知道你对宏程序了解多少。下面是一个蜗杆宏程序，你自己慢慢研究吧。9 B5 }1 z$ _3 g1 S% ~4 Z
1 X4 }2 e; j0 X* L8 r, S4 E3 y; C& o0 z& f' P
D=52 d=34.4 模数4 四头， 牙型角20度，刀宽2mm 角度LE20度 ， 9 {- X1 m4 A& X( i- q' J
# Z4 A1 |& t: c# t( M, rP=3.14159*4*4=50.26544（导程等于摸数*3.14159*头数） W=0.7M =2.8（蜗杆底部宽度）
# K9 V5 l z8 r- ]) R; ]; o% c1 N! h& U8 \
s9 J8 j+ A8 R
* Y% K f5 [- t) m% b5 G
程序： 7 p9 o9 Y9 k8 E. M2 r) l: _( h
, l( x' P6 \- \% C
O0001 $ s- s' v* z& B; m# @
% e+ e- Q5 T# Q) R* Z; s* E) K
G99M03S300 Y/ W3 j) ?5 g6 K7 @, X
! S, m- I2 E$ X. s9 [
G97T0101M8
9 i5 f5 u. x, X! V8 D% J8 V6 s0 f7 C) ~ S2 d
G0X56Z10 " I: V3 t$ o# L" B& R' r
" {, H% @5 L5 z0 M0 I6 a/ p) Y#1=52（蜗杆大直径）
. P+ [0 b" C J
, j' b& O) h1 a8 ^5 G# J0 t9 o#2=34.4（蜗杆底直径）
9 \" N# @# Z+ R# I7 n5 }
- z/ o7 C: P* u1 q1 V- s#3=0.4（底部宽度减去刀宽的一半） $ f* C0 J$ I1 y: p# P7 i( K( z
6 U( S+ k( P4 v; s" q* R
#13=360000/4（算出每一头的角度） # ?, g2 U' j+ A1 Z, I
) |, H* M6 k& p9 \1 C% p3 J) ~
N10#4=0.2（每层吃刀量） ! k1 n, Q4 V7 Q$ i5 c
8 c- o1 j) E1 A#1=#1-#4（大直径递减） 0 C% g: D' E& T
6 P7 V% F- O+ rIF[#1LT#2]THEN#1=#2（条件判断防止过切，强制赋值。当#1小于#2，那么#1等于#2） + R1 G2 ?9 Q5 E/ A
8 c' y6 o0 [- @6 F ]
#5=[#1-#2]/2*TAN[20]+#3（三角函数算出每层需要赶刀的宽度）
7 s9 T+ K0 p1 c( h" M1 \6 k/ a- L4 n% K
#6=0（赶刀初始值） 9 M" ]8 a5 B2 e! w% G& j/ H% {
; ?- }# L' b! q4 F1 KN20 #12=0（Q的初始值,不能乱放） - ~8 a/ o M8 v) M# a. X; Q( i$ w+ f
' A/ M; a1 [$ ] T, h" G#7=10+#6（计算右赶刀每次的定位） % V; V2 H2 I% p# T+ Z1 |
+ ]6 U/ w8 h8 H' E& m8 c
G0 X56 Z#7（螺纹定位） 8 f: f$ z2 c2 L+ |5 b7 E5 j
( |$ W0 I( z' M& g# F1 ^1 R
N21G0X#1（X进刀） % H! l! [# B" | Z. B/ H+ l0 n
' a, P- j* x5 Y" Q S, qG32 Z-95 F50.265 Q#12（螺纹车削） 8 D, `, w% E$ Z4 \/ e3 n
' S8 ]% R$ `. s% F& k' k; ^! xG0 X56（退刀） g2 b* f3 {; t7 ~% K) P3 X
: }2 E! Q& z" X6 p4 hG0 Z#7（定位退刀到起点位置）
, W- ]; Y- n$ [
. a- P- ?2 w% |) V5 \7 O* H9 F#12=#12+#13（角度递加）
8 G8 I. u- [0 ?4 E! n% D+ ]# O' q D) I
: q; k, M! W) o# O" v7 _0 J3 eIF[#12LT360000]GOTO21（如果Q值小于360度跳到N21执行下一头）
' m( G! d( K. o
' H N. t6 U+ ~) X! mIF[#6EQ#5]GOTO30（如果右边赶刀宽度到达跳出循环） 2 O% b5 r5 w9 ~
/ D2 O9 ^- \! O. ^- m* d#6=#6+1.5（每刀赶刀量加1.5） # S5 v( ` S! l: l" s! n
/ g. B" h- P* e; P! SIF[#6GT#5]THEN#6=#5（防止过切强制赋值）
+ b1 g( a# r0 v+ I% x7 R: O' D y5 F# e
IF[#6LE#5]GOTO20（如果右边赶刀宽度没有到达跳转N20继续循环） E/ m: r+ R5 z$ K) Y! }; p
+ |9 E7 e' E9 f
N30#6=0（赶刀初始从新赋值） - }/ o8 S& z, m# L7 b
9 G0 \ C. o- A" P ?! h {: yN40#12=0（Q的初始值,从新赋值，不能乱放）
) u2 z. C9 F; c3 G3 h/ h
. h9 f( d% ~& h5 a. t+ w#6=#6+1.5（赶刀宽度递加）
5 ?- E: X( p2 t+ c# Q" f
# A- G2 |5 N" g1 ]9 w) @IF[#6GT#5]THEN#6=#5（防止宽度过切，强制赋值） 4 P- l1 P' O) w
- f! s$ a9 ] w
#8=10-#6（计算Z定位向左赶刀） % j" J7 f8 I2 j4 j3 ~( M' h H
! O% i5 W$ w; N( Z& W$ [
G0 X56 Z#8（螺纹定位）
5 R6 B( b! h! V/ ], @5 |2 Y2 T6 `! Y% R6 ^6 g
N41G0X#1（X进刀） 3 ~3 ~4 B2 P2 X
0 n8 t4 o f' W3 |8 x' j( ^G32 Z-95 F50.265Q#12（螺纹车削） $ ^4 Q* ~; z6 {8 I/ L
/ a& k( k- O$ W0 cG0 X56 （螺纹退刀）
" }6 b8 ]: Y8 g u; ^: U) ]9 V7 {; ]3 H# j U' w
Z#8（退回上一次加工起点）
# N* _- R, t+ D1 b [% Z
0 t5 k9 ]% @, j @' O& M9 f#12=#12+#13（左边赶刀的角度递加）
- J0 z, L! |, R( {: [& ]4 Q5 s* J' A( M8 L2 I6 W1 W
IF[#12LT360000]GOTO41（如果Q值角度小于360度跳转N41继续下一头） 3 z. b9 ]5 l& R; J9 n+ g; r
3 K5 w- l0 l7 x( a; O
IF[#6EQ#5]GOTO50（防止死循环，如果宽度到达跳出循环）
. t7 A) S; k6 r
& k0 ?% @ e: y) t6 m7 H- QIF[#6LE#5]GOTO40（如果左边赶刀宽度没有到达跳转N40继续赶刀）
4 O# G! y. I5 P" f" v+ V: E# P) L, l2 ]* J5 v' y( h$ Z: l
N50IF[#1EQ#2]GOTO60（如果螺纹深度到达跳出循环） ( L1 p5 E. }% O A5 [3 u4 t
5 C+ r8 ?- H, ?: G% R# d
IF[#1GE#2]GOTO10（如果没有到达跳转N10继续下一层） * E/ X$ U: f1 x' f( k! E
, F- \3 I- J+ N- ^* r8 A& q6 ]0 X
N60G0X100. {& H) g7 b( E; V
9 M4 @% C. z& G @* s/ Q4 V; ]
Z120. ' P8 b: L& N% @4 i0 X
* U" G+ S" _8 Q1 sM30 + K/ e8 B+ Z# ~( h8 c
2 D# @# x- o* Q% U( n 3 C; p2 O o3 g" l! n( @! X f/ [ v
! M# k$ O8 L8 H完整程序如下： : p1 W2 l; t1 E) m: j: s) K
5 A1 J( o- W7 f% R) MO0001
! S q% s$ f8 E2 m; c, D, M8 H4 c3 c% i% n* l
G99M03S300 / ]- v& v) H7 a' Z' O$ k
3 s6 T8 o7 [: x t7 m: K
G97T0101M8
7 \+ b" S* t, C; ?9 q8 J) R, R
' c0 v/ G: ?5 h6 ~7 |4 oG0X56Z10 & K* j2 p7 C: d+ D
7 w& K" _. @1 h+ y1 Q" w F#1=52 * W# j+ q- z% Y* b; f. ~
3 J% y, w! V- |8 d
#2=34.4 ! z7 U* Q, }1 W: i3 O% [6 B
$ q7 o% }( Q. l8 n. W' w
#3=0.4
+ R+ d, l* p5 @9 P4 K& P ^
: \0 n& C. @2 }. f; l* }4 b! ^: M' A#13=360000/4 0 L1 D' w% e" ?+ {6 }1 f( N
" T* L1 _& x# q g. f
N10#4=0.2
5 |1 b6 k9 P5 @* }+ \# O$ f% [6 i, P0 g/ w7 T& q' }( r
#1=#1-#4
6 H' ?. i% {; R, t& v$ u4 m
* d& n( T5 H+ V# L+ e( ]IF[#1LT#2]THEN#1=#2
4 B$ y+ Y. ^% Y! _8 i' R4 U0 U+ H: X$ d" i, K
#5=[#1-#2]/2*TAN[20]+#3
7 @( k) X f) B4 [) ~0 Y7 O% G
1 P# ^% V5 W& U. s! _: e5 h#6=0 2 w/ Q) q4 {' r% ]) J
! ~! @! C% M* t: _N20#12=0
2 L4 `( u4 ^3 x# M0 Z
' s. a z; E" K( x
) H. w2 y% p+ }0 P4 A1 T& c2 a: r; f" i0 u# K/ @; ?% Z
#7=10+#6 - e" s, c4 [, d& e2 k+ T1 S
& B# W, } Z4 B0 n3 F
G0 X56 Z#7 6 [8 z5 m* r% h$ P
$ ]+ b3 O! c; x& @N21G0X#1 . d! d0 t3 x; {1 T' D2 j! P+ V
+ t5 j" L: v! k, K+ ~. vG32 Z-95 F50.265 Q#12
/ ~6 b; b! D9 ]! O$ ^3 h y$ b' q* W- E
G0 X56
& I# K! {& Z/ ~! q# |8 Q# Q! b% s3 K( M/ y/ [7 u2 D! e( I5 H) ~
G0 Z#7
5 w0 k% o" B; _& L# B: M
) U6 p; r; |* P; [& ^% w g#12=#12+#13
+ o: D) m! a* B ^& F( e: z/ y+ b1 j
IF[#12LT360000]GOTO21
: v8 E7 d- E/ q
M( R: q' Y' |$ T( qIF[#6EQ#5]GOTO30
8 t. r K, `3 P" P" I+ }% O% R6 R6 G. m3 I) W* P9 Z* U
#6=#6+1.5 # J1 f3 k' E. X; ?6 H
+ O Y, n2 m E8 Z" Z& F2 [1 [$ a; ^
IF[#6GT#5]THEN#6=#5
2 w' R+ n9 u: R( t( \2 f# Z8 s
0 L" Z( K: L" T u! oIF[#6LE#5]GOTO20 5 t* t8 u# | ]3 E
4 s, m! R5 R# J0 @ s) JN30#6=0 " C6 W0 @( g( [2 X
: I- j* |6 U' Q3 v
N40#12=0
( i7 P% s& P' `
- z2 ?! z! ~+ L, o#6=#6+1.5
3 X; |# y9 t' {$ f. D* h) a2 J4 z9 ?' P& o" k& c+ V/ U
IF[#6GT#5]THEN#6=#5 6 o" U! o# n) U) }1 b3 ]
# H3 {( X- \" U
#8=10-#6
7 N& o: a1 Q6 K& e0 J
8 H2 R- E% |1 q: e& G) SG0 X56 Z#8 " j6 h3 G6 m- o: y* }- p; B. `
% V; N2 G: \. E# U
N41G0X#1 ! M' y- T, R; t, |- D7 v
8 d1 r, ]3 i- L$ h' V; r
G32 Z-95 F50.265Q#12
0 d+ _ ?! s6 y3 Y. X% U/ x) E4 a# n3 ~6 `1 n! `9 _8 P7 }
G0 X56 ) w' X: p+ u+ Y/ M' \# ?5 f
3 c/ g$ W+ m; g' X' v5 L' x9 @Z#8 + I }$ ^( N! @, X. V3 ]
5 T( Q* r ^3 ^- p' `/ C#12=#12+#13
( R9 L. p5 w) |. U" o; r$ M" i& ?1 I& \2 Y
IF[#12LT360000]GOTO41
$ Y8 m9 h; `4 ]( ^1 B' n
$ M: @' B# [3 K9 B# m O' hIF[#6EQ#5]GOTO50
3 h5 `' ` p9 ?! a1 q- R. c y n% w* I+ X
IF[#6LE#5]GOTO40
$ J& y" g! g, P P9 p" q0 X1 X7 S
; t5 g/ `! m' L2 f2 ^' F% wN50IF[#1EQ#2]GOTO60 * c- E* Q, D* Y: Z; K
6 I1 e6 `$ o v5 pIF[#1GE#2]GOTO10
/ ~2 \$ [5 e. C
3 c8 e1 w+ |* a1 N: E8 v7 G3 M5 tN60G0X100. + N+ n7 k, F, H( F
2 d! j3 h- _( h! M6 a& b @
Z120. 4 [) m& c O$ ]. b
; v; ]& \+ `! r+ I& c( W! }7 DM30
- k& ` _1 W3 m, V0 j+ @5 [$ Y( v9 W5 ?. t5 Z
|
发表于 2017-12-31 00:06:01
