本帖最后由 正在連接... 于 2017-12-31 15:57 編輯 ( L6 @% K- B% w6 R2 ^0 K
. {# p: ~9 t$ c' e |
全齒高一般是2.25，既然你齒頂高系數是1了，底徑=36.5-2.5*2.25，編程的話我不知道你對宏程序了解多少。下面是一個蝸桿宏程序，你自己慢慢研究吧。9 q* r* F, Y" k* q# b6 \/ j
9 Z2 p8 I5 Q2 q4 Y
" I# j+ w2 B: P" g. {D=52 d=34.4 模數4 四頭， 牙型角20度，刀寬2mm 角度LE20度 ，
4 h8 a9 L+ w2 ?4 _5 c" ^9 ?$ O- y$ E% z3 Q# j
P=3.14159*4*4=50.26544（導程等于摸數*3.14159*頭數） W=0.7M =2.8（蝸桿底部寬度） " R/ e! Q. I+ N) A
) v1 a) m! d# {% K
/ G* d0 C4 {' T0 d4 r/ r( R6 [" Q4 N6 }; f- n" C+ b2 S; \
程序：
" C, z1 ?6 W, `$ G4 H( l+ T8 {( E( A" e; k
O0001
6 {5 {; V! _/ c4 _! E; W+ m$ k. H4 C7 r0 z& n
G99M03S300
( E p8 n# J. p7 S( m* A# w- u' w |- |5 e6 D; d- ]
G97T0101M8 ' |+ t$ o9 \: N
( B& w, E4 ^3 rG0X56Z10 2 w8 Q6 i- q! W& P) L8 s3 x
) S" q& H& `, O) f- Y# h#1=52（蝸桿大直徑）
7 {& c. F5 o7 N6 X& a0 f! I4 m0 E5 w- w9 ~7 a" a
#2=34.4（蝸桿底直徑） ' @5 P3 s+ |7 k6 R
8 O7 E7 K8 S9 |0 p3 ^1 G. M
#3=0.4（底部寬度減去刀寬的一半） 4 k7 ] l3 {$ Q3 e1 B: _* |
4 D0 f7 h! P8 [1 Y" u
#13=360000/4（算出每一頭的角度） ) x* D, M. O9 m9 \
6 U2 W* b% f5 q$ c
N10#4=0.2（每層吃刀量） : d5 t2 U. ?' O& J0 t4 c
( W) @* {# W7 h5 }#1=#1-#4（大直徑遞減） 3 W5 M% B: ?9 O5 @( Z
& P. v5 n' [& m% J. ~; K
IF[#1LT#2]THEN#1=#2（條件判斷防止過切，強制賦值。當#1小于#2，那么#1等于#2）
$ ~/ t u7 B# w' \4 |. y$ d: W2 ^( c
9 A2 `% z! f. @; ?% A! v k- J: ^2 z; u#5=[#1-#2]/2*TAN[20]+#3（三角函數算出每層需要趕刀的寬度） & g. h# e. x( O5 g7 U( k2 w
9 [) G4 z4 \2 |" n
#6=0（趕刀初始值）
d5 V" H& z# D% y
' Z! N/ c. c, [N20 #12=0（Q的初始值,不能亂放） 0 a h& _" L* @ a! P
6 U) N5 J6 w- Y#7=10+#6（計算右趕刀每次的定位） / r3 ~- Y) u0 k; a% D6 i5 q
. ]: I8 Y- k6 G" j; U! ]
G0 X56 Z#7（螺紋定位）
# L# _( _* S* t, G) {) P, |: S# Y
; {9 ?$ A- H, X2 z+ U" `N21G0X#1（X進刀） 8 q/ x, n9 D; z5 g, h) r2 Q6 l$ t
; Z$ @! L6 d8 }
G32 Z-95 F50.265 Q#12（螺紋車削）
1 o3 E: Q3 a1 c& m* ~! p
' x6 x9 S6 z! ` v5 _" r" @G0 X56（退刀） # l) I4 v2 c* j2 M0 \% r3 B+ I
: a! n* N' z7 I0 L& x4 U$ I1 q
G0 Z#7（定位退刀到起點位置） & f0 N& Q7 w0 T& u: _8 z/ u+ C
6 @# F* f. g5 e#12=#12+#13（角度遞加）
8 |0 |: R5 s& ]& o" W4 D5 E. S* A4 J/ H. O: k9 j
IF[#12LT360000]GOTO21（如果Q值小于360度跳到N21執(zhí)行下一頭）
1 E: S V4 z9 p, w- O4 g
/ t# C" X0 A. A1 }; Y7 w) MIF[#6EQ#5]GOTO30（如果右邊趕刀寬度到達跳出循環(huán)） 8 n# G% h5 S* I4 p' y! k1 U
1 S/ n& u+ s/ m5 s1 r* Z$ y
#6=#6+1.5（每刀趕刀量加1.5）
" M4 A. o% S; Q7 G
1 g. s. B, j& |& C- S" r [IF[#6GT#5]THEN#6=#5（防止過切強制賦值） ! F! M6 a+ _% }' x
8 w& q& ?4 ^1 l0 y6 DIF[#6LE#5]GOTO20（如果右邊趕刀寬度沒有到達跳轉N20繼續(xù)循環(huán)） % k2 v ~5 N5 h( C( @ |+ n9 `
3 W% C" u- L, |3 U
N30#6=0（趕刀初始從新賦值） 4 J' ]) B; Q" u/ t& p) B$ f, z
9 H& c5 Y1 L4 R# _( U7 n
N40#12=0（Q的初始值,從新賦值，不能亂放）
) N9 q" n& k- D. a, ~2 u: i1 \* F; Y) M' G; a* p2 d3 o; N! E
#6=#6+1.5（趕刀寬度遞加） : k0 k8 ^! Y- n2 H- c4 a, z3 ^- x
: L9 U$ z5 h8 d( mIF[#6GT#5]THEN#6=#5（防止寬度過切，強制賦值）
* e- z) h/ b& u0 b( j4 C0 n& g/ {: ~/ f6 \; q6 M6 T; C
#8=10-#6（計算Z定位向左趕刀）
7 g* e( f9 E( L2 C/ T9 f, f2 ^& f
# x6 y( L9 S: H0 UG0 X56 Z#8（螺紋定位）
& ?: Z7 \9 b. A7 P% x, M
6 ^* D% p( A9 ~) {" ]& hN41G0X#1（X進刀） 6 U# m0 I4 V6 g- G, U: G- c' o' s
* @3 a! W7 a s, Y2 SG32 Z-95 F50.265Q#12（螺紋車削） $ N- T/ t3 _# t, D% p& Y3 x- m
3 z, `) x- h: ~' G, w3 l% pG0 X56 （螺紋退刀）
3 b- h' I+ t' r, p/ L. N* r) H9 t* y
. G* E* S4 W4 g) u. T# @( J% RZ#8（退回上一次加工起點）
: t2 {' a& \3 s' x) j0 C c5 g" O
#12=#12+#13（左邊趕刀的角度遞加） - L' \, L+ }$ ]; p
$ ^, M! _8 Z2 O. \4 `! q+ i$ v% t9 F& {
IF[#12LT360000]GOTO41（如果Q值角度小于360度跳轉N41繼續(xù)下一頭）
; b5 ^1 |- [) P: d
0 ~) G0 ]+ q1 f1 D7 r3 gIF[#6EQ#5]GOTO50（防止死循環(huán)，如果寬度到達跳出循環(huán)）
! ?8 r% a1 F9 K4 E2 J
+ v, t) o* }0 I0 pIF[#6LE#5]GOTO40（如果左邊趕刀寬度沒有到達跳轉N40繼續(xù)趕刀） 4 {8 @1 h7 t! `4 W
4 D- }2 D& Y- H5 O1 O9 ]
N50IF[#1EQ#2]GOTO60（如果螺紋深度到達跳出循環(huán)）
, P, x. }7 _/ T j4 M5 j) A/ w' U, }. \* Z: K, m# ?) c
IF[#1GE#2]GOTO10（如果沒有到達跳轉N10繼續(xù)下一層）
- T6 K! T2 T8 U: p3 V
5 [: p# W3 W! hN60G0X100. / Q- x4 d! c9 h, X8 L
7 O: w8 ?( b; W: k8 A1 @7 b) _Z120. % q% Y" g/ l& V- @8 X. q: w
2 @4 ^1 ^9 s1 Z
M30 , K# I) E, q4 e( d
5 o6 Y+ }/ q! Q3 c8 ^ . E! @4 f# G. C" e+ m. |- `1 L7 z% C
$ @; q1 w# N) e1 y- l9 _
完整程序如下： ' Q; u/ z0 _6 z! G7 i5 r
% c# ?2 q% g. X% |* i: L: r
O0001 ( A! {7 O# E1 S, w( ?+ ^5 }
0 H' s2 _$ t; C$ c B6 N4 J3 JG99M03S300
" f4 D, m% c& g& v7 l& y5 T% `0 ^
2 A' @% ?% C: B& {4 x7 u% k# Y- _G97T0101M8
" a& Q: d( E9 Z
% `# p. o" Q# U0 JG0X56Z10
( {5 ~2 E) v( i
2 U! p5 T) D/ z#1=52 ) [: i8 I- \! c. D: A A# ^
; z1 y2 P4 I) S. k4 |6 d
#2=34.4 8 `' j/ U0 u" T7 U; |' D3 W6 J
4 ?4 T0 h! {# g- \# S, o
#3=0.4
, Y; ^4 l+ s% m% k5 _8 m I+ a: ]% Y# r
#13=360000/4
3 {* @1 o1 T1 x3 T! V
4 Y2 p& O& r. ]- ~- ?& IN10#4=0.2
9 @& ?! C4 G k! P* g7 G, r9 x/ C. W1 U" @, |
#1=#1-#4
; w Y' i1 e! S& U2 H0 C7 l/ s, }# s' m3 W( i7 D; i- y
IF[#1LT#2]THEN#1=#2
# i! y/ r' S8 I* ^
% _5 j, `5 Z5 s5 P#5=[#1-#2]/2*TAN[20]+#3 & l( h) S; l4 f2 s N5 k, u% H
* p8 H* v, Y* _9 l' }5 S j% x
#6=0 9 z8 L3 `& A, ~" q( A$ }- u. h5 ?
6 J! [6 \3 K: q* L6 ^N20#12=0 & |1 v' |* E3 k' S+ b |. {
. `4 A; _) N/ p) y7 [
: s- B& X, |+ n8 B
4 ~3 r" I ~7 [% c( p" W #7=10+#6 " b: d! h8 A- f( W1 {
: Q* s, _6 w. m# ?7 Y/ O/ Q( _G0 X56 Z#7 3 ~0 z6 S. Q3 _
( C: f) t) i# E$ W2 U) q4 YN21G0X#1 1 g) [- w O1 m/ r# i! }
# A; p# B# a* {& f
G32 Z-95 F50.265 Q#12
% d% a% i5 u r% M9 m- |- V$ E4 h6 c" N# I
G0 X56 ~* ]! M3 Y$ H1 t
, U! ^! W! I7 r' a- ~4 P" j7 `G0 Z#7 : S0 e$ p: ?6 d- o
+ l' H, `+ x! o- ?#12=#12+#13
# |- b/ w4 I) u. p7 l
7 q3 z7 y: k3 S6 @IF[#12LT360000]GOTO21 0 ~, A- h8 M% L" c; V- [
& D( a. Q: h4 I, L# H: X
IF[#6EQ#5]GOTO30 ; C5 e4 ?6 \2 [. U+ l9 c
' h# i# |+ d; F1 ]* D#6=#6+1.5
" m9 G- s8 e# L9 J# y# u# b& o2 z4 v+ j+ u/ J, l( h
IF[#6GT#5]THEN#6=#5 7 a: Y2 B" U6 k- ^7 R3 D9 e
" x6 n7 d2 l! ^) A5 Y% I, Q7 \IF[#6LE#5]GOTO20
9 v, T8 @9 ^4 {+ M, U+ E7 P1 Y: F' ~
N30#6=0 ; F9 H8 H! ~! i" ^; |! ? h
* `. n( V% w, ~. H) ^# R
N40#12=0 7 d9 Z! @$ J" t8 K3 m
8 l- S- H- [( Y4 R$ J5 n
#6=#6+1.5
, K+ ~+ f5 s- L( `0 i( b7 W
( N' j. s. g4 Z- H1 G: X6 r! {IF[#6GT#5]THEN#6=#5
8 j, S! d% t% ~0 d: a# M& [) [4 ]8 Q' Y" |
#8=10-#6
& J; i6 m* r- a& {* ]) q( [0 V- O- l& N2 q- `1 o" W2 l
G0 X56 Z#8 & J, |6 g2 [& w% L4 U
6 S3 b' Y. ` o# M- ~
N41G0X#1
' r! W Z& V3 @: y& p
! e! }8 s. L$ g" ~8 H4 H& {G32 Z-95 F50.265Q#12 0 X3 k& k- P3 ~- G3 [$ X* d
+ O) b, _3 @' `8 Y# u9 Y4 uG0 X56
( U6 \% O( I( U% f3 v; V; H4 b, V. ], s
Z#8 4 c# _, M. W( A. _: V7 l: p' X2 j( h
: i! |, {$ J. e" K6 I
#12=#12+#13 ; c" l% N% x8 p- C/ P
% f' P- G, t* s; I4 n7 K3 O
IF[#12LT360000]GOTO41 8 x) O2 _9 c D$ q @6 C
- e" F# |& t# YIF[#6EQ#5]GOTO50 # Z$ A( w6 o* n, G* Y9 d7 R" |% w
3 @. P9 T. y* a) iIF[#6LE#5]GOTO40
6 f" t* p$ ]- n% }( [ u: o
1 y6 c- n! d& L2 D' D8 K" `N50IF[#1EQ#2]GOTO60
3 r- J& D5 _ g2 s w# M* S% i% K8 B/ G! F/ B4 F. Z8 _
IF[#1GE#2]GOTO10 0 d; r5 j- C6 i4 I( I% s" H
6 `7 q# O' [8 N1 Q' w
N60G0X100. 8 h: A: D- t5 a, ]2 I" n* K
$ w6 e" N0 N6 x- i, oZ120. " _4 @2 K* C. D! R, N& M
! b3 Y; x) ], ^; j! N
M30
3 V0 Z H' A6 C) X F
6 v6 }8 x5 F d5 G) V |
發(fā)表于 2017-12-31 00:06:01
QQ好友和群
收藏
淘帖
問題專業(yè)，描述清楚
伸手黨/灌水/看不懂
