一个不复杂的西门子参数程序

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
G54
3 W( l4 e5 b5 VT="D50"
M6
4 D1 F4 O: O: ~6 [+ F  ]5 ~6 sS1200 M3
& `7 G; Z- }# o) p+ g' zG00 X0 Y0 D1
' P+ S6 Y( l- |& {' _Z0.5
$ K. z4 _0 g/ e( a6 [9 yKK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
9 i% |9 e9 V' d- G* fG3 Z-25 I=R3 J0 TURN=3 F400 M8
G2 Z0.5 I=R3 J0 TURN=3
( @( A+ a0 s3 R" KR2=R2+0.015
' O: E) r3 t8 q! ~( C6 ]$ YIF R3<38.03 GOTOB KK
/ V5 p4 \' ~0 c- |( {" U; O9 uG0 Z300
M30

laomei

老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
* i0 L4 w2 C% b6 d' T: bN30 T="D50"
$ [6 X, c% N) p4 _N40 M6
6 a# O# @' z3 ~5 v, _& J% WN50 S3000 M3
5 V1 L: X( e! M: ~! t5 rN60 G00 X0 Y0 D1
9 k  n7 p: j. K! M' P+ }7 {N70 Z0.5
N80 R1=38
3 U0 Y+ b; ]8 }5 ^  x4 ~N90 ZCX
( u/ C# k! n' GN100 R1=38.015
* @! `. p$ A/ A/ _N110 ZCX
% [7 V! J+ \' H0 ~2 IN120 R1=38.03
1 I+ v4 W. g! n$ |( i. tN130 ZCX
N140 G0 Z300
% n; u, i* M4 g; GN150 M30
+ Z. J/ l0 k8 I, c/ q子程序：G0 G41 X=-R1
7 }. ]8 b6 m' _: x$ u( F% f! W% Z3 {G3 Z-67 I=R1 J0 TURN=3 F2000
# P9 B$ k; F" ?# p( ]Z2.5 I=R1 J0 TURN=3
7 i" m) f; D8 y3 LM17

zhang48926

西门子的不会