本帖最后由 正在连接... 于 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 MO0001
! \, T2 f. ?/ l! K6 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" ZG0X56Z10
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 T3 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! v2 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& cG0 X56（退刀） * ~* R; ^: _8 Z( p+ n7 g0 k2 g
4 u% h# q& w& {9 q: N: n' vG0 Z#7（定位退刀到起点位置）
& {3 b# q. D& i4 Y. c5 F2 l5 m5 T4 V9 c2 v! F" X$ E
#12=#12+#13（角度递加） G" P4 @" Y$ ]" ]* }
, e9 L. I. A3 a* OIF[#12LT360000]GOTO21（如果Q值小于360度跳到N21执行下一头）
* [1 ? k5 R7 m2 T( e9 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# M5 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 XG0 X56 Z#8（螺纹定位）
( p( [& E9 p1 m3 |$ c+ G0 X" `3 m8 n6 | u0 c6 }; x8 u
N41G0X#1（X进刀） ) \- S' g% B R6 A9 f0 C* E
2 |! \! S4 L* \; o( aG32 Z-95 F50.265Q#12（螺纹车削）
+ V6 ~& ~3 d- b2 H2 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 pZ#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' BIF[#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+ dIF[#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) nO0001
2 q3 T. ?9 _- n9 r* L
0 t* f8 @: g; l* Q% m" |5 D1 P tG99M03S300
! 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 pG0X56Z10 ) 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# sN10#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. `) X2 y; s" Z) F5 k9 F+ a8 T G
#6=0
: R: n- M+ A. t1 S6 m
( _5 T! U7 |3 X gN20#12=0
; X3 C* c/ S* q& r; s- C4 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 wG0 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# dG32 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 GG0 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 |- G8 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& C5 ]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% PIF[#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" TG32 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 oZ#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 RIF[#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 fIF[#1GE#2]GOTO10 % O1 o1 h2 @# |+ x9 \1 w h2 M
+ P) H, Z7 z6 a: H- MN60G0X100.
/ G: q, w$ V. d( V
$ o9 K6 A. [* W: r1 k: j% SZ120. 5 `8 _+ u) z N
2 W5 ?! L# Q$ X' IM30
, s' j) A/ U! l* P8 b0 B3 @5 J9 X) d4 _) t: S3 E* ~
| 
发表于 2017-12-31 00:06:01
QQ好友和群
收藏
淘帖
问题专业，描述清楚
伸手党/灌水/看不懂
