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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
" e; q9 N2 x$ @/ o  C" D8 eG40 G17 G710 G90
G54
7 z+ G- e. ~8 xT="D50"
0 x2 T: @$ m* i6 W6 S+ E/ D- _M6
S1200 M3
G00 X0 Y0 D1
- q3 e5 |0 K- L& [: aZ0.5
3 {" v, u: P& |& _1 JKK:R1=38 R2=0 R3=R1+R2
7 ~) R+ B& c9 a# JG0 G41 X=-R3
G3 Z-25 I=R3 J0 TURN=3 F400 M8
* \7 t4 `- |  B7 eG2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
! E; B; i2 K9 k9 K( D; IIF R3<38.03 GOTOB KK
G0 Z300
M30

laomei

$ Q7 h# h( H* s2 p0 \
% G6 d8 }8 Y" V( J" L4 t老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
  T' ]  i0 J( |# cN30 T="D50"
2 ?, B4 h) e6 GN40 M6
N50 S3000 M3
0 i% W" ]: q4 a7 ~8 x2 p; {) r7 n6 b+ ]N60 G00 X0 Y0 D1
- ^$ L7 w* x6 d0 @$ u( ZN70 Z0.5
N80 R1=38
3 j) e. F3 F( N, I) ~N90 ZCX
N100 R1=38.015
; N0 b- V; Z- a9 ?N110 ZCX
N120 R1=38.03
7 Z; N+ H* d5 i8 E2 a/ T2 p; J! YN130 ZCX
N140 G0 Z300
N150 M30
子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
- w2 D( K  R1 xZ2.5 I=R1 J0 TURN=3
& @* m3 T* x. D0 a: \/ `M17

zhang48926

西门子的不会