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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
5 G& x6 O7 z2 b3 w0 d8 U9 qG40 G17 G710 G90
9 K0 s( x8 z  A3 ?/ TG54
4 g! |" P5 y9 d0 aT="D50"
2 W$ W# S8 G6 s5 u: S$ q, EM6
$ {- G8 W) q' T! L8 H5 @S1200 M3
G00 X0 Y0 D1
6 b  j& m/ m5 E* x" m4 DZ0.5
0 t7 w7 }+ Q! I/ l1 tKK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
% q8 E4 v. U" d$ PG3 Z-25 I=R3 J0 TURN=3 F400 M8
; g3 K0 M: R! ~$ gG2 Z0.5 I=R3 J0 TURN=3
) w) O9 O$ f6 B5 j% C% z9 u, @R2=R2+0.015
& i* L! a& x, f% Q' F- b) BIF R3<38.03 GOTOB KK
G0 Z300
M30

laomei

. n- K7 S# y1 p' k% w$ f老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
2 C+ w; M3 Z, b+ r8 z! \, UN30 T="D50"
N40 M6
3 ]5 ^/ L# N6 q! h/ b: V5 `N50 S3000 M3
N60 G00 X0 Y0 D1
. E/ E/ z7 a1 r3 R6 B/ k! i# ^N70 Z0.5
N80 R1=38
9 b, U4 x* B7 C5 |: @2 P3 aN90 ZCX
N100 R1=38.015
, C2 w8 F" s- JN110 ZCX
N120 R1=38.03
N130 ZCX
N140 G0 Z300
1 [6 p# h. k2 l7 q" ^9 pN150 M30
: ?* c* S# b) h, }子程序：G0 G41 X=-R1
" Z" @) X2 x; b0 K( HG3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会