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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
G54
3 l& f+ ^5 }9 W" eT="D50"
' ~6 i2 F- U5 z: o! kM6
) M3 X/ o+ d$ p  ~( O1 z. l% eS1200 M3
) l$ U4 h$ o! F" U5 C1 z; d5 lG00 X0 Y0 D1
- S/ ]6 e1 G, X$ k* A2 KZ0.5
- X8 i" C  b; [KK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
G3 Z-25 I=R3 J0 TURN=3 F400 M8
. e5 g4 V1 r* u& p" tG2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
IF R3<38.03 GOTOB KK
+ o7 L9 Y4 [( `2 y& t4 vG0 Z300
M30

laomei

老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
, \( r; R; g% U$ T% @* Q; yN30 T="D50"
N40 M6
N50 S3000 M3
N60 G00 X0 Y0 D1
% X$ i8 t0 [7 s( n2 E) M* v4 XN70 Z0.5
9 I+ R( p( y" W6 N' dN80 R1=38
4 \: D- Y( j) f7 x7 n1 N" }5 RN90 ZCX
N100 R1=38.015
N110 ZCX
N120 R1=38.03
N130 ZCX
N140 G0 Z300
N150 M30
子程序：G0 G41 X=-R1
6 E2 K' a4 Z) f( C, N) M1 EG3 Z-67 I=R1 J0 TURN=3 F2000
2 [. i! b! D) lZ2.5 I=R1 J0 TURN=3
9 _$ y1 ?! b, _, ~+ N" C6 DM17

zhang48926

西门子的不会