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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
' S* k1 Q  Q6 `: G4 x) d( VG40 G17 G710 G90
$ i! b: Y: [' ^3 K  \! \G54
7 W) L8 T7 t3 p9 BT="D50"
M6
S1200 M3
0 A- h( e3 q3 [# b6 Z5 gG00 X0 Y0 D1
4 W  J3 W. W  D0 \, |Z0.5
- k; }8 J) d9 a+ M/ s* dKK:R1=38 R2=0 R3=R1+R2
5 `, I/ @. w% q; X; hG0 G41 X=-R3
) P+ I+ F( |' XG3 Z-25 I=R3 J0 TURN=3 F400 M8
G2 Z0.5 I=R3 J0 TURN=3
8 H4 ~( Q5 p' G# {4 G0 t! PR2=R2+0.015
IF R3<38.03 GOTOB KK
4 l! ]' r7 c; vG0 Z300
1 |( C& H) @/ F, W7 p6 \M30

laomei

老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
N30 T="D50"
+ w! v3 w7 Q9 G9 A  BN40 M6
N50 S3000 M3
: V9 @7 h& R1 t6 ~- tN60 G00 X0 Y0 D1
4 z# i/ G/ ~  ^7 L! ^2 ?: k' [N70 Z0.5
N80 R1=38
! W. @/ K2 k0 v* g8 }# q6 v1 dN90 ZCX
N100 R1=38.015
, O0 }( ~/ {  H% L6 {) nN110 ZCX
N120 R1=38.03
N130 ZCX
! e7 H& G7 ~! d/ i7 V+ u. |N140 G0 Z300
N150 M30
子程序：G0 G41 X=-R1
# G2 F! [; b- [3 Z' WG3 Z-67 I=R1 J0 TURN=3 F2000
7 c$ o% C/ L) Q$ X3 T) PZ2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会