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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
1 b( p) }5 e4 R/ q6 p2 S7 YG40 G17 G710 G90
% X4 Z% w7 \1 G" bG54
4 I5 U7 U! N6 @' BT="D50"
+ w3 ]* e- x; f& t6 \' c1 YM6
S1200 M3
: _$ Y+ m$ D, b5 |! L3 yG00 X0 Y0 D1
Z0.5
KK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
3 N1 C- z/ v5 @* bG3 Z-25 I=R3 J0 TURN=3 F400 M8
G2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
1 u/ m6 `& W. c% P; D0 G* TIF R3<38.03 GOTOB KK
) D# G, j3 A# `9 ?G0 Z300
- x/ `% [9 S& }# p% C/ Z# g8 K/ WM30

laomei

" |- j" X( D( P- D( H老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
N30 T="D50"
N40 M6
N50 S3000 M3
2 d7 \6 ?% ^  ^2 q7 z1 P+ Y$ E9 ^N60 G00 X0 Y0 D1
# {' g7 C+ _# E- G$ wN70 Z0.5
$ e5 n. ]+ |/ UN80 R1=38
8 H3 r2 b4 f5 h7 l" |9 @: }N90 ZCX
1 E/ W) s/ n  z6 f$ t/ KN100 R1=38.015
$ J5 _$ u/ [6 W9 KN110 ZCX
N120 R1=38.03
9 n3 i6 l% w# S# I2 e4 f  GN130 ZCX
N140 G0 Z300
N150 M30
子程序：G0 G41 X=-R1
/ A: U% s) R. |" h1 d3 gG3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
9 T4 H8 o/ z7 `7 |4 G  @# J" T0 [M17

zhang48926

西门子的不会