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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
( E( v) X8 K( {) [G40 G17 G710 G90
* }% B  b, u* `2 x: h6 vG54
' i3 m5 e& R! O8 l/ c' TT="D50"
' h! G. T6 q+ D6 O2 yM6
S1200 M3
$ t) l6 ~( i  b$ hG00 X0 Y0 D1
8 ~/ Z8 P0 B5 pZ0.5
5 ^$ u: p$ S3 ~- ^# I$ fKK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
1 X! X0 Y/ ^) T$ s0 p, s/ c( a! ?G3 Z-25 I=R3 J0 TURN=3 F400 M8
; ]; I5 D* J7 i# bG2 Z0.5 I=R3 J0 TURN=3
! F+ a: y4 c) XR2=R2+0.015
1 W& g( G( t. h4 e# `IF R3<38.03 GOTOB KK
' b3 @  _2 K! wG0 Z300
M30

laomei

6 v5 U1 L/ J) E! ^# J" v% i老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
/ L+ b4 {) K( b0 R  [N20 G54
  ^  J/ }$ j/ k; J1 A8 WN30 T="D50"
: I: o0 o& K  n) }, pN40 M6
N50 S3000 M3
) o" R% c; `' u* P/ \6 \  \N60 G00 X0 Y0 D1
* |: @2 T& a9 r, l. ?N70 Z0.5
* @- c3 I- F" h) @9 zN80 R1=38
N90 ZCX
N100 R1=38.015
N110 ZCX
N120 R1=38.03
N130 ZCX
N140 G0 Z300
N150 M30
% M# }2 g! p/ B! [( g- q7 I子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
! u' j8 D4 s9 s$ s7 {! oM17

zhang48926

西门子的不会