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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
# V1 W8 Q/ L3 D' {G54
6 Q4 J$ M( R1 |" ZT="D50"
9 z  ~: z. I4 L/ ZM6
S1200 M3
G00 X0 Y0 D1
Z0.5
7 o# `! G) d$ d6 GKK: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
% Y. S! b) g# W6 o1 w4 }R2=R2+0.015
" m. u/ u" x: H0 {IF R3<38.03 GOTOB KK
G0 Z300
M30

laomei

- h6 V$ |" r9 M
老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
( d* b. ]5 e( a5 O# g$ e0 U1 [% lN30 T="D50"
N40 M6
N50 S3000 M3
N60 G00 X0 Y0 D1
N70 Z0.5
5 p( j; l2 j: y0 }; `0 \: \0 b- YN80 R1=38
- Q( {1 v) @4 CN90 ZCX
% G) `# ]/ C4 dN100 R1=38.015
N110 ZCX
4 o! z( y! I$ C; s  EN120 R1=38.03
' C; H# A- d: j( x* m6 |. t7 J0 _N130 ZCX
* F7 q" u( o" p" M% cN140 G0 Z300
N150 M30
子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会