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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
G54
T="D50"
M6
S1200 M3
G00 X0 Y0 D1
+ m5 I: }! Y9 f3 fZ0.5
$ O: m1 J/ ~1 {  p% M9 o6 f5 C$ P$ pKK:R1=38 R2=0 R3=R1+R2
7 P2 d+ g7 {  cG0 G41 X=-R3
G3 Z-25 I=R3 J0 TURN=3 F400 M8
G2 Z0.5 I=R3 J0 TURN=3
/ O8 ~% ~+ t: d: S0 h; RR2=R2+0.015
IF R3<38.03 GOTOB KK
G0 Z300
+ x2 S  o/ a; y7 e! y* |- ]3 n& zM30

laomei

6 F3 [9 H8 o! U7 [# e' ?
$ J& C: q' S. C老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
& n9 D$ B" K; f, C& c* l( R) ~N20 G54
* ^9 Y* c, M4 f% Q+ n% [: m. nN30 T="D50"
N40 M6
2 R( }- n, z! a+ r! _% UN50 S3000 M3
N60 G00 X0 Y0 D1
; _! r* x: R1 o7 h8 hN70 Z0.5
N80 R1=38
1 B3 s5 o2 q! t, y4 l  LN90 ZCX
N100 R1=38.015
5 j* u4 U8 v& WN110 ZCX
8 R) b2 [7 n. W$ A. |/ y& g6 sN120 R1=38.03
1 `* G$ o+ ^. n6 X1 w& z; l! n% iN130 ZCX
$ O5 U8 \: r! T* i& NN140 G0 Z300
9 z) ?  {& k$ ]. |N150 M30
子程序：G0 G41 X=-R1
# z) O( w1 r4 @& u5 I7 yG3 Z-67 I=R1 J0 TURN=3 F2000
! b  m+ A* h# O3 g) X- nZ2.5 I=R1 J0 TURN=3
' L- X" O% ^4 a- E! ZM17

zhang48926

西门子的不会