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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
% [8 Q" K4 b6 U* S! q; g+ |4 {5 _! cG40 G17 G710 G90
G54
T="D50"
M6
S1200 M3
) o+ Y- l. X: ?" W! c2 HG00 X0 Y0 D1
3 G/ b& R) z9 b$ |9 q, vZ0.5
KK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
& u7 Z$ B% g! x6 ]# i8 h/ c  ^0 a) dG3 Z-25 I=R3 J0 TURN=3 F400 M8
: A$ I( ^6 E$ h/ FG2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
- Y9 a# }( p7 d& w. \4 p$ VIF R3<38.03 GOTOB KK
G0 Z300
M30

laomei

8 k0 r# r8 w2 Q; o; s
5 m/ q) {  q, t0 ]7 t老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
1 e7 Y( J, U  d0 v; EN20 G54
N30 T="D50"
N40 M6
0 C! I" m; ~, \: QN50 S3000 M3
) E, P% ~& [) s, f. z$ \N60 G00 X0 Y0 D1
1 `: M% w5 o2 q; d, J' Z* @N70 Z0.5
N80 R1=38
N90 ZCX
N100 R1=38.015
N110 ZCX
) }+ G$ y6 t6 [1 f' e% z7 EN120 R1=38.03
+ Z: K( T& `+ }4 h, {7 O# Q' `& EN130 ZCX
7 s* [( N/ }6 G5 VN140 G0 Z300
9 r  b& e8 _2 v. W' O4 z6 VN150 M30
, }$ Q& R! x1 v, z子程序：G0 G41 X=-R1
/ l" R! r! h( }G3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会