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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
G54
" F! r# T( }% M; [1 w1 V. oT="D50"
0 a4 \# X, W9 m7 ~4 D2 {M6
( Y8 K% P. c7 G7 r5 zS1200 M3
3 ?) a* F5 f" Z% d) hG00 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
' f  `- I/ ?( ?IF R3<38.03 GOTOB KK
G0 Z300
M30

laomei

7 |* W0 n% g: j8 ^& Q4 }! a
, Y& S. ^4 }0 ~老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
N30 T="D50"
8 O7 x% ^, h9 b5 yN40 M6
N50 S3000 M3
) m' [9 t2 c' T: PN60 G00 X0 Y0 D1
, S0 ^7 B. f, K$ fN70 Z0.5
% o9 c4 O; G$ V; y! ON80 R1=38
7 a$ o* g) l0 Z3 aN90 ZCX
+ }3 A( l: S3 N- UN100 R1=38.015
N110 ZCX
4 g7 H9 H5 F; vN120 R1=38.03
N130 ZCX
N140 G0 Z300
3 S$ }3 H, G6 O  \/ M7 JN150 M30
子程序：G0 G41 X=-R1
9 B; x1 ]" G  B  U2 p- b% K. F1 R3 c4 b1 GG3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
" N# K. A1 n! i5 d. x$ GM17

zhang48926

西门子的不会