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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
) d- P3 R' D+ uG40 G17 G710 G90
4 e$ l- U9 C# B. J4 Q8 B9 ?G54
( w. s3 m4 A1 S( a  PT="D50"
5 v: T& L1 t. h- t6 Y, tM6
S1200 M3
( v; o5 k: V/ bG00 X0 Y0 D1
7 e* \: y' d+ |6 U3 N, V6 s+ ~( oZ0.5
KK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
4 L* k5 t# j, v! g; ]/ j" M3 B, ]G3 Z-25 I=R3 J0 TURN=3 F400 M8
G2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
, K, c6 d* E" eIF R3<38.03 GOTOB KK
G0 Z300
M30

laomei

老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
" k8 S" a) |" v* k& PN30 T="D50"
' q/ x0 [& q% t; g. E( d2 [2 A. O. ~! HN40 M6
N50 S3000 M3
N60 G00 X0 Y0 D1
( _7 b$ x+ q) S6 ON70 Z0.5
  M* r4 K7 T6 Q0 wN80 R1=38
  M0 S, {% j8 [, h# I% VN90 ZCX
2 T$ S$ M2 J; d$ M/ x  ON100 R1=38.015
. G6 @6 s% I/ g+ [4 AN110 ZCX
N120 R1=38.03
N130 ZCX
N140 G0 Z300
' o0 k; n. {+ `% EN150 M30
子程序：G0 G41 X=-R1
: ]1 L1 R: U/ w! u2 wG3 Z-67 I=R1 J0 TURN=3 F2000
/ I" z5 w0 ^! I- O5 BZ2.5 I=R1 J0 TURN=3
7 O9 Z1 U+ y$ C& hM17

zhang48926

西门子的不会