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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
7 T0 ?* q. W8 i7 ?+ Z% M! }G40 G17 G710 G90
G54
1 b# [; w& ~8 L% Y; dT="D50"
M6
S1200 M3
G00 X0 Y0 D1
Z0.5
5 A; ]9 {" w" _! D  n* VKK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
( `4 `' l/ I- M" g5 a3 O( g5 O; i# d" LG3 Z-25 I=R3 J0 TURN=3 F400 M8
- W; U8 m9 G# H# d& X$ c. y9 M+ gG2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
% C1 ~6 Z) A8 M+ o" Y, _- }) h1 |IF R3<38.03 GOTOB KK
G0 Z300
; d+ C$ }  n5 \( v6 q& J  H# \M30

laomei

) `4 N0 q4 a+ W, w: c3 c* w. M+ R
# y) R, C  O% T老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
N30 T="D50"
0 l4 u# _: t" H! F! k# h  aN40 M6
* R1 \0 \6 J6 x2 T2 |- RN50 S3000 M3
$ ^, a* ]0 h; S5 K5 f+ \4 s/ IN60 G00 X0 Y0 D1
  E' y7 `: r, G' rN70 Z0.5
5 }' J/ M) }7 D5 {3 |: {N80 R1=38
3 T  a+ w5 |4 R8 S6 s7 jN90 ZCX
" H! Z  }9 W2 \' `& c- wN100 R1=38.015
N110 ZCX
N120 R1=38.03
N130 ZCX
N140 G0 Z300
N150 M30
: Y; _; b9 o/ t% J. }子程序：G0 G41 X=-R1
" w0 W9 f# o) }8 kG3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会