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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
G54
T="D50"
; C: L0 l- B# G/ JM6
S1200 M3
* \  j1 U/ E- O# l  yG00 X0 Y0 D1
, ~. w& M2 c# ~5 ?, q  ]1 \% nZ0.5
# z; R( |" J7 N* b5 wKK:R1=38 R2=0 R3=R1+R2
) V) G' l; R; Q% E7 A4 o& qG0 G41 X=-R3
G3 Z-25 I=R3 J0 TURN=3 F400 M8
. v. {; j4 v7 q$ nG2 Z0.5 I=R3 J0 TURN=3
: w9 p7 u# R9 N6 KR2=R2+0.015
IF R3<38.03 GOTOB KK
1 f2 r5 L0 g- T: ~G0 Z300
M30

laomei

7 `5 p% m; O2 r) [: r8 L. O
老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
. \) C7 M: |+ I: F% AN20 G54
, g; W: f/ l5 i" ~N30 T="D50"
2 U: ^# p% {! zN40 M6
$ V" |$ Y% b7 r8 SN50 S3000 M3
! ]. ]: t, u! y) N6 [: [% YN60 G00 X0 Y0 D1
N70 Z0.5
& A/ E' W0 N  R. n$ o" fN80 R1=38
N90 ZCX
  T7 A0 b  }; N5 v4 n. u, MN100 R1=38.015
% i7 g+ ~! A# P" ^( SN110 ZCX
/ T. P/ \) p( qN120 R1=38.03
N130 ZCX
) Q! N: C  D1 v' Z/ o9 Q: R8 GN140 G0 Z300
N150 M30
子程序：G0 G41 X=-R1
' L2 D8 Y2 C; C3 G. j+ lG3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会