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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
. L! Z: P/ t1 V" J! u5 w# p- g  zG40 G17 G710 G90
8 J& s; v4 S+ A2 H6 i. XG54
T="D50"
M6
8 P1 e- {# n% R2 q( ]S1200 M3
G00 X0 Y0 D1
0 a! W. P! X9 K$ X9 [Z0.5
  Y- D. w- ]% j' Y' g, ^$ e: JKK:R1=38 R2=0 R3=R1+R2
1 }' G1 u. l# ~- p+ j" jG0 G41 X=-R3
& T! A+ n7 x! f( E) S) I4 q3 u. XG3 Z-25 I=R3 J0 TURN=3 F400 M8
8 B- c! _5 B. Q4 Y; R0 fG2 Z0.5 I=R3 J0 TURN=3
; w: w+ J* i9 g  g6 d9 kR2=R2+0.015
. X+ e+ T5 Z& j. l: D9 q% ZIF R3<38.03 GOTOB KK
* J3 `  q. d* Q5 Z0 w5 DG0 Z300
1 b5 P7 h2 j: ?' h( L$ X' h9 `5 KM30

laomei

# S9 T- n) s- x1 R6 l老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
N30 T="D50"
N40 M6
N50 S3000 M3
- o- v- W  {  e$ }N60 G00 X0 Y0 D1
1 U" ~6 M" J' E& @! ZN70 Z0.5
9 G; }8 R8 @7 y0 P! fN80 R1=38
N90 ZCX
  x7 r, d  g. ]' q8 \N100 R1=38.015
  o! z# v( X: ]2 _+ yN110 ZCX
N120 R1=38.03
N130 ZCX
N140 G0 Z300
2 n. J  C8 n9 E4 QN150 M30
' n, J1 j/ L- ~( |5 c+ Q. P; j子程序：G0 G41 X=-R1
; C% s- r' }. h( E$ C* VG3 Z-67 I=R1 J0 TURN=3 F2000
4 l7 h* ?! b2 @$ RZ2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会