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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
/ {5 P  \+ S, c( @  o, F6 X- L& BG40 G17 G710 G90
/ Y7 Z7 |) G6 cG54
$ [5 e* x7 W  G( f" c* ?T="D50"
6 K* X  o5 n5 l* AM6
S1200 M3
8 k0 F. L" t7 k* A. B0 ^) `G00 X0 Y0 D1
  A! ?- X/ b' ?7 W6 @1 IZ0.5
KK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
" N- ]! }6 A* `. Y& I! eG3 Z-25 I=R3 J0 TURN=3 F400 M8
( U% x. O/ G6 I" m: iG2 Z0.5 I=R3 J0 TURN=3
8 o* K7 K  y3 A/ i, z/ |R2=R2+0.015
* g6 d" F4 Y- k( }IF R3<38.03 GOTOB KK
8 X* f- `$ B( iG0 Z300
8 }+ A) O0 E) x( Q, |M30

laomei

) h  I- u3 m5 |
老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
N30 T="D50"
N40 M6
N50 S3000 M3
. Z5 o# Z: L( uN60 G00 X0 Y0 D1
4 V6 N2 \3 O1 I8 y" o1 D% iN70 Z0.5
N80 R1=38
N90 ZCX
. v$ s: y5 a  E) @6 ]! ^6 e6 K# ON100 R1=38.015
N110 ZCX
N120 R1=38.03
N130 ZCX
. G, H9 F- s1 `: IN140 G0 Z300
N150 M30
子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
( a) G$ j! b, t* q0 Q4 GZ2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会