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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
: S/ p5 d4 h" ^& |" n! h8 T2 |, kG40 G17 G710 G90
G54
T="D50"
- [6 }2 y6 X8 N2 E( F& KM6
S1200 M3
G00 X0 Y0 D1
Z0.5
KK:R1=38 R2=0 R3=R1+R2
, e# h3 R# ^+ y9 d2 F1 pG0 G41 X=-R3
: ~  P" |% @! x/ W/ k/ G6 s% t- xG3 Z-25 I=R3 J0 TURN=3 F400 M8
6 `: _/ g* ]4 |+ J# t3 tG2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
IF R3<38.03 GOTOB KK
  H) {9 Q3 ]" W5 v: D% W, L+ ^G0 Z300
% J( ]$ v6 Z7 ^8 d' @7 A0 DM30

laomei

  ]* e( A/ u+ `. j
老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
N30 T="D50"
9 A& D) ?) E/ e- y; T4 u: F* SN40 M6
5 T$ h. K" C, D0 u) t9 hN50 S3000 M3
N60 G00 X0 Y0 D1
0 _6 \) c( p; E$ Z$ r5 w( b) S# g' ]N70 Z0.5
" d7 }& f, a( F9 {% a# vN80 R1=38
N90 ZCX
+ L) U6 \4 V# n/ A% xN100 R1=38.015
N110 ZCX
/ t% W. i  c; B1 t6 hN120 R1=38.03
) o5 S+ o0 P. M6 h) UN130 ZCX
N140 G0 Z300
N150 M30
  T7 L3 G& R/ J1 z0 j8 ^9 V: k8 {. T子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会