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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
% b; m6 p! Q# C  M$ T* E% ?G40 G17 G710 G90
G54
T="D50"
1 c( n2 M2 o8 c8 {# {+ \" yM6
, F% H8 m) @/ K; \) N* _S1200 M3
G00 X0 Y0 D1
Z0.5
- `/ _2 H) Z( K* W$ d- N/ |( l3 o/ gKK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
. ^7 ]( O/ z/ r3 M* |' I5 J+ YG3 Z-25 I=R3 J0 TURN=3 F400 M8
# z8 t  \( p: M4 PG2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
IF R3<38.03 GOTOB KK
! B6 u% K0 s9 S0 D4 }G0 Z300
M30

laomei

老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
4 Q( K# S0 I. d- }! @& I/ l, ?5 nN30 T="D50"
! B9 u& N: k5 A3 N  QN40 M6
N50 S3000 M3
  V) M3 O* l7 {: U  GN60 G00 X0 Y0 D1
7 S9 b! Y% Q- QN70 Z0.5
N80 R1=38
N90 ZCX
2 o4 i$ |0 H* s1 l$ l5 C( ?N100 R1=38.015
/ y9 z0 W& O+ `6 VN110 ZCX
N120 R1=38.03
N130 ZCX
0 }. t; Z4 Q! cN140 G0 Z300
N150 M30
子程序：G0 G41 X=-R1
- U6 L8 x- |3 b: M4 ?G3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会