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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
  a- K: I% n  j/ K. uG40 G17 G710 G90
G54
T="D50"
8 ?4 l1 i: `7 ?  J9 o) G5 @M6
- j2 a2 ~; D: o6 U1 s$ j7 X0 aS1200 M3
G00 X0 Y0 D1
Z0.5
KK:R1=38 R2=0 R3=R1+R2
! z1 P/ b5 \! {8 _2 n1 dG0 G41 X=-R3
5 C0 T2 X2 k7 |. _2 P! MG3 Z-25 I=R3 J0 TURN=3 F400 M8
G2 Z0.5 I=R3 J0 TURN=3
. A, G/ j; }& ?( L+ ?" {' ZR2=R2+0.015
IF R3<38.03 GOTOB KK
0 ^* _( h. L5 kG0 Z300
6 V4 G2 l/ D! GM30

laomei

- v4 k' q5 u5 }+ L3 s# H, m5 X/ k) {( J
+ O+ d% f" [0 R. `7 S  H老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
/ B! v: X0 Y) C8 E( UN20 G54
' K; P8 G" X1 E8 zN30 T="D50"
N40 M6
N50 S3000 M3
N60 G00 X0 Y0 D1
; e8 M/ k4 X4 O7 |- K2 F( \) VN70 Z0.5
N80 R1=38
N90 ZCX
N100 R1=38.015
( Z0 {1 K; n5 Q* z2 P/ e! {" ?; [N110 ZCX
N120 R1=38.03
N130 ZCX
+ @1 `" q6 i- w/ Y0 `1 p$ I3 M( }N140 G0 Z300
! i6 _/ @; {/ e0 Y/ p( V& Z' PN150 M30
子程序：G0 G41 X=-R1
& Z) ~: b( M" v9 ^G3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
0 ?! J* z" q  c  Z1 u/ [% hM17

zhang48926

西门子的不会