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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
7 [8 i7 T( u- N/ F: y% @, LG54
T="D50"
# B' }. n, y; }! W- ]/ \$ |M6
S1200 M3
G00 X0 Y0 D1
Z0.5
& ?8 e+ I8 P$ T3 o6 zKK:R1=38 R2=0 R3=R1+R2
. ~( g* @2 I- f# q4 k  r0 y$ sG0 G41 X=-R3
, o) Z. O/ T& {* ^/ o- Q. a6 h; \9 \G3 Z-25 I=R3 J0 TURN=3 F400 M8
' N* d, M3 \: M4 C$ e9 |G2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
IF R3<38.03 GOTOB KK
G0 Z300
M30

laomei

  J! W5 y% ^; z% ~
老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
6 Z! \5 E) V- AN20 G54
' n  B$ ^. n9 N- E$ UN30 T="D50"
- m0 L+ k; C7 i. _, ]N40 M6
N50 S3000 M3
0 u* b6 D- c# R, H! VN60 G00 X0 Y0 D1
, x0 c, Y3 @" d" D1 d) q7 a2 p- ?N70 Z0.5
8 [( _# i7 ^" C6 ]N80 R1=38
N90 ZCX
N100 R1=38.015
N110 ZCX
2 J, \& b1 w9 M: M3 R. I- WN120 R1=38.03
N130 ZCX
: {6 x1 p* d0 W! C4 c6 AN140 G0 Z300
7 w( i; W7 m' ^7 T8 cN150 M30
子程序：G0 G41 X=-R1
. `0 y# e, S" T2 b; |5 K+ s3 ZG3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
: \& F! p; h6 _. c+ OM17

zhang48926

西门子的不会