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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
( `7 W  Q% x. r* T7 qG40 G17 G710 G90
G54
T="D50"
M6
S1200 M3
) U$ r. d8 t- [, GG00 X0 Y0 D1
Z0.5
KK:R1=38 R2=0 R3=R1+R2
: X' y! F0 l. j9 w7 n$ a$ ]3 X+ nG0 G41 X=-R3
- z, i* }  d% VG3 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
G0 Z300
7 w) y$ r4 `/ C& ?$ NM30

laomei

老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
9 [  a6 H6 x, X+ _1 qN30 T="D50"
/ L3 t' s$ `% K* n' |5 tN40 M6
1 h' E0 J' a5 u# p6 H4 iN50 S3000 M3
& B" E) |' g. ~% v+ t( W# IN60 G00 X0 Y0 D1
8 H$ f3 L! K( `% U% Z, B$ c; wN70 Z0.5
3 U/ s4 c4 N4 u8 fN80 R1=38
/ x+ V# \* H* xN90 ZCX
N100 R1=38.015
N110 ZCX
N120 R1=38.03
* U& R" f" ?2 N0 DN130 ZCX
N140 G0 Z300
N150 M30
! e% }& Y2 q  }' `  F. p9 }- I子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
, R% F; F7 i4 `% @2 X& H8 P: Y9 S0 ?Z2.5 I=R1 J0 TURN=3
" @3 B1 f$ V3 m1 d0 o, d, wM17

zhang48926

西门子的不会