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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
G54
T="D50"
* A1 S. y* R/ ~/ }/ g) J7 [M6
% B' R1 X. V; A7 v1 ?S1200 M3
3 k' m3 `  e/ P$ `. \) EG00 X0 Y0 D1
8 b9 s' T7 s3 p3 u: Z. UZ0.5
% @) R6 P- a. ~3 n! NKK:R1=38 R2=0 R3=R1+R2
6 @/ [4 ]. A: o( P& n8 [, ^0 kG0 G41 X=-R3
G3 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
; G+ `+ V# i) n2 qG0 Z300
8 O+ W3 G. A5 D& g$ Q6 s3 sM30

laomei

老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
  U0 _( a* y0 Y. F$ gN20 G54
N30 T="D50"
- Q  U1 m, Z* L% ]6 jN40 M6
9 N6 q0 |- w* b! Y7 W, a4 O5 NN50 S3000 M3
: B) R( a+ l$ }4 @N60 G00 X0 Y0 D1
/ Z6 m: h( G. r3 y8 g4 q+ AN70 Z0.5
N80 R1=38
# d2 {. i8 D, T' d  C* C+ HN90 ZCX
3 @+ h, }% s3 ~; e7 G) ^N100 R1=38.015
N110 ZCX
( e2 K  i. n# L( \2 lN120 R1=38.03
N130 ZCX
N140 G0 Z300
& w8 p8 ^. S. D3 hN150 M30
& f% w( n+ l% R" `7 z子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会