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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
, V2 ]& u3 E2 EG40 G17 G710 G90
G54
( A, J$ g2 u. N$ O) L/ W: x/ xT="D50"
$ p% m: o' h5 r, KM6
% w6 x0 [, v: R  [& a' IS1200 M3
G00 X0 Y0 D1
Z0.5
KK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
G3 Z-25 I=R3 J0 TURN=3 F400 M8
4 l+ ~8 p; R$ j' l; {4 N, I4 eG2 Z0.5 I=R3 J0 TURN=3
9 ~; g0 L4 V8 e" ~( N( HR2=R2+0.015
, i7 X$ ?5 d5 p+ p/ q; HIF R3<38.03 GOTOB KK
G0 Z300
M30

laomei

老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
+ ?$ `# u% a6 s, A2 nN30 T="D50"
% o0 e# v& m: J) sN40 M6
N50 S3000 M3
N60 G00 X0 Y0 D1
, H" c% }+ a* o8 H% J+ eN70 Z0.5
( _4 T/ K+ M" C! IN80 R1=38
; Y: r9 L5 F9 k2 h( t) vN90 ZCX
: b1 I( o' I/ \; ^7 y& mN100 R1=38.015
6 P2 L, T2 g. [- f  B( U' {N110 ZCX
N120 R1=38.03
, i* d( h" q/ V$ Q3 N# ^N130 ZCX
N140 G0 Z300
N150 M30
6 _  b1 E) `  N, _# K子程序：G0 G41 X=-R1
+ G  w! r6 b- B5 _% iG3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
$ r# n3 f' D5 z$ W( K8 {M17

zhang48926

西门子的不会