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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
G54
' x9 Q1 [" W1 \8 K* WT="D50"
M6
S1200 M3
2 V6 g* M* j- f, r% K; O5 WG00 X0 Y0 D1
Z0.5
KK:R1=38 R2=0 R3=R1+R2
1 m3 \- ^  d" b, JG0 G41 X=-R3
: S% D7 h! }2 `" nG3 Z-25 I=R3 J0 TURN=3 F400 M8
9 B4 ]& H7 b+ `5 NG2 Z0.5 I=R3 J0 TURN=3
: ^1 v, f, S) ?: D1 W$ w6 n! sR2=R2+0.015
IF R3<38.03 GOTOB KK
G0 Z300
# A6 p, ]5 u5 EM30

laomei

8 d7 `6 z  ?; i6 k- G* s* I老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
; n, p. V5 [9 F8 wN30 T="D50"
N40 M6
N50 S3000 M3
N60 G00 X0 Y0 D1
N70 Z0.5
2 s+ e) {% o' E1 J" FN80 R1=38
N90 ZCX
N100 R1=38.015
4 J+ H4 I# L/ w" |# i. IN110 ZCX
N120 R1=38.03
N130 ZCX
N140 G0 Z300
# h8 [* L3 S& z# d' JN150 M30
子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
) C( u6 `2 @2 [  R" K! i  ]3 f9 zZ2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会