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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
3 b2 c& W1 B2 S7 Q; w, L/ E3 O% xG54
T="D50"
$ t4 n! k9 v, ]: eM6
/ q3 [6 d; Q( [5 F/ d0 }- J, x5 CS1200 M3
G00 X0 Y0 D1
Z0.5
KK:R1=38 R2=0 R3=R1+R2
* b3 s. a  y8 k0 R/ B3 E0 i5 \/ ^G0 G41 X=-R3
) J+ L1 D/ `4 MG3 Z-25 I=R3 J0 TURN=3 F400 M8
G2 Z0.5 I=R3 J0 TURN=3
2 r8 \; q% a3 Q- n- N8 OR2=R2+0.015
3 p  ^. f0 k! N( aIF R3<38.03 GOTOB KK
/ ~! W/ h( Y) L6 i0 }+ `G0 Z300
, l# W1 i+ S/ D- U7 YM30

laomei

老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
0 _" S6 M1 X5 K1 v5 N4 [1 BN20 G54
N30 T="D50"
# C/ l6 C0 G8 H5 kN40 M6
N50 S3000 M3
/ ?; ?. b6 r) r9 P% _6 t% E, XN60 G00 X0 Y0 D1
N70 Z0.5
. X  A4 t: ?: o% P, n- v" w; @N80 R1=38
N90 ZCX
N100 R1=38.015
N110 ZCX
* z' l3 z. @, s) x# ?0 b* tN120 R1=38.03
  z8 B. o% H+ ]' w% n* g% a5 PN130 ZCX
  j( c! w0 a2 O9 g8 r$ iN140 G0 Z300
& S5 L6 [7 D2 P6 G0 c1 S9 vN150 M30
0 b( G; `7 [  d, r6 c. A+ w子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会