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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
G54
3 Y, L2 |% j0 [T="D50"
  C8 z! O; m$ g3 e# w2 Q9 A& ~M6
S1200 M3
G00 X0 Y0 D1
Z0.5
KK:R1=38 R2=0 R3=R1+R2
3 ^, Z9 \/ t0 L/ [G0 G41 X=-R3
5 X7 q7 k1 t# G. `6 a, `G3 Z-25 I=R3 J0 TURN=3 F400 M8
: C: K0 R; J; |0 I; MG2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
IF R3<38.03 GOTOB KK
G0 Z300
M30

laomei

老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
% H4 }% e# u; d, gN20 G54
+ s# Z  c2 q3 xN30 T="D50"
& t5 W# F! e' W- M1 XN40 M6
N50 S3000 M3
N60 G00 X0 Y0 D1
N70 Z0.5
N80 R1=38
N90 ZCX
; y& b: W* f- e: j+ ~" VN100 R1=38.015
! A8 O' S& b) a5 FN110 ZCX
5 \- M) z7 ^- W# ZN120 R1=38.03
N130 ZCX
7 ~/ n9 k% k1 FN140 G0 Z300
9 K# z  v) N% p. eN150 M30
& d8 v2 T' e- R  H7 b子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会