蜗杆加工

阳光宝宝

蜗杆有模数M=2.5 头数Z1=4 齿顶高系数h*a1=1导程P=31.4 最大径=36.5 中经=31.5 如何计算小径  任何编程    第一次接触蜗杆 一头雾水
0 M+ t$ i1 y, O$ m2 R/ s

jiaweicz

第一次做就做4个头的蜗杆，有点难度啊

正在连接...

8 W# V; m3 M2 \/ ^8 T* V: Z全齿高一般是2.25，既然你齿顶高系数是1了，底径=36.5-2.5*2.25，编程的话我不知道你对宏程序了解多少。下面是一个蜗杆宏程序，你自己慢慢研究吧。

/ a- |5 S, P! ]" V8 S
, U0 w  G5 q9 G* z# c

D=52   d=34.4  模数4 四头， 牙型角20度，刀宽2mm 角度LE20度 ，

- V7 S$ x, C8 `1 ^( s; m* j

P=3.14159*4*4=50.26544（导程等于摸数*3.14159*头数）   W=0.7M =2.8（蜗杆底部宽度）

   

4 w6 {$ a: P4 E9 w3 G  F
8 I" S. X  u3 @# N) m* R1 u# a

程序：

" [# e3 G7 S9 x- v+ p% s

O0001

G99M03S300

3 j* ]1 [$ ~# u2 l

G97T0101M8

: C1 T2 Y9 t3 r& N
1 \2 X& ]$ X- m7 U

G0X56Z10

% P3 W, V! n6 x6 S5 y& Q1 M- M
& x8 [% X8 @( h- u! z. K

#1=52（蜗杆大直径）

4 A, {. `) |' q. F5 a. B# F, f
; [$ k0 Y  c: w/ Q2 w* k

#2=34.4（蜗杆底直径）

; O0 ]! e* @9 Z+ `/ L$ K
0 ?9 i9 T% z% K) ]  W9 g

#3=0.4（底部宽度减去刀宽的一半）

" }2 w* _' s/ L6 A/ w
" t+ q& A9 E6 D

#13=360000/4（算出每一头的角度）

) w# l1 R, L& i$ }; O" v) f

N10#4=0.2（每层吃刀量）

8 i$ x  ^( o0 _* u$ x
' E  H2 @8 L2 S9 B

#1=#1-#4（大直径递减）

- _0 l, J9 Z$ N* Z
1 m3 u% R, r9 e5 O. h4 N

IF[#1LT#2]THEN#1=#2（条件判断防止过切，强制赋值。当#1小于#2，那么#1等于#2）

3 W, J+ q' c' o4 c. a6 g& F' s
1 i' B6 T6 {3 O/ G* h3 Q

#5=[#1-#2]/2*TAN[20]+#3（三角函数算出每层需要赶刀的宽度）

- i4 t! M  f+ B1 N- E0 }

#6=0（赶刀初始值）

  U) u" ]3 n( g! o( y. n4 A
$ \# ?5 `+ Q& V- ^8 ?

N20 #12=0（Q的初始值,不能乱放）

#7=10+#6（计算右赶刀每次的定位）

G0 X56 Z#7（螺纹定位）

4 Z  F% W1 p  z5 H' D

N21G0X#1（X进刀）

G32 Z-95 F50.265 Q#12（螺纹车削）

% R+ ?+ ]9 K; o& }, o, T0 H

G0 X56（退刀）

! \3 `7 \$ i8 `
- }; {2 x6 V1 B( o

G0 Z#7（定位退刀到起点位置）

8 C" M: Y+ t2 A
  [  o6 b  }! D( e' f

#12=#12+#13（角度递加）

' s& v+ c+ u/ Z- O$ t- w
3 p0 o% F0 Q3 q7 l  I

IF[#12LT360000]GOTO21（如果Q值小于360度跳到N21执行下一头）

, G3 R# H5 \# R, _& e$ S
* D. Z6 R! j! i0 u! w. L

IF[#6EQ#5]GOTO30（如果右边赶刀宽度到达跳出循环）

. H: q- \% S3 L: n

#6=#6+1.5（每刀赶刀量加1.5）

* }4 g. c9 [9 c+ S
$ g$ U6 M* o9 n( x2 A9 B, H

IF[#6GT#5]THEN#6=#5（防止过切强制赋值）

5 i1 {+ D& e6 N" Y/ c' V0 N& a

IF[#6LE#5]GOTO20（如果右边赶刀宽度没有到达跳转N20继续循环）

  V; E* [) I# K; ?$ E. M2 C$ X, d

N30#6=0（赶刀初始从新赋值）

* s% W3 h* i: I1 f4 K+ R8 W
2 A8 |1 i9 {$ D. k% I: w1 _' F* x

N40#12=0（Q的初始值,从新赋值，不能乱放）

. K; K& G, p. n2 G# @

#6=#6+1.5（赶刀宽度递加）

) |" A% `+ g) q
5 n2 W/ R# ?& K+ u5 G3 `+ C3 Y

IF[#6GT#5]THEN#6=#5（防止宽度过切，强制赋值）

# c5 N/ @- p3 `7 D5 G, o

#8=10-#6（计算Z定位向左赶刀）

' H( h8 q* E  L6 A. S

G0 X56 Z#8（螺纹定位）

N41G0X#1（X进刀）

& B: L2 u# V0 M# ?( A. s% R
  M$ `8 r" u& l' D/ E

G32 Z-95 F50.265Q#12（螺纹车削）

6 e- o1 ^. n, L* i( p3 k

G0 X56 （螺纹退刀）

Z#8（退回上一次加工起点）

$ [6 r0 h6 h1 b& O9 `

#12=#12+#13（左边赶刀的角度递加）

6 y1 J, M$ P. K1 q# J
) _, q" @2 w2 E+ `

IF[#12LT360000]GOTO41（如果Q值角度小于360度跳转N41继续下一头）

, B$ A2 ^* e# g: N% d* Q
/ o& M1 w: `2 G% K. H4 C

IF[#6EQ#5]GOTO50（防止死循环，如果宽度到达跳出循环）

7 x8 |: ^) O, r8 Y1 H3 Q" X; ?
1 m2 T8 U3 Z0 N, e: P/ Y

IF[#6LE#5]GOTO40（如果左边赶刀宽度没有到达跳转N40继续赶刀）

- i' o, @' E  O& g
& L2 e- @8 F. e$ f' i+ C' {3 n# @

N50IF[#1EQ#2]GOTO60（如果螺纹深度到达跳出循环）

( P1 e$ k3 @# ~

IF[#1GE#2]GOTO10（如果没有到达跳转N10继续下一层）

7 `% F) L8 K& X

N60G0X100.

2 @* I& ~5 y& p. W$ W/ v. p
  P/ P& s' q2 C# w8 q; f9 ]

Z120.

' d( r! b" c- n0 Q# m7 Y
  D4 a. E3 c" @4 r# {9 F/ C! @

M30

' @) p! r, H7 @, {2 i. U9 B
4 X4 N1 S* [& A& f. W$ A8 X% S

完整程序如下：

* ?: ~' C. _4 U4 G
) Q: |. U! s# D* Q: ]

O0001

4 Z; r) y1 b$ k' }8 b8 N
7 x% a5 R! n; p0 U$ \% d2 h

G99M03S300

" @6 d+ r& k) b" e  v

G97T0101M8

. ^, t9 m( K  b7 M& I7 `) ]  J& G" y" D

G0X56Z10

8 i; H0 m2 f) c! D6 V+ u
0 v# U( B0 U3 S+ R$ |1 j3 v8 u

#1=52

0 |2 \* U" a7 ^& z$ H, s) n0 j

#2=34.4

& ^4 O, Y. d( }/ {  o

#3=0.4

% L% x; I& m( _% w! w
, ^# D. M0 P: U1 d4 o

#13=360000/4

. k* ?# x' {( \! X, }

N10#4=0.2

, j# R3 q0 X$ ?: o

#1=#1-#4

$ M9 y1 B( X8 [4 ]4 r  i1 f

IF[#1LT#2]THEN#1=#2

7 X# G. j& o9 ^8 @/ R5 w2 `. [
; _; O; _: g5 t6 n- @' E

#5=[#1-#2]/2*TAN[20]+#3

8 Q$ s# D" k: L" r
0 K3 Y- y7 q6 \- Q: Y5 |2 c

#6=0

N20#12=0

: g7 b* m! C) w  M( i

#7=10+#6

8 w+ H+ C) R  Z- [

G0 X56 Z#7

N21G0X#1

; ^& c$ w) b, V. K1 U3 {
7 m' s1 I1 Q* O8 g" c1 z5 Q

G32 Z-95 F50.265 Q#12

  D5 x3 @  B: \, u$ P

G0 X56

G0 Z#7

! ~1 x  p4 f4 l0 H+ E2 @( J: [
0 G& n6 t, V1 O9 U) L* B& y

#12=#12+#13

: W. f- H9 L3 Q
, ~- x0 z# _+ V! I$ |

IF[#12LT360000]GOTO21

) u2 c2 b& d  Q$ I) _+ |* O1 T

IF[#6EQ#5]GOTO30

#6=#6+1.5

IF[#6GT#5]THEN#6=#5

4 e& L  c8 {0 Q( y; Q  T! z9 _: b1 L# I; j

IF[#6LE#5]GOTO20

5 \8 W; |: w* @; e3 M
/ p3 w: L2 ]5 ^

N30#6=0

N40#12=0

#6=#6+1.5

: s- P; q- q4 T+ z) f

IF[#6GT#5]THEN#6=#5

7 Z* X8 ?  J5 Z% ]: a3 S" D

#8=10-#6

& g" B+ H/ y+ O- H

G0 X56 Z#8

5 @2 `# P; B1 ^2 D7 _. `  r

N41G0X#1

, o5 v. `" ^$ m

G32 Z-95 F50.265Q#12

G0 X56

8 V/ b2 I* v& g/ b6 X- C+ V

Z#8

% A. r, _5 E# ?% g* [
% m3 l3 p  v1 H3 @. K

#12=#12+#13

IF[#12LT360000]GOTO41

) b* a0 h7 C* L. ]+ r) W4 g
1 [) k( y4 Z2 O6 m* Z) x

IF[#6EQ#5]GOTO50

IF[#6LE#5]GOTO40

0 a3 F. l0 j2 a  j7 \& B7 o
5 \" o8 z1 l5 W! n

N50IF[#1EQ#2]GOTO60

IF[#1GE#2]GOTO10

# ]5 p# a8 M8 S, H

N60G0X100.

% H* |1 O, ^! O* {6 ?( `
7 L9 A% D( [, r- }6 C

Z120.

2 a8 ^0 D! ~& a+ B0 [
1 B3 b3 r0 y* F" F

M30

/ \! {6 P; c# n, t3 \

韩寒11

蜗杆得用宏程序，楼上的宏程序很好，楼主认真研究一下

xiaobing86203

三楼大神正解！

aa2852029

厉害，看一看。学一学

XIEYANG1985

正在连接... 发表于 2017-12-31 15:53
5 `* u0 x5 q& w$ c! J全齿高一般是2.25，既然你齿顶高系数是1了，底径=36.5-2.5*2.25，编程的话我不知道你对宏程序了解多少。下 ...

$ [' Z8 A$ x( t5 a7 e谢谢楼主

章华鹏

谢谢。正好想学习一下宏程序。

wx_lbY2wG5b

宏不会用。我一般做多头梯形丝杆螺纹。这个能用G78做吗？

正在连接...

正在连接... 发表于 2017-12-31 15:53
全齿高一般是2.25，既然你齿顶高系数是1了，底径=36.5-2.5*2.25，编程的话我不知道你对宏程序了解多少。下 ...

; w5 i+ @. F' G" d, }# u( }  j只是给他参考
" H8 x. q- H$ V4 A6 r