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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
G54
$ X$ K) N8 _( u0 pT="D50"
1 R' d  J! B6 a# I; R  Z$ {M6
S1200 M3
G00 X0 Y0 D1
0 B( Y0 a2 h# V$ r% c: A) z  YZ0.5
KK:R1=38 R2=0 R3=R1+R2
$ M9 P; G4 w% a) e. yG0 G41 X=-R3
+ q. }: Y! v& [5 x  O/ K! }0 ]G3 Z-25 I=R3 J0 TURN=3 F400 M8
6 u5 ~. M  Q- Z& O$ ]G2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
1 S4 M/ G* n1 A2 i7 ]IF R3<38.03 GOTOB KK
' W0 u* v! k4 b' VG0 Z300
3 \$ X6 ~: G* }; |9 W- k4 nM30

laomei

3 i: u$ d0 ]& S8 S7 l1 k老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
5 Y* C7 m; M2 t4 UN30 T="D50"
N40 M6
9 u( s! j0 V3 \; o: bN50 S3000 M3
1 B2 {  h" E' L6 x0 K6 m: ?N60 G00 X0 Y0 D1
8 v9 X0 |; I  K: _) h! ZN70 Z0.5
* x4 P# G' k6 bN80 R1=38
2 N2 _) m" m, m* ?1 YN90 ZCX
! ^4 d3 ^0 E$ Y0 `( WN100 R1=38.015
+ J  R' x' v- T3 L0 y' rN110 ZCX
2 P+ [% S- Q$ y9 r4 ~N120 R1=38.03
) }) Z7 Z% |: x$ |2 ~N130 ZCX
' ~+ R4 b' n- R& qN140 G0 Z300
1 H2 q. A# u$ L" LN150 M30
子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
$ M$ W6 k/ }+ [+ xZ2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会