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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
4 v* D- f( y1 z: GG40 G17 G710 G90
' }' {) B; i- F- ~. [9 N0 H9 CG54
T="D50"
$ f7 y/ v5 `9 SM6
3 Q0 K; p5 [; y- v4 y* }8 uS1200 M3
+ v, {) \6 D3 _G00 X0 Y0 D1
. y  G0 @2 g# }' Y5 }/ sZ0.5
0 E1 a) O9 V! K3 G. GKK:R1=38 R2=0 R3=R1+R2
; H3 j7 S3 _8 Y- |( O+ R, k1 FG0 G41 X=-R3
5 {& `& W6 Y1 O! L1 WG3 Z-25 I=R3 J0 TURN=3 F400 M8
1 c" C" Y6 }2 T3 W& G+ pG2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
0 H' k- m  n' @! P. ^IF R3<38.03 GOTOB KK
0 N$ ]. @* V+ o5 ~# B0 WG0 Z300
M30

laomei

! R; n0 [! `; N; n3 Q
5 \) ~+ |: c. ?老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
: K9 o1 f) M5 b/ h  uN20 G54
) Z# q: p3 G  N) |$ N: G, ~N30 T="D50"
N40 M6
N50 S3000 M3
+ P. u$ ]. d+ ?: HN60 G00 X0 Y0 D1
: d( q1 [) m2 JN70 Z0.5
N80 R1=38
  e; @# e  L* u( i0 X8 IN90 ZCX
# @+ G- V  U1 U6 M) J! ~% E8 {- EN100 R1=38.015
4 m3 T" r4 Q, Y; w. b! R& Y3 O4 GN110 ZCX
N120 R1=38.03
N130 ZCX
8 k; v( N, z" Q; N7 jN140 G0 Z300
N150 M30
- |. E8 d4 a1 i8 B. S% E子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会