机械必威体育网址

 找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 5876|回复: 14
打印 上一主题 下一主题

蜗杆加工

[复制链接]
跳转到指定楼层
1#
发表于 2017-12-31 00:06:01 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
蜗杆有模数M=2.5 头数Z1=4 齿顶高系数h*a1=1导程P=31.4 最大径=36.5 中经=31.5 如何计算小径  任何编程    第一次接触蜗杆 一头雾水
, p) }  |% x( W" I4 `( _
回复

使用道具 举报

2#
发表于 2017-12-31 11:30:04 | 只看该作者
第一次做就做4个头的蜗杆,有点难度啊
回复 支持 1 反对 0

使用道具 举报

3#
发表于 2017-12-31 15:53:49 | 只看该作者
本帖最后由 正在连接... 于 2017-12-31 15:57 编辑
; B+ O2 R5 z8 t6 l: v) W# @& Z4 H. O- v$ ?* \. d1 }
全齿高一般是2.25,既然你齿顶高系数是1了,底径=36.5-2.5*2.25,编程的话我不知道你对宏程序了解多少。下面是一个蜗杆宏程序,你自己慢慢研究吧。" t: J; c/ Q% a/ ~& c  U8 {, i
* v. H' ]' W3 h$ v; L
/ V. |- n9 t$ z+ {  Y
D=52   d=34.4  模数4 四头, 牙型角20度,刀宽2mm 角度LE20
# X& `; c  ~6 p  R5 k9 _/ x: S. f
" r; s4 ^. |  U* n# m
P=3.14159*4*4=50.26544(导程等于摸数*3.14159*头数)   W=0.7M =2.8(蜗杆底部宽度)

; H7 m  J6 d$ q; P0 ^
: H8 K7 U! q5 |, J; G; d
   
4 C2 S3 P- P/ l' S  H
$ s" i* W9 l/ Y" H& d& [0 A% E6 x1 h3 M
程序:

: W3 q+ Y/ ^  M, p7 O

+ S, [! o/ [4 F- D9 M
O0001

! \, T2 f. ?/ l! K
6 Y/ N6 H4 T, Y- D; w0 u/ O
G99M03S300
1 p+ w9 I4 [. |; |
* h' S: Y" t8 H4 l6 X
G97T0101M8

' Z9 p) p; l5 F; T" B4 ~3 j

6 |( M9 ]  T7 u" Z
G0X56Z10

9 n7 N6 Y. C: G5 N! i% ~
1 w6 m& g  g' ~) z5 I
#1=52(蜗杆大直径)

2 a5 _# m; {8 }0 U7 _# l6 E& Q

$ @: U  v: o9 I1 v5 E7 A+ o
#2=34.4(蜗杆底直径)

+ ?: D# |$ y6 r9 [5 T
3 S( z! ^- r" i1 X/ u- F9 M
#3=0.4(底部宽度减去刀宽的一半)
& [5 F1 M! @- {9 e# i

6 q! }+ q! m0 ^# P7 L8 J
#13=360000/4(算出每一头的角度)
$ B' S' C& W4 u6 w* ^' W
# s. I$ K* F2 Y: ~+ Q' V
N10#4=0.2(每层吃刀量)
$ K+ ~6 ?( ~" I8 S4 m9 s; x

& j5 Q$ O/ J" E; V* Y; b
#1=#1-#4(大直径递减)

! G* o6 T% Q6 |# Q
" `1 b2 F3 b% h5 g5 N
IF[#1LT#2]THEN#1=#2(条件判断防止过切,强制赋值。当#1小于#2,那么#1等于#2)
$ J* q& Z8 H; E; ?, i6 Z

; u% T' w& e. ~1 z! y! ^
#5=[#1-#2]/2*TAN[20]+#3(三角函数算出每层需要赶刀的宽度)

0 x3 Q5 E) n) J. i: s3 c2 S3 B! v
2 r4 ^) b5 R5 N
#6=0(赶刀初始值)
* f6 `& o& p! t6 V3 a, Y$ U

# [! z. V7 s- ?4 {, {6 |
N20 #12=0(Q的初始值,不能乱放)

: Z8 |4 {; k8 Y1 E  e! A( P: c' D

" c5 _1 A/ j0 s' ?% ~$ l
#7=10+#6(计算右赶刀每次的定位)
" K" m2 k5 c! U. [5 h+ |/ q
3 t% |# c8 C" |5 S
G0 X56 Z#7(螺纹定位)

4 h8 V( s0 j' p% }0 }( k
* w" ]2 M) w* e1 W! i4 {. `
N21G0X#1(X进刀)
+ J" R- ]: v$ n. z5 _

, m+ D8 m+ s" E9 ^
G32 Z-95 F50.265 Q#12(螺纹车削)
, H' k" J4 X4 j

7 [% T: Y9 v% v* {; a& c
G0 X56(退刀)
* ~* R; ^: _8 Z( p+ n7 g0 k2 g

4 u% h# q& w& {9 q: N: n' v
G0 Z#7(定位退刀到起点位置)

& {3 b# q. D& i4 Y. c5 F2 l5 m5 T
4 V9 c2 v! F" X$ E
#12=#12+#13(角度递加)
  G" P4 @" Y$ ]" ]* }

, e9 L. I. A3 a* O
IF[#12LT360000]GOTO21(如果Q值小于360度跳到N21执行下一头)

* [1 ?  k5 R7 m2 T( e
9 D% j+ M# Z& [0 H
IF[#6EQ#5]GOTO30(如果右边赶刀宽度到达跳出循环)

8 E# C* \3 D3 E6 W' Z) z3 E( B

/ B4 [) v6 I* v# {1 o7 X
#6=#6+1.5(每刀赶刀量加1.5)

4 T! ]  Z3 O- E: R# l

! o; s( i5 v; @
IF[#6GT#5]THEN#6=#5(防止过切强制赋值)

+ D9 L, H0 C/ I/ r. U  ?( G% r
: ]* f7 {0 q5 ~0 B9 R- F
IF[#6LE#5]GOTO20(如果右边赶刀宽度没有到达跳转N20继续循环)

; u2 J" V7 e) U) B# M
5 n5 n( q# _% |$ Z% X# S+ Q% f
N30#6=0(赶刀初始从新赋值)
0 C1 g# H+ P) Y3 i" k% s3 m
! t9 E" i- R& }8 E0 R5 P5 I
N40#12=0(Q的初始值,从新赋值,不能乱放)
7 I) L: T  ~6 v- V  ~9 u  E

" ~9 N, o9 `) `- g5 ]3 Y4 h2 w
#6=#6+1.5(赶刀宽度递加)

& u+ b" g7 z& ~# C& ~8 t- k9 ]
' z: h# T8 S  [
IF[#6GT#5]THEN#6=#5(防止宽度过切,强制赋值)
) u$ I/ |: f! F# m7 l& O
# `; m2 Y+ C) q. s3 {
#8=10-#6(计算Z定位向左赶刀)

$ g: o* r  O0 E! V

3 t& [, x7 C  G. ?1 X
G0 X56 Z#8(螺纹定位)

( p( [& E9 p1 m3 |$ c+ G0 X" `3 m8 n
6 |  u0 c6 }; x8 u
N41G0X#1(X进刀)
) \- S' g% B  R6 A9 f0 C* E

2 |! \! S4 L* \; o( a
G32 Z-95 F50.265Q#12(螺纹车削)

+ V6 ~& ~3 d- b2 H
2 N$ `9 L0 ?& G0 v2 \* \- b6 O
G0 X56 (螺纹退刀)

+ Q6 }4 F, b7 R. c$ r

, c% P7 `4 c- c1 A5 ?7 h3 E7 p
Z#8(退回上一次加工起点)

3 Y9 B+ ~) w+ [1 {! L4 K

' P: S% e+ O( i& q) L0 N- J* U
#12=#12+#13(左边赶刀的角度递加)
- z: B3 B7 S/ V) V7 D8 E
3 @8 e$ j: j- b) K% S2 J
IF[#12LT360000]GOTO41(如果Q值角度小于360度跳转N41继续下一头)

1 K  m4 \5 G' N: m

/ h! n4 h  x4 F' B
IF[#6EQ#5]GOTO50(防止死循环,如果宽度到达跳出循环)

  A- r2 k% e0 M- F" N
$ I* w" S, b/ J: W% v5 Z8 |
IF[#6LE#5]GOTO40(如果左边赶刀宽度没有到达跳转N40继续赶刀)
! k+ y6 x5 e  G* U1 k! H; C
  ~5 L0 h  p: U. r
N50IF[#1EQ#2]GOTO60(如果螺纹深度到达跳出循环)

3 Q" X# v, s  J; H! S9 x

* b; j- E  |4 `  q+ d
IF[#1GE#2]GOTO10(如果没有到达跳转N10继续下一层)

# n8 _8 F  m8 ]/ h0 N) ?! J; Y
' e2 p5 |8 N1 r) M( Q
N60G0X100.
0 N" S/ }" a* n# y' V4 ]# @
/ U8 s$ p8 h2 [" z
Z120.

1 r. a2 U  @8 k6 W/ G# t% [" Y

9 a5 f* W) D& N! v6 `
M30

3 p3 B. B; ~: R$ \) ]
4 M' u0 P' O; d% E
! X, k$ |) u$ m  d6 s/ ?+ P

: A0 m1 j# Y' h
完整程序如下:
7 r1 E" M8 g* ?( v  `0 q

& M5 w8 H0 A7 m5 g& y) n
O0001

2 q3 T. ?9 _- n9 r* L

0 t* f8 @: g; l* Q% m" |5 D1 P  t
G99M03S300

! n. k$ t& b) s2 P: _$ z
+ q) x' |; P, p
G97T0101M8

  C; S# t1 E/ i% M) ^+ o- W

6 u$ M/ h1 {9 P$ }1 p
G0X56Z10
) s3 h1 D+ @% U  [- c
: z5 ]7 |) @& p1 G$ h  _% N
#1=52
, v$ z! g! j. w8 Z: R( D/ [- v1 r& m
" f+ T: R& n* h# i; P' L
#2=34.4

6 ~; u8 y% K* b, ?: ?+ |- E2 C

) W* U7 H2 M; f: T+ C
#3=0.4
' v8 ~4 f( ^; O  o* N8 v9 M
' c0 b% ^1 ~9 O/ G
#13=360000/4
  G* U1 M9 @1 y4 U" _* [

* p, {# n2 t1 W! i/ q. x# s
N10#4=0.2

5 ~+ K, u6 v! M3 K

: n* W+ y, T" s9 l
#1=#1-#4
. w, P. |" d6 X! P

) _2 w0 I+ ~# h2 _
IF[#1LT#2]THEN#1=#2
" {$ y) K& {  M' O3 E

( r$ o9 h1 K( s# q  K4 B9 T* T4 J
#5=[#1-#2]/2*TAN[20]+#3

% b1 L3 ]* V( B. `) X
2 y; s" Z) F5 k9 F+ a8 T  G
#6=0

: R: n- M+ A. t1 S6 m

( _5 T! U7 |3 X  g
N20#12=0

; X3 C* c/ S* q& r; s- C
4 v* j2 t' e; B
% Y: S" y9 [9 f8 g2 f4 k4 f  V
) a: W, Z9 j! ]  ~. m9 m# Y
#7=10+#6
% f* K  D. }5 `5 P

  Y! ?5 W9 ^. B: s& L8 w
G0 X56 Z#7
0 _/ }8 w; t# y. b7 x; z/ e' F
( b3 {% B; b  c  w
N21G0X#1

( w+ w) ^$ y) Q0 X" e

- x" i* T' l# d
G32 Z-95 F50.265 Q#12

1 U6 Z# T. f; F  O
/ N+ r% j1 t# p4 ]
G0 X56

: V- q% s' ?+ {/ O6 e& H. T

- k, n% k  t- }* o  G
G0 Z#7
9 ?! h. Z5 y# g
$ Z2 d3 Q5 r; D8 A
#12=#12+#13

" K8 ?( R" \2 [8 K8 N1 k+ N
' i: f$ A( I) ~* z: ?& u; `
IF[#12LT360000]GOTO21
# [  j$ I. q# p' K5 R
7 |5 x. l5 ^9 E
IF[#6EQ#5]GOTO30
2 `& z( e+ l) h' S3 T: H

% T: Z' g% l9 f' d; c& r" O
#6=#6+1.5
* P: i5 m5 `- Y- P! ^7 _$ X
; C+ R8 r; Y" q, K; m6 A
IF[#6GT#5]THEN#6=#5

- c, b5 j* B- t" A$ ?' u7 |- G
8 W! c- t9 O8 u" `& k/ f+ l
IF[#6LE#5]GOTO20
" v2 R3 K# ?/ J: b5 f6 s

! w3 a9 [) y6 g) @
N30#6=0

8 \8 n+ P* S' s! e' U& C
5 ]5 ]9 i2 `" N. f: |) |
N40#12=0
% k* K9 g: Z, A* K9 j
& V) g0 R9 \' [, u3 ?* Y9 n5 h2 y0 V$ \
#6=#6+1.5

8 O; c( P- l1 `. l& g

3 f) Z4 I4 d% P
IF[#6GT#5]THEN#6=#5
- T0 n3 h" \; P2 z' Z- e

2 c( F2 E. D; \  O. ]/ ?
#8=10-#6
$ e9 Q  J" L+ n! k; ]( E
5 W" s1 j4 L  B! i7 n3 J% f  M
G0 X56 Z#8

) ^5 z8 L! l$ ?- d
( C. p& z+ D, I$ q  C) V2 R: _
N41G0X#1

- s) w  I0 f5 z

. W# e9 y2 s% h" T
G32 Z-95 F50.265Q#12

0 d' }. _% ]* ]5 t; F
+ I& N" t" F1 t3 d2 g1 J" B6 Q
G0 X56
# a. b, N  o$ Y" u

' }- i8 V( x( Z0 r' p7 o
Z#8
0 u" p4 |/ f. n5 q) Z5 H8 ?  D) F5 ^

* |! M! m2 E% _: t
#12=#12+#13
  k) g8 z8 c# f4 H0 i6 V

" _. F" M4 \3 \7 e/ s6 j0 R
IF[#12LT360000]GOTO41

9 l  r% k! z  z" d

% ~' D' X6 s( _1 V. W! }
IF[#6EQ#5]GOTO50
2 h, o4 M& P: J3 e7 m; J8 D( s" U
* V5 m% V7 w! B# a: ]# [
IF[#6LE#5]GOTO40
( J; y! f1 x  c/ k3 k( I( R* U0 h
- o: h0 }" u" X
N50IF[#1EQ#2]GOTO60

6 k( v4 a/ e5 O. M6 E4 s

8 l! E& @% x0 H! g$ s3 f
IF[#1GE#2]GOTO10
% O1 o1 h2 @# |+ x9 \1 w  h2 M

+ P) H, Z7 z6 a: H- M
N60G0X100.

/ G: q, w$ V. d( V

$ o9 K6 A. [* W: r1 k: j% S
Z120.
5 `8 _+ u) z  N

2 W5 ?! L# Q$ X' I
M30

, s' j) A/ U! l* P8 b0 B3 @
5 J9 X) d4 _) t: S3 E* ~

点评

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

评分

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

查看全部评分

回复 支持 1 反对 0

使用道具 举报

4#
发表于 2017-12-31 22:46:42 | 只看该作者
蜗杆得用宏程序,楼上的宏程序很好,楼主认真研究一下
回复 支持 反对

使用道具 举报

5#
发表于 2018-1-1 18:01:08 | 只看该作者
三楼大神正解!
回复 支持 反对

使用道具 举报

6#
发表于 2018-1-5 11:23:16 | 只看该作者
厉害,看一看。学一学
回复 支持 反对

使用道具 举报

7#
发表于 2018-1-31 12:33:40 | 只看该作者
正在连接... 发表于 2017-12-31 15:53
: H& j$ T2 i3 K% n4 p+ X, o全齿高一般是2.25,既然你齿顶高系数是1了,底径=36.5-2.5*2.25,编程的话我不知道你对宏程序了解多少。下 ...
. u  o$ k; g! g2 f0 M1 f/ H) W  W
谢谢楼主: C/ B& w" t, i: b4 o, _1 i
回复 支持 反对

使用道具 举报

8#
发表于 2018-1-31 14:58:39 | 只看该作者
谢谢。正好想学习一下宏程序。
回复 支持 反对

使用道具 举报

9#
发表于 2018-2-8 08:39:35 | 只看该作者
宏不会用。我一般做多头梯形丝杆螺纹。这个能用G78做吗?
回复 支持 反对

使用道具 举报

10#
发表于 2018-2-10 12:21:50 | 只看该作者
正在连接... 发表于 2017-12-31 15:53
/ O9 y; P6 o1 m5 L; Q* B全齿高一般是2.25,既然你齿顶高系数是1了,底径=36.5-2.5*2.25,编程的话我不知道你对宏程序了解多少。下 ...
9 A4 C- C5 u6 F) L6 M/ k6 p
只是给他参考9 T0 C5 t& _6 C( }1 {$ b) d4 w. K
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Archiver|机械必威体育网址 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2025-2-19 06:06 , Processed in 0.071912 second(s), 14 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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