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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
( b2 U2 H1 X- v7 P. e8 `: s7 ?G40 G17 G710 G90
6 A/ J/ b% k& tG54
T="D50"
: w  W9 Z# Y2 W$ d) N1 ~& Z# O$ E; VM6
S1200 M3
" @3 v7 }9 f1 hG00 X0 Y0 D1
% s, p0 O/ l3 X( U6 a) GZ0.5
1 Z& N! S! n6 @! i8 ^KK:R1=38 R2=0 R3=R1+R2
5 @+ d0 ~+ c+ f0 A; Y' WG0 G41 X=-R3
1 Y3 ^. A; j. B4 zG3 Z-25 I=R3 J0 TURN=3 F400 M8
1 K1 J0 C9 E5 G2 ^! K& u! C* gG2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
IF R3<38.03 GOTOB KK
G0 Z300
/ F. K7 V! D1 I5 H4 TM30

laomei

: K/ b# N/ |+ N- }/ S* B
, y2 `: p% d% _6 t: C老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
. l! @+ b* j" t- A, l4 U( nN20 G54
0 k% v% g, |: D' EN30 T="D50"
N40 M6
N50 S3000 M3
. v0 r4 i3 W# \4 z$ rN60 G00 X0 Y0 D1
N70 Z0.5
N80 R1=38
N90 ZCX
N100 R1=38.015
N110 ZCX
N120 R1=38.03
N130 ZCX
N140 G0 Z300
. k& y! J* J- R+ K+ ~& N( ^% dN150 M30
子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
8 p) f$ |1 ^/ ~+ p" }Z2.5 I=R1 J0 TURN=3
/ Y  Q5 R' @8 Q0 g) b2 \M17

zhang48926

西门子的不会