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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
G54
T="D50"
2 ^. q6 \( x& ]& Q# U6 h% EM6
S1200 M3
) M8 n1 J9 Y1 f, K. q4 p0 _G00 X0 Y0 D1
Z0.5
KK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
% N* p; X# w- S7 ~. R8 AG3 Z-25 I=R3 J0 TURN=3 F400 M8
G2 Z0.5 I=R3 J0 TURN=3
9 B8 y% D* X) fR2=R2+0.015
IF R3<38.03 GOTOB KK
1 U/ W# k/ n+ D* P7 i) z' ^  wG0 Z300
4 u/ W, M$ A; mM30

laomei

8 t! s& Z* h' K- B6 |3 \, t, \& U
) x, ?% i2 B2 M老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
- c) M. o! G6 m0 r. dN20 G54
N30 T="D50"
N40 M6
% M( {  u+ {) J( gN50 S3000 M3
6 n) r7 D, t+ `+ C6 ?0 W$ kN60 G00 X0 Y0 D1
- `5 q- a0 v! y! K" B* I* YN70 Z0.5
N80 R1=38
5 y( y* d$ ^7 l$ ]0 |% d; R3 m1 |- ?1 bN90 ZCX
N100 R1=38.015
N110 ZCX
N120 R1=38.03
N130 ZCX
- Z% C% M) }2 Z% JN140 G0 Z300
N150 M30
9 ~+ L1 Q, C# \6 r* y* `子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
% ^! _; b8 Q1 B9 X6 KM17

zhang48926

西门子的不会