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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
G54
T="D50"
9 i# Q. C7 h2 E9 `0 {" e# [# m3 F9 hM6
S1200 M3
G00 X0 Y0 D1
Z0.5
8 |( J. v3 p3 _5 a; O! P. l7 b+ @" zKK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
+ c" k' P) L$ _) J1 lG3 Z-25 I=R3 J0 TURN=3 F400 M8
  U$ J9 U$ ]' J* [9 x: h7 g) x3 ^% |G2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
IF R3<38.03 GOTOB KK
G0 Z300
7 Y7 [0 q% S7 n' R. |0 }M30

laomei

老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
N30 T="D50"
) n5 h) p5 d* k0 gN40 M6
N50 S3000 M3
4 ]  v# D1 K+ P' bN60 G00 X0 Y0 D1
N70 Z0.5
8 u- X8 U- ]4 a; hN80 R1=38
N90 ZCX
7 L+ C! A1 Q2 E) r0 K; @% Q& q; UN100 R1=38.015
N110 ZCX
9 s7 ~9 w6 ?$ I9 t6 lN120 R1=38.03
N130 ZCX
N140 G0 Z300
1 f8 R# D; W/ P1 PN150 M30
子程序：G0 G41 X=-R1
! \# ^0 m; I3 N  Y0 EG3 Z-67 I=R1 J0 TURN=3 F2000
- t7 g3 C7 L& b( C3 Y: T. h; oZ2.5 I=R1 J0 TURN=3
! Z6 ~( e8 P- a2 H% j3 N  ~M17

zhang48926

西门子的不会