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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
2 I5 x) |- K/ x7 BG40 G17 G710 G90
* q/ u) @4 T# h* \G54
8 g5 n1 ?  V% v( f, f$ ]+ MT="D50"
M6
S1200 M3
G00 X0 Y0 D1
3 K& z* u2 t8 C6 r& n3 c' c# C  uZ0.5
KK:R1=38 R2=0 R3=R1+R2
* t6 x, o4 h0 d& P% gG0 G41 X=-R3
G3 Z-25 I=R3 J0 TURN=3 F400 M8
G2 Z0.5 I=R3 J0 TURN=3
3 Y2 Y& d0 a; U! k2 W) FR2=R2+0.015
IF R3<38.03 GOTOB KK
, R$ O) D. h6 y. ~G0 Z300
! M/ T) k# t% ^; u% w$ e9 XM30

laomei

老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
N30 T="D50"
+ l1 Q8 Y% d' ~- p% DN40 M6
N50 S3000 M3
5 w; V3 R1 o4 q5 |N60 G00 X0 Y0 D1
N70 Z0.5
8 b; r! t" B* }N80 R1=38
# r4 u7 q0 M. y" W" _2 SN90 ZCX
N100 R1=38.015
8 B1 O2 p  [* |' m9 f& wN110 ZCX
N120 R1=38.03
2 Z0 c" V5 k" K# T6 JN130 ZCX
N140 G0 Z300
; G3 ]/ F8 Z3 i) N% a' [N150 M30
3 J5 ]+ Y: X# g3 `4 I4 o子程序：G0 G41 X=-R1
% w0 c, w8 e& S# ]  h4 p7 |7 x+ TG3 Z-67 I=R1 J0 TURN=3 F2000
5 z- P, e3 s" V6 ~2 C8 rZ2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会