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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
& e: q- T+ T9 w4 L+ dG54
T="D50"
, v) C" n. a' L% M# o" E% LM6
7 ~* F7 s2 z8 Y/ T; i1 \8 gS1200 M3
5 K2 F' L/ c* M5 i% i; h9 D3 lG00 X0 Y0 D1
Z0.5
8 B- @! @- l! d3 t, b2 f5 ]( eKK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
0 f7 P* N/ a: T" lG3 Z-25 I=R3 J0 TURN=3 F400 M8
/ t' N8 M' i( X- zG2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
* W. u5 C7 S+ i: c/ i) DIF R3<38.03 GOTOB KK
0 f# W) I+ S# Y& e& tG0 Z300
M30

laomei

9 D# U  f8 j: `! A, Y
% Z8 C- F6 k( |3 o( L( t老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
, l" h3 v! Q% u8 F7 n: u0 l' GN30 T="D50"
" Z4 ^2 G" S$ H; l8 eN40 M6
. W8 i" h5 b5 aN50 S3000 M3
N60 G00 X0 Y0 D1
, y' e; x& s1 B: r- W1 u8 AN70 Z0.5
N80 R1=38
N90 ZCX
N100 R1=38.015
N110 ZCX
N120 R1=38.03
N130 ZCX
+ B! S; i3 H' R, f  I. H4 j$ B0 h/ oN140 G0 Z300
% @- R% V9 V; t7 C0 eN150 M30
  w. l: y1 H) `3 b3 |8 V( k1 u子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会