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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
2 H! S+ f" w: Q* ^7 \3 |5 a  F, S& `G40 G17 G710 G90
$ O$ n8 ~: ~0 o( _G54
T="D50"
4 S& B/ g1 u' {7 f$ t, XM6
, R' ]4 m6 M/ IS1200 M3
7 x, y" V' e9 w! MG00 X0 Y0 D1
& z  @4 n3 y( x. X' A) rZ0.5
KK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
G3 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
$ h7 w) m# s* d; C5 E! l" e# VG0 Z300
M30

laomei

$ P+ ?& S2 Y8 K4 K7 T2 q
老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
N30 T="D50"
N40 M6
, m9 \" x3 d7 NN50 S3000 M3
N60 G00 X0 Y0 D1
/ A3 p5 ~. {# A" N2 `, L% P! r8 XN70 Z0.5
9 V2 {. E, I9 ?& dN80 R1=38
N90 ZCX
' A( j- V8 S4 f8 z" NN100 R1=38.015
N110 ZCX
N120 R1=38.03
% T/ n# I9 ^# x! B) kN130 ZCX
N140 G0 Z300
" N/ ~2 b7 Y) d) z) @N150 M30
子程序：G0 G41 X=-R1
8 o2 b% x' m0 {) sG3 Z-67 I=R1 J0 TURN=3 F2000
+ C# t, y- f5 ]& Z) [/ d8 GZ2.5 I=R1 J0 TURN=3
; M) P/ B% Y5 w! p5 W* vM17

zhang48926

西门子的不会