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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
0 Z$ L2 t9 C& g( p' [- c& MG40 G17 G710 G90
$ w/ r5 z: w3 M/ d5 f9 GG54
8 C  A  T( g4 T5 j$ z2 m) L" F8 NT="D50"
M6
. q9 ?5 @' @1 {S1200 M3
( Z. B, v$ G$ Q' f- C2 i6 _0 _G00 X0 Y0 D1
Z0.5
KK:R1=38 R2=0 R3=R1+R2
& Q2 A9 I# P5 c, p; _G0 G41 X=-R3
G3 Z-25 I=R3 J0 TURN=3 F400 M8
. E9 R- o8 |9 Q; E9 d2 p+ Z. c3 BG2 Z0.5 I=R3 J0 TURN=3
8 {, a* N6 S1 R1 E# \) fR2=R2+0.015
2 d+ b' {0 w( f8 h0 Q* ~* Q: vIF R3<38.03 GOTOB KK
G0 Z300
M30

laomei

: L4 U! B7 C9 |% }( v老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
- l3 w+ c# c7 hN20 G54
+ I/ O; p8 c% @- B2 u5 m0 C( A1 wN30 T="D50"
. Z0 u" G6 b# _$ L7 Q8 ]N40 M6
0 U- m5 ]1 K2 Y; Q9 r. ^N50 S3000 M3
N60 G00 X0 Y0 D1
N70 Z0.5
( B* b9 ]% L# d5 P/ jN80 R1=38
N90 ZCX
N100 R1=38.015
N110 ZCX
3 d) _( N4 n; mN120 R1=38.03
N130 ZCX
9 m( ~4 n8 g9 W2 v% {N140 G0 Z300
  v. N; x! s1 M/ E$ JN150 M30
6 x* A7 k9 x3 r/ r& ?子程序：G0 G41 X=-R1
/ d( h% W7 w& E0 H! X! Q+ xG3 Z-67 I=R1 J0 TURN=3 F2000
  A  ]5 E5 J# ?0 o' ?Z2.5 I=R1 J0 TURN=3
4 `. o5 F: ^( O( Y( G; n; @  yM17

zhang48926

西门子的不会