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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
' c2 v4 E( w7 X, _9 s8 b0 sG40 G17 G710 G90
G54
T="D50"
4 p" E1 n8 j! MM6
/ L* ^2 k; |% ?S1200 M3
" k' R* q8 C$ q* m1 K: j8 CG00 X0 Y0 D1
Z0.5
/ u. o5 E8 R  z( u9 H' C$ C3 R2 U; `9 WKK:R1=38 R2=0 R3=R1+R2
1 B3 f! n0 X3 uG0 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
# ?( n- x, r3 P% l- TIF R3<38.03 GOTOB KK
G0 Z300
1 ~6 z8 V+ _3 M+ M5 dM30

laomei

$ t2 R" N1 y, W& f7 [2 X
老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
N30 T="D50"
N40 M6
2 l9 r% D/ _' yN50 S3000 M3
N60 G00 X0 Y0 D1
N70 Z0.5
" X/ `5 f+ D! X4 b  |: g4 p( qN80 R1=38
N90 ZCX
; w8 v3 C) M9 E7 S3 e$ mN100 R1=38.015
* `+ V, S" B) oN110 ZCX
N120 R1=38.03
3 K* M, N. L0 hN130 ZCX
N140 G0 Z300
0 w3 i7 a" U  _* w1 u- ]% EN150 M30
子程序：G0 G41 X=-R1
9 U/ Z+ P0 g) ?' B2 ZG3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会