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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
G54
" ~( {: p2 C& \5 P5 K! D% ZT="D50"
( o- ?, O; C  m- a  \4 l6 B8 cM6
% t- x' \; e# @% ?( V5 p, {S1200 M3
& ]) M/ Y+ ]+ U* WG00 X0 Y0 D1
; T! N0 d9 ~* K  U2 q; FZ0.5
, B2 m' m8 Y# E  Y$ YKK: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
0 H; D3 A9 I7 {! S# d# d7 NR2=R2+0.015
$ u! R/ o$ q: F; x$ fIF R3<38.03 GOTOB KK
G0 Z300
M30

laomei

9 C- F. ?1 N/ A1 t9 ]* ~5 D1 d1 a
0 J- Q% ?$ N. p2 k老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
! a' m. \5 _! q8 R1 Z# o$ W6 G3 zN20 G54
5 |8 |( }# t8 M& M3 ON30 T="D50"
N40 M6
8 N- X8 a/ b; v( t( s+ |% jN50 S3000 M3
N60 G00 X0 Y0 D1
N70 Z0.5
N80 R1=38
N90 ZCX
N100 R1=38.015
7 \( t9 {) ^6 r, G" }1 vN110 ZCX
# R  a# m9 g& |# EN120 R1=38.03
' V8 G+ f. T! w  }) iN130 ZCX
N140 G0 Z300
N150 M30
子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
4 X8 [( a0 l- R: q1 k$ OZ2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会