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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
2 L+ j' @" S& X! BG40 G17 G710 G90
2 J! e" C& P+ Z2 u" i% uG54
T="D50"
M6
S1200 M3
" F( H; H: ?5 d5 S' a4 v6 j$ |( SG00 X0 Y0 D1
5 G! R/ V* ^' P  {9 P' zZ0.5
- ]+ C9 n  }/ vKK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
G3 Z-25 I=R3 J0 TURN=3 F400 M8
6 @9 A: D+ Y+ B) D1 I- c7 nG2 Z0.5 I=R3 J0 TURN=3
" u& ?1 G5 Z' c6 v% ?R2=R2+0.015
IF R3<38.03 GOTOB KK
( M$ D& t6 I9 OG0 Z300
+ p6 {5 {! n* z, C; ^2 lM30

laomei

7 ?( i4 u2 l0 B7 s- B  P
. d- S8 C, r6 ?8 C老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
4 e- X" y8 V9 E. S1 SN20 G54
N30 T="D50"
N40 M6
; `# e2 I3 s+ XN50 S3000 M3
$ W5 v& t3 D' I' ~; W7 pN60 G00 X0 Y0 D1
N70 Z0.5
$ \, k! [; T8 I- k8 i) [N80 R1=38
N90 ZCX
N100 R1=38.015
: {; a2 v: c0 T/ BN110 ZCX
N120 R1=38.03
N130 ZCX
, S! `; R8 U! R" Z# UN140 G0 Z300
4 U  A2 t/ X, U, U- V  ^6 O& V9 `N150 M30
子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
  A6 }" A% [+ e7 ~% k2 b6 x9 jZ2.5 I=R1 J0 TURN=3
  j) \! n" V5 x  W4 i# rM17

zhang48926

西门子的不会