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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
: S/ a7 c- ^0 N/ BG54
T="D50"
6 X3 x+ P. I" ?- M) eM6
3 ]  S+ V7 W' C; M* {. {& hS1200 M3
5 B/ d# K1 ^& T' Y5 ?% t% mG00 X0 Y0 D1
& @: s* n/ e0 `; g  W: g3 DZ0.5
KK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
# d1 ^' ?% \* T$ y) O3 s- YG3 Z-25 I=R3 J0 TURN=3 F400 M8
G2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
IF R3<38.03 GOTOB KK
1 O: |3 |7 T% n% S( Q( x9 f: |G0 Z300
M30

laomei

% }( |0 M7 {$ J9 Q8 z% @( o$ ^& i
" t7 _1 L( z! `9 S1 I3 o老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
  M4 ^6 f7 Y  h$ ]$ PN20 G54
N30 T="D50"
! L" V3 _  Y# @4 y- T) @N40 M6
2 v/ U/ f) U* Y& _% y; ZN50 S3000 M3
" k% K- w, z; {: M5 cN60 G00 X0 Y0 D1
N70 Z0.5
N80 R1=38
N90 ZCX
N100 R1=38.015
N110 ZCX
N120 R1=38.03
/ R1 i4 E$ i: y  Z9 h! X& pN130 ZCX
N140 G0 Z300
& b+ j* }1 ^* A  i9 f6 ON150 M30
子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
3 ^8 n9 v8 J2 Q$ p. w2 nZ2.5 I=R1 J0 TURN=3
6 o  ]  \6 O  S' @' v0 k- C, XM17

zhang48926

西门子的不会