機械社區(qū)

 找回密碼
 注冊會員

QQ登錄

只需一步,快速開始

搜索
查看: 5582|回復: 14
打印 上一主題 下一主題

蝸桿加工

[復制鏈接]
跳轉(zhuǎn)到指定樓層
1#
發(fā)表于 2017-12-31 00:06:01 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
蝸桿有模數(shù)M=2.5 頭數(shù)Z1=4 齒頂高系數(shù)h*a1=1導程P=31.4 最大徑=36.5 中經(jīng)=31.5 如何計算小徑  任何編程    第一次接觸蝸桿 一頭霧水, n4 [( K% H  ]3 c' D! z2 M
回復

使用道具 舉報

2#
發(fā)表于 2017-12-31 11:30:04 | 只看該作者
第一次做就做4個頭的蝸桿,有點難度啊
回復 支持 1 反對 0

使用道具 舉報

3#
發(fā)表于 2017-12-31 15:53:49 | 只看該作者
本帖最后由 正在連接... 于 2017-12-31 15:57 編輯 7 M6 Z8 ~4 K: A5 U' E

- D  L! d; M# H7 s4 P6 e- p( G全齒高一般是2.25,既然你齒頂高系數(shù)是1了,底徑=36.5-2.5*2.25,編程的話我不知道你對宏程序了解多少。下面是一個蝸桿宏程序,你自己慢慢研究吧。( t- |5 _' l1 A9 ^$ b0 F9 j3 l

7 j- E8 f4 B: m! b2 r. V' o

4 e1 R9 \! Z  V/ H4 `7 j, f$ P
D=52   d=34.4  模數(shù)4 四頭, 牙型角20度,刀寬2mm 角度LE20 ,

1 }) W9 e, a( y+ f- I" P* a
, S& ^$ T8 X+ X) V1 Q8 [
P=3.14159*4*4=50.26544(導程等于摸數(shù)*3.14159*頭數(shù))   W=0.7M =2.8(蝸桿底部寬度)

/ ]6 d$ Q) M) h0 X' v& {( Y5 b
3 s/ `1 }: e! Y& Q( n* l) j
   

! F5 U# |6 x, B5 i/ q5 _* C
( N& t. @$ q2 H( U* A
程序:
1 X6 ]+ l5 s! n5 K
5 `0 W% L) ]1 d2 V! \0 r, ]
O0001

  r& i4 p- R2 y6 j7 H% p" T

# b) B$ W$ T$ R+ |% r
G99M03S300

; l% V5 a; y2 j6 K, Q5 A
  c; f/ A3 k8 Y5 G+ p
G97T0101M8
, n5 d: F; h4 |& O
& X( l0 X0 f# ~1 Q" Z& M7 r
G0X56Z10

+ \: k9 m8 D# ]; @+ e( X  v5 }

  p7 v4 `9 H' G) ?" ^* D
#1=52(蝸桿大直徑)

0 W+ H' J2 _# l0 G2 x  z- `! C1 x

  n; d7 J9 x0 {8 P) J, X
#2=34.4(蝸桿底直徑)

5 I" i, |; l! k! A

3 u- N1 B3 V# s: Y% a2 w
#3=0.4(底部寬度減去刀寬的一半)
: T" ?3 [0 v, V$ R$ Y7 A% V& ?

! v' k! ~' {' k- t( [3 \
#13=360000/4(算出每一頭的角度)
( e( \. O6 x! @/ I, j+ z
6 `) X, G5 P; }( c
N10#4=0.2(每層吃刀量)
; t9 N' s  b1 J' {4 B
7 q4 @# d# W5 U4 U' M
#1=#1-#4(大直徑遞減)
7 y, K1 [; a/ {) g. N6 @. _

3 f/ ^0 \/ U) G. K( \* b
IF[#1LT#2]THEN#1=#2(條件判斷防止過切,強制賦值。當#1小于#2,那么#1等于#2)
+ s; O, ?9 v' Q2 d- F

  X6 q4 O8 ]+ Z2 i" t
#5=[#1-#2]/2*TAN[20]+#3(三角函數(shù)算出每層需要趕刀的寬度)
/ t& l; Y: P) w2 |
0 @+ t' ~8 ~+ D! O6 M  S' J
#6=0(趕刀初始值)

6 y4 i, ?1 r2 o- A) i

2 _! }2 g  p" p0 k% Y& L" E
N20 #12=0(Q的初始值,不能亂放)

, O! I+ i: W2 n, Y, I7 E% H

. r8 Y9 f' X$ M: [$ e+ P/ t$ i
#7=10+#6(計算右趕刀每次的定位)
9 G& \, e/ ~5 Y( Y% E, j- L
2 k) F7 H1 M- U3 i% a! ]
G0 X56 Z#7(螺紋定位)
. y& {6 |0 `' z
( }3 x: P0 E9 f: j& o( S2 Y
N21G0X#1(X進刀)
! D# n7 D3 d  V9 X

% ]8 S$ |4 p! q
G32 Z-95 F50.265 Q#12(螺紋車削)

  d9 r% H' ?7 u& y. A0 s6 _% f4 y) p# U

6 ^! G. B7 L: l8 L& `/ ]! G
G0 X56(退刀)

0 I3 C8 B: `- o+ l3 [. j
) T: v6 K- K8 ^% b* Z
G0 Z#7(定位退刀到起點位置)

. }' _( ]: n- t" Z. W
' Q1 Z1 T& I: W2 \' Z3 ^
#12=#12+#13(角度遞加)
0 ~2 E. O" ?" H6 l! Z
- w! `* F2 D: \. V4 w0 |* Y2 j# w
IF[#12LT360000]GOTO21(如果Q值小于360度跳到N21執(zhí)行下一頭)

$ e, M) ?2 y8 G5 ~

- F& K6 [' j* @. j2 T7 b
IF[#6EQ#5]GOTO30(如果右邊趕刀寬度到達跳出循環(huán))
9 v: w) M* m( ?

8 y8 P: z( b0 @1 A# W
#6=#6+1.5(每刀趕刀量加1.5)

: f* m2 }* s. R) H" a
1 I2 L% a1 F8 T1 j9 O: P
IF[#6GT#5]THEN#6=#5(防止過切強制賦值)

3 @- W# N$ e, M& s6 i$ Y, ?- l

, U2 B* b/ \, N! }" E
IF[#6LE#5]GOTO20(如果右邊趕刀寬度沒有到達跳轉(zhuǎn)N20繼續(xù)循環(huán))

. V3 y$ I( g- p  T
7 t; }; f% ]( T0 T
N30#6=0(趕刀初始從新賦值)
; X. \* `- ]4 q2 H5 H2 N0 y3 [' E
. ^5 g1 F" y' F6 B
N40#12=0(Q的初始值,從新賦值,不能亂放)

& F3 ?  F/ Y+ f5 Y% N' I
. Q# h$ _% C' _$ V+ I# U
#6=#6+1.5(趕刀寬度遞加)

! T6 D. Q) s# Z8 a

9 _2 ^6 S! I( R, V, {6 L
IF[#6GT#5]THEN#6=#5(防止寬度過切,強制賦值)

. z" Y0 {( v6 O) u, z: O/ r

6 {9 f* }; k9 I# J2 c
#8=10-#6(計算Z定位向左趕刀)
0 i8 j+ |* T& B
2 t; y5 h# W, z
G0 X56 Z#8(螺紋定位)
! A* P& g* q; d" f; k

3 z2 ?+ a0 ?7 ?) o- C
N41G0X#1(X進刀)

8 j+ ^4 S* }; V- F4 @

9 T" q' ?  c4 A, r0 B' _- K  A6 `; ]
G32 Z-95 F50.265Q#12(螺紋車削)
8 y/ G: v+ M- [, [" w
& `3 T, n5 H% S+ K  T
G0 X56 (螺紋退刀)

3 G# G" k) P7 P- }4 _
8 D+ R8 q/ Z7 C& M3 S
Z#8(退回上一次加工起點)
/ I  e4 w5 z  j. a" `, X2 q+ [

& w# C* J* I/ W0 f4 d1 x2 \
#12=#12+#13(左邊趕刀的角度遞加)
* I% `+ [" k$ p2 l
5 b; x( ?! A0 n+ W* v) y& ]5 m
IF[#12LT360000]GOTO41(如果Q值角度小于360度跳轉(zhuǎn)N41繼續(xù)下一頭)
- g9 v1 k6 z4 h2 L5 F
# o3 `: z- J' z7 i+ X3 m$ r0 t- `
IF[#6EQ#5]GOTO50(防止死循環(huán),如果寬度到達跳出循環(huán))

) D' a0 P% I0 j) S. `8 E& Z) X- C" ~

5 |  }8 f$ u8 B  J. W
IF[#6LE#5]GOTO40(如果左邊趕刀寬度沒有到達跳轉(zhuǎn)N40繼續(xù)趕刀)

; G; @0 w- X9 S" z0 J- x

# J' u2 e) k2 ~' V
N50IF[#1EQ#2]GOTO60(如果螺紋深度到達跳出循環(huán))

, M* J$ n, c7 l' a5 y. }0 y
# _) S4 A3 Q" z# K7 A
IF[#1GE#2]GOTO10(如果沒有到達跳轉(zhuǎn)N10繼續(xù)下一層)
% B* A" _* j# \+ S) N3 K% k
( k! M0 v: i4 v% j- E6 E" z
N60G0X100.

! h" S) H) c# p: N- d

' c9 D$ k0 m; [3 |3 v: x: |$ D
Z120.
/ ]  y1 N! C5 X# j+ F
1 {: E9 m$ \) B! x8 j! m4 a8 B! B
M30

2 h# s+ G  p+ A2 b; Z

: z: J+ j2 `4 i$ \+ Z( _, z( V- F
( U) f* a( Y; d) O) \/ U

6 E# I/ x: ~9 m& @5 y5 ]
完整程序如下:
0 d8 S# p; e0 ?) t+ Y
- o/ X- O& }: q! Z
O0001
; e' G* O7 z# o: n
$ y! \, a2 Z7 m* Q9 q
G99M03S300
$ B, \+ J! n; o8 F, \5 V
3 Z, F6 o+ t, u6 ~/ G+ W
G97T0101M8

- Z" h& |9 Z3 ?1 ~
- l' ?% \  H" e2 w! O
G0X56Z10
! Y% R7 H- {2 n5 a. ~( N

, M4 c' l: E1 M( S5 K& \$ f0 Z
#1=52
  l/ g8 T7 M$ U4 R

  P% ^# d: A5 h) B: ?( I% B' H8 I8 \
#2=34.4

7 R4 c* M- f. \4 r$ U

& F2 v; ?7 G6 Z" m1 b/ u
#3=0.4
1 T0 S4 [- E" p/ n! ]

5 y/ K& J( j* y5 ^. g
#13=360000/4
& h5 L0 b' B9 M
* P! z3 A4 n' u  {, b: Z; O7 \2 O
N10#4=0.2
+ F( s" S; t0 H2 @) o6 o

1 Y% j8 E6 z/ u
#1=#1-#4
. I+ s8 U" D1 t0 y2 c% G8 H5 G" p+ ^

  @' C& n& k% O& ]/ x! H  G# Z
IF[#1LT#2]THEN#1=#2

" y3 F" y  }: l

# e2 m  @7 q: t6 H, y" M1 P
#5=[#1-#2]/2*TAN[20]+#3
( O0 c* q2 w& F! c% o, Z  ^0 L
/ J2 k4 i1 ~  y; d" q
#6=0
" m( V% j1 m1 {& U! s" L
: h/ F; D: R2 A- j& @7 d
N20#12=0

3 F* U6 h8 d  a7 V% Y+ e
) T6 I# @- Y: e% D  N9 d: J
8 {; B! e+ x, w& N
4 E+ z; L( f, w+ Y  a
#7=10+#6

7 E6 ^9 P/ a9 |# r% B
1 v7 W, I& g, h, M; b$ t1 L$ U
G0 X56 Z#7
* }- ?9 m( R9 k* h6 h/ }, H

. q# ~0 P/ b9 l* c6 _
N21G0X#1
2 T# N  @* q' V: t
- V% P* [5 i" P1 M+ D
G32 Z-95 F50.265 Q#12

3 x4 v4 O0 d( o" w- o

& I- P' Y) M7 T/ {
G0 X56
7 h  I. _1 t! B
$ w/ X+ l4 C( E9 \5 ?4 i$ Z
G0 Z#7
; s  m0 h0 Q# u7 ?: o

1 S3 M; q! U* [$ g4 g/ l* ~
#12=#12+#13

* h8 C5 I) A$ |. o) t/ F; U9 Z

( @% T7 `! v$ |
IF[#12LT360000]GOTO21

4 Q" i+ Q3 R' ^2 U

  |* X) g5 V- n8 j7 g
IF[#6EQ#5]GOTO30
  l! g1 z+ B# j) L! z% n
# L( C2 M: ~. x; N+ t
#6=#6+1.5

) P/ e- Y/ o2 |; l; ^

( K0 r. A. W, v% @* n5 ]+ R
IF[#6GT#5]THEN#6=#5

* B& s% H7 b0 l8 C

8 \' B0 b  r6 Z) Q% i. |. m3 E
IF[#6LE#5]GOTO20
' D+ \' W$ T1 p: U# R0 Z

6 @, \; \6 s' g
N30#6=0
& N8 w* X( N3 d( i0 y/ @

0 K9 b- f+ H/ T8 h  i( R
N40#12=0

; j  N( t- V1 Y4 R1 Q5 W; ^" d

6 A. D- h! A% F
#6=#6+1.5

: R! b( [1 J7 {+ I/ R  z7 l
0 Q0 Q1 m  U1 Z6 X4 m! w
IF[#6GT#5]THEN#6=#5
, T8 J% e2 D& p  h- h' A

& t" E& @! B2 h0 v8 c
#8=10-#6

: @3 C; b. y; O2 w  C

  j9 g0 t9 L3 V- h2 A, g
G0 X56 Z#8

; Z/ w2 p3 _8 @0 V) D# N6 v
  f' w, G& N% B& n
N41G0X#1

3 q$ u0 p. L; k# v+ _+ C, u

( O1 k8 V$ U6 @0 z' j/ f5 q- w
G32 Z-95 F50.265Q#12

7 A- ~' l3 _( r) m5 w. X

& ?' k1 z* u5 V  S* w7 S
G0 X56
6 f! B6 o9 ~: L( ^
$ \1 U. x  s% s" X* ?
Z#8
/ y# M) j' B+ {2 j9 e

$ |6 m' Z: p* D6 ~9 Q8 Q; e$ ?
#12=#12+#13

- w5 [/ W3 v, v5 i
% {- g/ b5 j5 l0 h# |& {0 W
IF[#12LT360000]GOTO41
- z6 l9 _: D7 G' U3 Y" g' K

. Z/ f  Y* R4 P& h9 G
IF[#6EQ#5]GOTO50

; k- I8 N. J3 f" B, A2 G

- K7 u8 q4 F% k$ c0 I
IF[#6LE#5]GOTO40

3 V% A2 y7 ^) P8 {
5 a7 \) U; g9 k+ q# N2 y$ R
N50IF[#1EQ#2]GOTO60
' }/ e2 }  p, Y
0 i2 B$ d5 L$ I
IF[#1GE#2]GOTO10

6 R: O3 `3 T2 g6 `8 ?1 T

0 u( y7 W; H# c4 }$ S
N60G0X100.
% s; ]/ Q) V: q
, |& L$ F2 S2 J* [7 f
Z120.
0 g( o# f8 m4 F6 ?
* y6 Z- f+ W6 w+ Q2 m
M30

2 X& X2 I0 W+ u7 v9 V; v" ?
" T# `  v! B' g3 @7 Q

點評

只是給他參考  詳情 回復 發(fā)表于 2018-2-10 12:21
變量應用不靈活,程序不能完全通用  發(fā)表于 2018-2-2 12:32

評分

參與人數(shù) 2威望 +2 收起 理由
aa2852029 + 1 灌水~
東海fyh126 + 1 熱心助人,專業(yè)精湛!

查看全部評分

回復 支持 1 反對 0

使用道具 舉報

4#
發(fā)表于 2017-12-31 22:46:42 | 只看該作者
蝸桿得用宏程序,樓上的宏程序很好,樓主認真研究一下
回復 支持 反對

使用道具 舉報

5#
發(fā)表于 2018-1-1 18:01:08 | 只看該作者
三樓大神正解!
回復 支持 反對

使用道具 舉報

6#
發(fā)表于 2018-1-5 11:23:16 | 只看該作者
厲害,看一看。學一學
回復 支持 反對

使用道具 舉報

7#
發(fā)表于 2018-1-31 12:33:40 | 只看該作者
正在連接... 發(fā)表于 2017-12-31 15:53
8 S( W1 l) H' O. I/ J4 \+ C6 v6 [全齒高一般是2.25,既然你齒頂高系數(shù)是1了,底徑=36.5-2.5*2.25,編程的話我不知道你對宏程序了解多少。下 ...

6 ^6 z# O" {- s: ?/ v2 l3 }: |# D謝謝樓主9 Q* {( b6 R' G% S  \- W
回復 支持 反對

使用道具 舉報

8#
發(fā)表于 2018-1-31 14:58:39 | 只看該作者
謝謝。正好想學習一下宏程序。
回復 支持 反對

使用道具 舉報

9#
發(fā)表于 2018-2-8 08:39:35 | 只看該作者
宏不會用。我一般做多頭梯形絲桿螺紋。這個能用G78做嗎?
回復 支持 反對

使用道具 舉報

10#
發(fā)表于 2018-2-10 12:21:50 | 只看該作者
正在連接... 發(fā)表于 2017-12-31 15:53  a% ^/ o) j( o
全齒高一般是2.25,既然你齒頂高系數(shù)是1了,底徑=36.5-2.5*2.25,編程的話我不知道你對宏程序了解多少。下 ...

2 k8 O  z( [8 h: O# I: k只是給他參考
  [- e; T- a" q% A( m- I
回復 支持 反對

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 注冊會員

本版積分規(guī)則

小黑屋|手機版|Archiver|機械社區(qū) ( 京ICP備10217105號-1,京ICP證050210號,浙公網(wǎng)安備33038202004372號 )

GMT+8, 2024-11-20 17:14 , Processed in 0.060769 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回復 返回頂部 返回列表