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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
G54
T="D50"
) f4 i' }: d9 MM6
S1200 M3
G00 X0 Y0 D1
8 p1 a% b& e0 r: ?5 Q0 xZ0.5
9 w9 i  ?7 k) @' m; O' M# f( ]KK:R1=38 R2=0 R3=R1+R2
) b5 ]' L, N7 B" x" s5 SG0 G41 X=-R3
9 p& z2 }6 ]& h: t  W2 u3 }4 kG3 Z-25 I=R3 J0 TURN=3 F400 M8
G2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
IF R3<38.03 GOTOB KK
+ d5 X* `# n3 b8 S$ gG0 Z300
M30

laomei

老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
, ^7 \  o/ y8 Z+ p. a: pN20 G54
  K- C) T+ f9 `4 D2 `/ [N30 T="D50"
N40 M6
" X- _( K2 a0 t; |  v3 `, sN50 S3000 M3
N60 G00 X0 Y0 D1
N70 Z0.5
N80 R1=38
N90 ZCX
N100 R1=38.015
N110 ZCX
N120 R1=38.03
3 }+ V/ S: U+ b( D/ PN130 ZCX
8 o  D* o/ V: H; O6 C( TN140 G0 Z300
N150 M30
子程序：G0 G41 X=-R1
0 ]& A3 j6 v. V/ V) hG3 Z-67 I=R1 J0 TURN=3 F2000
  m5 G, y2 A& w, C1 oZ2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会