机械社区

 找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 6062|回复: 14

蜗杆加工

[复制链接]
发表于 2017-12-31 00:06:01 | 显示全部楼层 |阅读模式
蜗杆有模数M=2.5 头数Z1=4 齿顶高系数h*a1=1导程P=31.4 最大径=36.5 中经=31.5 如何计算小径  任何编程    第一次接触蜗杆 一头雾水
0 {7 k- a7 J& {/ u
回复

使用道具 举报

发表于 2017-12-31 11:30:04 | 显示全部楼层
第一次做就做4个头的蜗杆,有点难度啊
回复 支持 1 反对 0

使用道具 举报

发表于 2017-12-31 15:53:49 | 显示全部楼层
本帖最后由 正在连接... 于 2017-12-31 15:57 编辑 . J4 d6 T4 Q1 E" w
. e% s* j+ k% S! K: P
全齿高一般是2.25,既然你齿顶高系数是1了,底径=36.5-2.5*2.25,编程的话我不知道你对宏程序了解多少。下面是一个蜗杆宏程序,你自己慢慢研究吧。- P: `6 }) V$ {! Z

$ f* f6 q0 I, u, b" B2 d
- U5 B! f6 ]) g6 G3 G( U
D=52   d=34.4  模数4 四头, 牙型角20度,刀宽2mm 角度LE20

5 _; x6 w) o- A% @) _$ C3 v

3 X) a+ q8 {, W5 q2 l& k
P=3.14159*4*4=50.26544(导程等于摸数*3.14159*头数)   W=0.7M =2.8(蜗杆底部宽度)

& Y8 t" ^/ o9 Y3 S

' h- ?" n% F& F2 b
   
& \+ x  C5 J7 @% d
5 X, j! ]! Z* E) l  o
程序:

+ u$ r! G# n( C9 e+ g

& K* f4 p7 c; r6 O9 H$ Z
O0001

0 }9 [; A6 s  Q% X

# H9 d/ Z8 U) f8 a! E9 C0 M: L% @
G99M03S300
) c8 k  P0 \( l! x& [  g" o
, g; O9 ^" N9 D' K9 \, S8 ?( U
G97T0101M8
  p  N- X& `& y& _( @+ X

  H( j# P$ w7 R7 j6 t3 \
G0X56Z10

+ h) n% x. ^9 n$ u/ o0 b
: A& A' x2 b. k" b' p
#1=52(蜗杆大直径)

! L6 l3 y+ F  x, P/ C! z/ g1 o
! D: q% a" i8 b% s& H) U
#2=34.4(蜗杆底直径)
( J+ o3 J7 E( F) w+ S" f: {7 ^5 e
' j3 Y1 f$ C$ o9 @( E. y( [
#3=0.4(底部宽度减去刀宽的一半)
& q, g" m. A; C* u! |

" H) Z3 T' W# [, C/ ?
#13=360000/4(算出每一头的角度)
9 ]/ z* Z) F+ k" f3 F+ k6 x
4 i! ^: T! K# W* ]8 P: j& t) g
N10#4=0.2(每层吃刀量)
5 P% u  c0 U# n) I

  P5 t1 k$ I1 }+ E, g5 O2 o
#1=#1-#4(大直径递减)

+ }" `8 Q/ Z; c4 v) Q

/ {  r* ~; q  f9 n+ T4 P' K
IF[#1LT#2]THEN#1=#2(条件判断防止过切,强制赋值。当#1小于#2,那么#1等于#2)

0 V5 X' l) T, j
' i8 A6 u4 I7 [2 G& C3 o
#5=[#1-#2]/2*TAN[20]+#3(三角函数算出每层需要赶刀的宽度)

" u; o$ w- U; R+ V, a0 k

2 O+ z5 N3 X. P
#6=0(赶刀初始值)
, E( y  f2 X8 c- t1 L+ i0 b
6 @7 L4 J/ p% I; C
N20 #12=0(Q的初始值,不能乱放)
% u9 ]9 H9 @2 I" V
3 V& S) {, I3 n# `' C
#7=10+#6(计算右赶刀每次的定位)

" Y5 P9 G' b" [" W3 Q6 ]1 U+ S

$ K  t# L! Y* h" y- E6 Q& ^, _- N3 ?
G0 X56 Z#7(螺纹定位)
# E/ s# }, z2 i6 v

# _1 a4 F- i9 T% N
N21G0X#1(X进刀)
' }4 M* [$ T/ q, f. D0 k
9 r+ q$ }' z5 Y2 b7 r- v' h; \; t! H
G32 Z-95 F50.265 Q#12(螺纹车削)

5 |1 y9 j4 Z, _) I6 L! n
) b" G! a+ E6 V$ N, P! W8 X
G0 X56(退刀)
$ \6 w% ]+ X/ R. B  v: P8 e

' h3 g# }2 c' B* N8 U# A0 u
G0 Z#7(定位退刀到起点位置)

+ [9 S6 d$ A. A! _0 L

$ \! X) J/ U7 {! _! d8 F3 m; ~' n
#12=#12+#13(角度递加)

( ?7 X1 o9 u6 @
7 \! [$ s2 Y2 v6 O' m& U
IF[#12LT360000]GOTO21(如果Q值小于360度跳到N21执行下一头)
! o+ i+ L, A5 _- H% n

" n( T  B4 m1 w0 v
IF[#6EQ#5]GOTO30(如果右边赶刀宽度到达跳出循环)

+ b7 t: R1 [8 h( U: }$ g
! @( Z8 Y4 U7 Y) W1 |  o+ B' z$ l
#6=#6+1.5(每刀赶刀量加1.5)
7 W& [7 Y3 P# Y9 S

# P, q" \! i2 }0 j5 Q# l
IF[#6GT#5]THEN#6=#5(防止过切强制赋值)
3 n, l5 S1 m' \; [0 q

8 F) P* `: ]& h/ |7 C& R9 C: Y
IF[#6LE#5]GOTO20(如果右边赶刀宽度没有到达跳转N20继续循环)
$ L9 L+ J( @) R/ O

9 a9 X' `5 \7 W: a9 J
N30#6=0(赶刀初始从新赋值)

8 B6 X8 C1 Q& G

5 e, Y( A' e8 U$ Y( l
N40#12=0(Q的初始值,从新赋值,不能乱放)

# W3 h6 {1 {% x! h+ p- c
) H* m% J+ S2 \) k
#6=#6+1.5(赶刀宽度递加)

6 a' \0 [: H" y& }8 X: {# y- g

) h* {+ m9 R1 v4 l# G
IF[#6GT#5]THEN#6=#5(防止宽度过切,强制赋值)

, L# j7 E/ E* m/ R5 u" ?

. n0 }: S* l. Q% G2 ]0 a
#8=10-#6(计算Z定位向左赶刀)

! s' e9 |* @$ V
) G3 J# j# E. [; I0 [
G0 X56 Z#8(螺纹定位)
& L; v' p8 d. B( r' L) X% Q( ~4 U- o

  X. Z% i$ M% g7 g; X" l) n# g
N41G0X#1(X进刀)
! p. h! t. S1 n

3 N) G2 o9 {$ t% s: z
G32 Z-95 F50.265Q#12(螺纹车削)

+ F6 o7 B8 w' f- k5 m
4 q5 A$ b- N. ~. y( `+ @9 `* A% Z
G0 X56 (螺纹退刀)

. q: r1 i3 P4 g
& r% L1 Z. q: S. D4 z* A9 E/ M
Z#8(退回上一次加工起点)
# H& r: a+ |) j0 N" o9 D
+ ^" @0 O0 F- r6 I9 [6 r
#12=#12+#13(左边赶刀的角度递加)
. F3 t; u+ J- I8 r! x" n# A& S

" v$ C8 S; e; C$ C4 O. U. n9 C8 Z/ A) i
IF[#12LT360000]GOTO41(如果Q值角度小于360度跳转N41继续下一头)

8 U* E- \* a, n/ S3 L- g5 C
( D5 l, t7 F2 [1 k# f& y
IF[#6EQ#5]GOTO50(防止死循环,如果宽度到达跳出循环)
$ G+ a' P  I0 L
6 p7 q3 `, A3 y- x5 v& U
IF[#6LE#5]GOTO40(如果左边赶刀宽度没有到达跳转N40继续赶刀)
) i9 }: L6 f7 j3 [; W% _
) d; Y. V& M, V2 C+ P  V. U4 Y
N50IF[#1EQ#2]GOTO60(如果螺纹深度到达跳出循环)
- |& A1 E/ z5 a3 e

% ^/ i) l; m, D( t* y
IF[#1GE#2]GOTO10(如果没有到达跳转N10继续下一层)
& P" l- u% d! I2 H+ r1 H- V  j% s

# I" @( X3 C. d8 g. o( _
N60G0X100.
, Y3 ]( n4 ]& X6 o) G

* d  o( N) O6 f$ T( @$ |6 d
Z120.

/ I; N9 C  Q( p" B
' J) g3 f, K. R" i
M30

. m( C; H. v5 i) H
# g8 v+ ^9 Z4 `$ ?/ ], f2 r) J

- Z5 d) ?: f8 X( @3 b
* E" V$ k8 G* A$ E! `9 v7 E) c2 @
完整程序如下:
* D# ]& I) s5 x, p$ j6 F
( F" @6 \$ X: Q! Q, Y# R
O0001

6 u2 ]1 }7 Q8 t$ O/ w% G

3 J& J+ X2 d1 U9 H
G99M03S300
9 Y  i$ ]/ J- O- |- ?

( l3 I3 j) P) x9 S$ x
G97T0101M8

8 [5 y6 F# H; I. T7 ], m1 I& m, F) v
7 d' z; U* a/ Z5 P' Q
G0X56Z10

: K+ A$ V, v4 @' Q

0 ^+ S6 P. o, e: D) L4 I+ e
#1=52

1 Z' I- A+ Z, ^: `$ z) f, `' A
* \7 S1 ^+ A( A) O, j
#2=34.4
$ o2 V5 k6 Y" n- Y# }+ e* ]) h

4 y# B( Y  u' d1 R% }+ ~! j) F
#3=0.4
! k  [8 ?! ?, [" L
8 B. T- D: m7 l4 W
#13=360000/4

& K* m3 n! d6 e3 t
9 V. c$ B; ~9 f6 [
N10#4=0.2
, W7 z9 o6 d: A( Z7 U

- M% }0 w! T% K" h0 ~! ]4 o
#1=#1-#4
5 n" Z) _. C7 \3 t

  v) H5 h1 C0 y- s$ a1 T
IF[#1LT#2]THEN#1=#2

  `8 L$ o  W3 c
; }8 g% h% T# k* d& M1 p* g
#5=[#1-#2]/2*TAN[20]+#3
, l2 [8 V( E/ u: |  D6 E) \

8 S" m3 Y- a3 j' c$ L3 _/ a: _
#6=0
+ S' j+ i) Z1 H( T
# D! S# D5 G9 e( x8 o
N20#12=0
+ F& g1 l; m9 g. Z, @
/ _; `1 A4 T. [4 A
0 A4 j5 ~+ n% j1 u

( {1 v2 i6 v7 @2 V
#7=10+#6

* T" A& _, l" |

  |" ^. P! r# m& E: C' u
G0 X56 Z#7
' H0 D* n. I) ?# k
' V* \" D! e; J, z4 m" `
N21G0X#1
+ h8 f- F% U0 k
- I% I) J0 m/ n# {- A, e, M6 J
G32 Z-95 F50.265 Q#12

% p2 v+ m6 f$ m' B/ m+ s; Q

. P. l2 n9 N1 z/ s+ N
G0 X56

- \" a5 B* ^! O6 ^7 q

6 }1 k0 m6 m) ?4 r
G0 Z#7
1 z% u) f3 D) x" v  M

% K, T6 f0 y, p+ w9 ^3 B4 m
#12=#12+#13
; B8 R; Z4 v5 t0 T7 \' n
# S! u* `0 Z& P+ H( i  b: x
IF[#12LT360000]GOTO21
0 ?5 d; [) n! q' I( `
4 D  q9 }" ~7 l  C+ p6 p  A1 d. u
IF[#6EQ#5]GOTO30

8 }9 U" V. J; n9 [5 t7 ?
5 N9 p3 u+ _7 W
#6=#6+1.5

0 X3 X, `+ q; {
$ i0 Y: X4 T2 N! L
IF[#6GT#5]THEN#6=#5

8 K$ \" `# L" ]* q( m; n: L2 A3 ]6 }' p

" t) t" M! c6 e/ p+ J* A8 D! m
IF[#6LE#5]GOTO20
6 M7 x5 z) a7 b+ j1 e
1 x6 H# S# a% t& I$ @  w: M- j# a: I
N30#6=0

9 q" B1 e5 a2 b+ x. n, q

  A5 Q5 j7 b7 Y% ]- r  X: h5 ]# S5 t
N40#12=0

5 Q# [/ Y; K/ L# C% c) a

4 F/ R3 E4 G* M6 l
#6=#6+1.5

5 \$ }# X1 N+ V6 |+ k

& A1 {! l0 y& d) {' X: t9 V
IF[#6GT#5]THEN#6=#5
8 Z3 W3 E. G7 E( l+ s0 `1 o" j8 m# E* T3 e

" `' h' n2 H& P2 V* E
#8=10-#6

% D' z% `2 {+ E! z& g. T- F

& U' M* d7 i$ ?  ]1 U$ N/ A
G0 X56 Z#8

# x  ^2 Q  F8 V  i

. \1 s. l# r" B8 U) u3 U0 s
N41G0X#1
/ n3 `7 U7 i2 u3 \. p' o( R4 I
" ~2 F5 v" Q% v+ c; L
G32 Z-95 F50.265Q#12

$ [# L, C, M- h
1 V/ y, B0 h1 r0 @% g3 A5 S) s
G0 X56

+ `" @1 j: J  L# `+ m( K

" f: M  _1 x4 W8 h- |9 V
Z#8

, `3 f( z+ r: `

# R. C4 t' \& r/ E  k1 z8 j
#12=#12+#13
% ~8 i- y+ {/ K+ V. ~! i: v8 _
# ~3 Z  }0 d# I! p1 X& U( ~; W0 E
IF[#12LT360000]GOTO41

) P6 n1 U3 }/ p) `

  v0 T/ W4 r- {8 |/ c% P/ V
IF[#6EQ#5]GOTO50
6 J2 w4 @1 \9 Z# W& Z8 ?
! J" Y; V8 p/ w( U/ V) k+ C
IF[#6LE#5]GOTO40

% m( u) ]  p' D( y. N9 j
/ H, D  X3 r1 W4 \
N50IF[#1EQ#2]GOTO60
( U9 j' H5 r6 i* v4 m* l" f: [6 B
6 |, L: J( M5 `! H
IF[#1GE#2]GOTO10
6 ]" ]% m% V+ K' K
; e3 O( W8 @" |3 L0 T) v8 x
N60G0X100.
. ^+ n6 U1 K+ G/ p) o' w
4 B/ y& E7 ^; g2 x6 A. K7 R( ~2 c
Z120.

( M, P" u/ j) {$ v/ B

( T# _2 _+ _: X; @, E% h% u4 ]5 O$ V
M30
4 z# ^. r% S: a- t6 u4 Q
' [- ?; I* }& t1 ?- k8 W

点评

只是给他参考  详情 回复 发表于 2018-2-10 12:21
变量应用不灵活,程序不能完全通用  发表于 2018-2-2 12:32

评分

参与人数 2威望 +2 收起 理由
aa2852029 + 1 灌水~
东海fyh126 + 1 热心助人,专业精湛!

查看全部评分

回复 支持 1 反对 0

使用道具 举报

发表于 2017-12-31 22:46:42 | 显示全部楼层
蜗杆得用宏程序,楼上的宏程序很好,楼主认真研究一下
回复 支持 反对

使用道具 举报

发表于 2018-1-1 18:01:08 | 显示全部楼层
三楼大神正解!
回复 支持 反对

使用道具 举报

发表于 2018-1-5 11:23:16 | 显示全部楼层
厉害,看一看。学一学
回复 支持 反对

使用道具 举报

发表于 2018-1-31 12:33:40 | 显示全部楼层
正在连接... 发表于 2017-12-31 15:534 U3 t- a6 {9 E5 {
全齿高一般是2.25,既然你齿顶高系数是1了,底径=36.5-2.5*2.25,编程的话我不知道你对宏程序了解多少。下 ...
/ F2 v: N- O. S
谢谢楼主
+ x% L5 m) Q: _+ q' X
回复 支持 反对

使用道具 举报

发表于 2018-1-31 14:58:39 | 显示全部楼层
谢谢。正好想学习一下宏程序。
回复 支持 反对

使用道具 举报

发表于 2018-2-8 08:39:35 | 显示全部楼层
宏不会用。我一般做多头梯形丝杆螺纹。这个能用G78做吗?
回复 支持 反对

使用道具 举报

发表于 2018-2-10 12:21:50 | 显示全部楼层
正在连接... 发表于 2017-12-31 15:53
5 M9 N: q' E; _) s/ H: {全齿高一般是2.25,既然你齿顶高系数是1了,底径=36.5-2.5*2.25,编程的话我不知道你对宏程序了解多少。下 ...

: c$ m# e+ x  N4 m只是给他参考
4 \& J, G/ [* D, D
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

小黑屋|手机版|Archiver|机械社区 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2025-4-3 10:03 , Processed in 0.077861 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表