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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
/ D% _* ?# W' X, P* U8 F# l; ]G40 G17 G710 G90
2 M' |8 b% ^) h( z" XG54
T="D50"
+ n3 r$ n) K( OM6
% _. z  J) t: F8 {6 ~! kS1200 M3
0 z4 {0 O3 c' n/ `7 h! S% qG00 X0 Y0 D1
Z0.5
KK:R1=38 R2=0 R3=R1+R2
, T" W  S0 z, N$ F; s" aG0 G41 X=-R3
- N3 }( P4 d" r2 s* D$ JG3 Z-25 I=R3 J0 TURN=3 F400 M8
" n2 j" a3 [/ H6 l& T/ \; MG2 Z0.5 I=R3 J0 TURN=3
' H4 v- p7 |0 }9 L) R* C" ]9 ~R2=R2+0.015
( M* y  P6 o" W1 L, YIF R3<38.03 GOTOB KK
G0 Z300
; |  v7 A/ ?  x# dM30

laomei

. ?: B% U( Y  P& d5 C: }0 U2 x
# }: k" X! X  a+ R老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
N30 T="D50"
* u, [/ e2 Q4 f" F' vN40 M6
N50 S3000 M3
, L5 l# b7 P' e+ u8 s/ A9 d+ gN60 G00 X0 Y0 D1
N70 Z0.5
, e+ N& y. j+ wN80 R1=38
N90 ZCX
( S& |, o7 R7 bN100 R1=38.015
# e/ q: h4 {; ?, c% nN110 ZCX
" I9 x; Q7 G" c5 i1 I0 ZN120 R1=38.03
N130 ZCX
. r3 C, F$ u: V. C9 x, H; {! fN140 G0 Z300
N150 M30
7 {+ j# q) \5 K7 H( N! e子程序：G0 G41 X=-R1
" ]6 \9 }3 T) x5 c5 I5 ~1 C" lG3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会