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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
9 ]( m/ I2 h4 h* j; |( U6 ZG40 G17 G710 G90
G54
5 _& T7 _4 d  p1 UT="D50"
  G& O1 i) {# C( a' c6 \5 @M6
- A) z1 O4 l9 `3 {S1200 M3
' S6 C5 }( v6 u2 oG00 X0 Y0 D1
Z0.5
KK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
G3 Z-25 I=R3 J0 TURN=3 F400 M8
G2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
IF R3<38.03 GOTOB KK
G0 Z300
( D$ A* A# I3 [$ D) N5 U6 C3 UM30

laomei

1 j% J" V5 Z. b2 `
老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
( r4 G; z3 U; V2 L, o2 s+ t! BN30 T="D50"
N40 M6
N50 S3000 M3
0 ~+ O: _& e, B  n9 I; vN60 G00 X0 Y0 D1
N70 Z0.5
/ C3 T: A0 c) r( I! iN80 R1=38
N90 ZCX
$ z+ q+ W7 V. j5 h5 PN100 R1=38.015
N110 ZCX
N120 R1=38.03
N130 ZCX
* ]8 _. x% {2 ~: R: r. {* kN140 G0 Z300
$ J& o6 a0 [* c; B9 F* }N150 M30
子程序：G0 G41 X=-R1
3 T; D4 a" j5 iG3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会