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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
& ?7 _/ K, i: m) |1 j& e! z. G  IG54
  ^9 k9 [9 O! k$ ?) oT="D50"
M6
3 Z9 W( l0 P( J1 ~, d  g$ X% rS1200 M3
G00 X0 Y0 D1
Z0.5
8 O. T- U" R! c- bKK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
# L0 O* J" F# f( A/ h+ B# a3 dG3 Z-25 I=R3 J0 TURN=3 F400 M8
G2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
IF R3<38.03 GOTOB KK
6 k# e2 E) F; x7 Y1 r5 N, Y. G  DG0 Z300
M30

laomei

! d/ I! U- N" ]! C/ ]+ l- Q
老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
1 M1 O. @( e' ]+ x2 W0 `N20 G54
$ a" M3 \7 Q2 ZN30 T="D50"
9 N  _$ W; E* xN40 M6
2 T2 G4 ^8 ?6 |! P! j7 KN50 S3000 M3
N60 G00 X0 Y0 D1
5 a+ u. ^- {' q1 V/ _N70 Z0.5
N80 R1=38
) G; [3 L8 g( G, C0 g% CN90 ZCX
. D# s. y8 Z" e  x8 z+ SN100 R1=38.015
) S+ \  o2 i( \# QN110 ZCX
N120 R1=38.03
N130 ZCX
+ x9 G/ B8 N; a3 bN140 G0 Z300
/ J9 o& w& S% z/ zN150 M30
3 d2 h" e( k, j子程序：G0 G41 X=-R1
& `6 k# J" V. pG3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
9 W8 |5 l" U0 r" G+ ^+ h% i% M+ ^M17

zhang48926

西门子的不会