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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
+ J6 M3 _5 v! {  F; aG40 G17 G710 G90
- W# S3 O7 N1 T" W% n3 uG54
T="D50"
M6
4 `( z8 B9 S0 c  U- J) Y: T+ wS1200 M3
G00 X0 Y0 D1
Z0.5
KK:R1=38 R2=0 R3=R1+R2
, G, n9 f+ [; {2 J2 v( r; B4 XG0 G41 X=-R3
G3 Z-25 I=R3 J0 TURN=3 F400 M8
  x& t+ p& t* F$ }0 p' H6 l; |% JG2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
( L" W0 ?8 f8 E& u- K- P1 VIF R3<38.03 GOTOB KK
G0 Z300
M30

laomei

" q2 x8 g0 W4 C
老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
# C1 \1 Q" m. g6 H1 BN30 T="D50"
N40 M6
N50 S3000 M3
0 s& J* N' ^7 v! r( bN60 G00 X0 Y0 D1
; t8 B0 l" w$ i2 P! A+ b5 Q( gN70 Z0.5
N80 R1=38
# ^! o! B4 a* G- y/ @N90 ZCX
N100 R1=38.015
N110 ZCX
N120 R1=38.03
N130 ZCX
N140 G0 Z300
- \) f/ ]) C; uN150 M30
子程序：G0 G41 X=-R1
! ]2 c: @5 s; WG3 Z-67 I=R1 J0 TURN=3 F2000
* R2 U- u4 S; g, n: v* }2 i( q) ZZ2.5 I=R1 J0 TURN=3
2 Y" P4 \; `8 B& L3 R; y6 YM17

zhang48926

西门子的不会