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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
0 K  u' j6 L4 l' Q6 s" k# }G40 G17 G710 G90
G54
T="D50"
8 l; k4 B1 R7 v1 {$ G/ t& yM6
S1200 M3
G00 X0 Y0 D1
Z0.5
6 h! Y: H- _) T4 bKK:R1=38 R2=0 R3=R1+R2
8 j! F- t9 G% R( u% CG0 G41 X=-R3
. c1 ~! T, W3 _G3 Z-25 I=R3 J0 TURN=3 F400 M8
G2 Z0.5 I=R3 J0 TURN=3
% {/ p/ A# N; I* t0 {R2=R2+0.015
IF R3<38.03 GOTOB KK
2 T% z3 h  D& S5 x, L( i% gG0 Z300
' X6 ~5 _1 Z  P( A/ iM30

laomei

. ?; s; B1 Y$ b* x3 y
$ F+ _5 J/ Z. Y) C: Q* T: k老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
N30 T="D50"
* Y1 N2 J' j. gN40 M6
9 m! ~, M2 [6 y& ~# |9 e. wN50 S3000 M3
N60 G00 X0 Y0 D1
* l! x; C. H; j! SN70 Z0.5
N80 R1=38
N90 ZCX
N100 R1=38.015
N110 ZCX
N120 R1=38.03
: F, {* p, L6 N# C$ ?N130 ZCX
7 t) M! v; N& b/ R2 ^2 V& [/ EN140 G0 Z300
3 ]* v2 G) F3 n- I3 i# [N150 M30
子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会