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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
G54
T="D50"
$ ~5 L! U% U  O  V% {3 d" u$ I* wM6
S1200 M3
G00 X0 Y0 D1
Z0.5
% [% w4 y8 \* d' [+ l: bKK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
" I" T! _2 {+ \; z: ~% IG3 Z-25 I=R3 J0 TURN=3 F400 M8
. g9 f5 {5 ~- c( OG2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
: O/ O* l: J- @; d# T7 c2 `IF R3<38.03 GOTOB KK
( p2 E2 b7 }& R/ c  QG0 Z300
M30

laomei

( V+ e: R8 {; M8 k) C" h
8 s" N! S3 y3 u, e- \/ z老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
1 Y$ B7 m$ h( p1 u6 bN20 G54
5 e4 Z4 F6 V- dN30 T="D50"
# p( T# B+ V0 B; ^2 v" W* X8 V0 UN40 M6
N50 S3000 M3
8 s# V" U$ T: J% HN60 G00 X0 Y0 D1
N70 Z0.5
N80 R1=38
N90 ZCX
N100 R1=38.015
3 e" Z# _/ B+ I/ EN110 ZCX
N120 R1=38.03
N130 ZCX
8 V$ x' f/ q" AN140 G0 Z300
N150 M30
+ Q+ E2 u; P. r9 M子程序：G0 G41 X=-R1
7 ~7 x$ `3 I+ o7 `G3 Z-67 I=R1 J0 TURN=3 F2000
# o6 M8 T2 l9 W& _Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会