机械社区

 找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 6064|回复: 14

蜗杆加工

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

使用道具 举报

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

使用道具 举报

发表于 2017-12-31 15:53:49 | 显示全部楼层
本帖最后由 正在连接... 于 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$ m
P=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$ P
O0001
/ V* G+ e- a0 a6 L

& p2 M$ d) _. T  N! w1 }2 q
G99M03S300
7 n6 d+ ^/ H2 _

% F; |. @! e# b2 J5 J
G97T0101M8

2 u& g- C5 T! n& ~1 H$ e
7 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 Y
N10#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) B
IF[#1LT#2]THEN#1=#2(条件判断防止过切,强制赋值。当#1小于#2,那么#1等于#2)

3 y3 Y  i* k" E1 x
1 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 e
0 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$ k
N21G0X#1(X进刀)

3 B# L! Q4 b2 ~; v! t

+ h. n) T; h& w7 S) v
G32 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 ^: g
IF[#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# K
N30#6=0(赶刀初始从新赋值)

+ [* E4 b) W! F

+ m! Q% @% d6 E) ?. L0 J9 y
N40#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( p
IF[#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: B
G0 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! W
IF[#12LT360000]GOTO41(如果Q值角度小于360度跳转N41继续下一头)
- u# d" a- `+ \- ^0 O/ S; R% {" V2 o

7 m5 M! g8 R2 X
IF[#6EQ#5]GOTO50(防止死循环,如果宽度到达跳出循环)

, Q, x1 l" K7 H( a% P  m
1 `& 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/ a
IF[#1GE#2]GOTO10(如果没有到达跳转N10继续下一层)

1 A6 {  H, C( }2 V  T
3 N; b% K0 V/ b* s8 M# J
N60G0X100.

4 [6 @1 N, b3 P& D0 u
1 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 k
O0001
# 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 g
G0X56Z10

$ 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* W
N10#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: B
IF[#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: L
8 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 V
9 ]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 z
N21G0X#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) p
G0 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 _' ^; W
IF[#12LT360000]GOTO21

( l/ w# e  o$ p9 X! R* t7 X$ u# T) o
1 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 q
IF[#6GT#5]THEN#6=#5

( N/ R; P$ l+ W+ N1 Q. h* C

$ A6 R3 ?" L, P) P( x5 U3 b4 n4 @" o
IF[#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 D
N40#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* h
IF[#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! `) X
G32 Z-95 F50.265Q#12
7 E7 @- y8 B! I# |1 ]9 x: R  ]

0 N* p9 ^& m3 x+ w+ P% O
G0 X56

6 \$ c1 y- T# u! V3 u' p" f

  d2 R! C7 n1 R" }' P' V
Z#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 r
IF[#6EQ#5]GOTO50
0 v& [) _6 @, f6 @  z/ w  ^+ o+ l

; Z3 W. z9 j8 p6 `" G
IF[#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

点评

只是给他参考  详情 回复 发表于 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:53
3 Q! n0 o9 `  {; c全齿高一般是2.25,既然你齿顶高系数是1了,底径=36.5-2.5*2.25,编程的话我不知道你对宏程序了解多少。下 ...
6 z+ H0 R( T# R# D1 p3 K( p. F
谢谢楼主3 p3 y' O! _6 B# |$ L. A6 F
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

发表于 2018-2-10 12:21:50 | 显示全部楼层
正在连接... 发表于 2017-12-31 15:53
- m  X9 K" }4 Y; J2 M2 e' M全齿高一般是2.25,既然你齿顶高系数是1了,底径=36.5-2.5*2.25,编程的话我不知道你对宏程序了解多少。下 ...
; N% z5 ~5 j5 k* g6 c# O4 g( @5 L
只是给他参考
, s) P( K6 k- u" v, v
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-4-3 18:34 , Processed in 0.066085 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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