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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
0 t) u* h$ g- I7 rG40 G17 G710 G90
4 h0 t8 t3 G, f& B; U, _G54
T="D50"
- y" g: m9 C, \5 J- U' X! eM6
$ \; W& p$ u" JS1200 M3
! h8 @3 G+ ]" }2 b% aG00 X0 Y0 D1
Z0.5
3 N- P' `2 z7 z" N' n) nKK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
/ ~. C2 A' T' f) n4 L" @. kG3 Z-25 I=R3 J0 TURN=3 F400 M8
1 v- e% n. M1 e5 cG2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
IF R3<38.03 GOTOB KK
G0 Z300
" _# l  I% S. ^M30

laomei

$ b4 P0 r$ A& s$ J2 J! y
老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
6 M! \; G" \2 TN20 G54
N30 T="D50"
# n, e6 E9 l( K6 bN40 M6
N50 S3000 M3
! G* `/ V9 y. w$ h( F( P$ `7 s& BN60 G00 X0 Y0 D1
N70 Z0.5
- ?. [' e6 L' d: J' Y$ q; z4 q/ ~* NN80 R1=38
" p/ S# D9 Z# W3 xN90 ZCX
N100 R1=38.015
N110 ZCX
N120 R1=38.03
: A( o8 g3 T% JN130 ZCX
N140 G0 Z300
N150 M30
* _# i5 q* Y+ e9 H( \  c4 J' V子程序：G0 G41 X=-R1
8 {) ?& j( I+ i6 \3 c" f% p# U( a/ ZG3 Z-67 I=R1 J0 TURN=3 F2000
: _2 O" h+ L: o1 b1 E: l- zZ2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会