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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
G54
T="D50"
M6
S1200 M3
4 c7 K+ ]! e& J8 p. X. X# yG00 X0 Y0 D1
' y& x& R, |8 W5 A, Y( mZ0.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
6 F0 @1 o2 s' J+ |' y+ rIF R3<38.03 GOTOB KK
1 F! X9 N4 M: oG0 Z300
M30

laomei

3 ]- I: H# G. d3 q8 }' R老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
( m' {. L% Y' \4 r/ dN20 G54
N30 T="D50"
N40 M6
N50 S3000 M3
N60 G00 X0 Y0 D1
# Q8 ]7 k. A, o3 {N70 Z0.5
N80 R1=38
3 C# N! w" \; C' @* n5 i1 S/ t; FN90 ZCX
0 {/ ?4 o: Q2 h9 o- q4 pN100 R1=38.015
% j: x9 g  _3 @" ^7 p. ~, R6 sN110 ZCX
N120 R1=38.03
N130 ZCX
N140 G0 Z300
  R. g! e3 T7 Y4 |6 UN150 M30
7 i6 m. V2 s5 o5 W" d$ i9 m$ m子程序：G0 G41 X=-R1
3 P# {7 ?# L' q. G$ p8 h# e  X( I5 BG3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
/ l( _0 |6 i. @/ n8 m  i- n/ z  @M17

zhang48926

西门子的不会