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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
; Y6 _* p9 O' t4 c) q, hG40 G17 G710 G90
G54
0 f+ K" \' W! OT="D50"
4 ]) n+ W2 a9 n& F6 |M6
S1200 M3
G00 X0 Y0 D1
Z0.5
KK:R1=38 R2=0 R3=R1+R2
; P; k6 O& D$ }% ^; }G0 G41 X=-R3
G3 Z-25 I=R3 J0 TURN=3 F400 M8
9 Z, y/ u! Y  \G2 Z0.5 I=R3 J0 TURN=3
+ y  U; b1 l; V' wR2=R2+0.015
IF R3<38.03 GOTOB KK
2 c' j9 a1 N, N, z2 n" MG0 Z300
6 v  M7 T! z- |+ Q+ Y+ gM30

laomei

+ Z( {& r9 B/ X1 q9 N) V老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
N30 T="D50"
: G+ O+ w1 s9 ]- SN40 M6
0 l- ^" I$ |* b$ xN50 S3000 M3
/ L* j" Y) U  _+ @- g- n0 O: E0 sN60 G00 X0 Y0 D1
6 B" W. R( B. w' f- w. u- U! g4 r% gN70 Z0.5
N80 R1=38
$ x" b- q7 ?% b- c5 PN90 ZCX
N100 R1=38.015
; Y4 q# c. G; c7 p! Y, D. M: r1 gN110 ZCX
3 U" T1 u! q. \  X9 h# P8 ]4 v9 BN120 R1=38.03
$ O, n6 u. x. f) {/ t& B. @N130 ZCX
N140 G0 Z300
1 Z3 R* w# j. k6 e) E4 m! wN150 M30
+ Z" n: x+ a# B1 }0 E子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会