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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
G54
8 f5 i/ U) }1 ~- ]' D/ E9 w# x2 w8 pT="D50"
) J9 r3 b5 k* v  |$ x, AM6
# j& k  a  \4 r9 h; E/ jS1200 M3
2 A% T/ M; n* v7 a6 TG00 X0 Y0 D1
0 a  ]( V/ g; f' c/ Y$ [+ JZ0.5
KK:R1=38 R2=0 R3=R1+R2
  d- l9 v# {% J$ uG0 G41 X=-R3
" f8 V$ M7 u. A5 VG3 Z-25 I=R3 J0 TURN=3 F400 M8
G2 Z0.5 I=R3 J0 TURN=3
& t) B- P8 c+ H' L- q/ sR2=R2+0.015
IF R3<38.03 GOTOB KK
% {3 Y  n6 W: q# ?; SG0 Z300
M30

laomei

" X/ c) j5 m+ h% L. k* a, d
) g/ M  h4 D6 ]7 Y$ q& `老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
/ ]& G5 R; R( M! ~N20 G54
# t0 p- s9 P4 C9 P! w3 LN30 T="D50"
N40 M6
! L# U" L& q- h9 [N50 S3000 M3
% a3 l3 ^7 j$ @: y, W# Z/ Y" dN60 G00 X0 Y0 D1
: I( x$ G; b8 ^N70 Z0.5
4 U5 K: ~; v4 \6 r( U, Q: RN80 R1=38
. E+ }1 s( R+ C4 YN90 ZCX
, r3 D: O* P) mN100 R1=38.015
: }3 s0 a, W( l# k6 C' r& oN110 ZCX
- @/ f% n4 k; y! s+ ]: G# uN120 R1=38.03
4 d5 w' L) G  G  ~) U! K9 lN130 ZCX
7 F' _" N2 Q8 M) P& ]9 q9 {& EN140 G0 Z300
8 W. z8 l' \3 k/ CN150 M30
子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会