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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
  i5 f7 r2 [' G3 BG54
T="D50"
+ K% V- ~# I( ~( J& yM6
S1200 M3
( p! r7 j) S: MG00 X0 Y0 D1
( U$ a, `% U: m; Y. W, U+ ~5 kZ0.5
KK:R1=38 R2=0 R3=R1+R2
) P5 @8 p: h5 x5 ^; N) TG0 G41 X=-R3
G3 Z-25 I=R3 J0 TURN=3 F400 M8
4 L; x' Z6 s& J- U& XG2 Z0.5 I=R3 J0 TURN=3
R2=R2+0.015
6 R( }. C: p4 l! O) G, u$ C& cIF R3<38.03 GOTOB KK
G0 Z300
* @% ~4 f/ H& h/ t9 o" q/ PM30

laomei

8 I! q0 G9 ?9 X4 H- J
老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
! m5 |- e. ?  ~8 I3 ?7 ~% aN20 G54
1 ^% F, A2 t! U5 w1 j! L9 J! eN30 T="D50"
N40 M6
! s0 |: m1 h( A; mN50 S3000 M3
& y$ g3 S: D4 M$ b/ ~8 M5 `N60 G00 X0 Y0 D1
) ?' m  \: T6 w' h4 s9 w+ ~N70 Z0.5
; M& o2 @! m  m' [! cN80 R1=38
4 w7 r. y, q; P: gN90 ZCX
N100 R1=38.015
/ ?+ m  g5 ?/ q& {: D, x, dN110 ZCX
8 n# m: R- z. S# LN120 R1=38.03
N130 ZCX
% q# G2 d% x# ^7 b! C0 ON140 G0 Z300
N150 M30
+ \9 G" D4 m0 A3 t# e* ~" k1 h3 b子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
; }9 f5 K/ e; T3 mZ2.5 I=R1 J0 TURN=3
7 I5 t4 h+ N8 X: s+ }/ p2 zM17

zhang48926

西门子的不会