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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
* a0 a/ r7 d: D5 LG40 G17 G710 G90
5 Y/ C8 ]4 Q' g3 t) @+ G- oG54
T="D50"
M6
S1200 M3
G00 X0 Y0 D1
- U7 t' I. Z. f5 LZ0.5
KK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
# |9 U1 Z' ~# d3 X/ s. z) v4 nG3 Z-25 I=R3 J0 TURN=3 F400 M8
7 j3 A! c3 q2 z# w1 WG2 Z0.5 I=R3 J0 TURN=3
9 t$ M6 q* X! ^R2=R2+0.015
2 T4 X; Z' E$ Z9 U9 B' GIF R3<38.03 GOTOB KK
G0 Z300
M30

laomei

! |, `3 Q9 [6 P2 I1 H! A
5 ]* v4 w3 M0 Z) Y% U老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
N30 T="D50"
% g4 r" N3 j# K% y  mN40 M6
N50 S3000 M3
N60 G00 X0 Y0 D1
. O7 w/ b- w( w, S1 H  n6 S; |N70 Z0.5
N80 R1=38
N90 ZCX
N100 R1=38.015
N110 ZCX
N120 R1=38.03
N130 ZCX
N140 G0 Z300
$ D, F% L( d& Z4 E/ p+ YN150 M30
2 _3 N; t3 @! G$ w- r子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会