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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
+ L: y$ V8 m- A3 v) o, j9 S( tG40 G17 G710 G90
4 f/ F0 i8 d% l) A2 z2 eG54
T="D50"
, S+ v& E- G& b6 j6 c' T  IM6
8 \8 G: t# F2 T1 VS1200 M3
; e0 W5 F0 }  K) N1 m; n" y% k5 ZG00 X0 Y0 D1
. G# N5 ~$ [  p2 X7 `; DZ0.5
# F/ b' J+ j& T, a1 j7 @& SKK:R1=38 R2=0 R3=R1+R2
G0 G41 X=-R3
G3 Z-25 I=R3 J0 TURN=3 F400 M8
3 s, {6 `; W, }) {G2 Z0.5 I=R3 J0 TURN=3
& J/ k9 }; H% D0 Y8 b+ N1 m* Z/ }R2=R2+0.015
IF R3<38.03 GOTOB KK
2 G% I! b2 T  K5 {. I/ p, K% T* BG0 Z300
M30

laomei

% g' C# I# L! \1 Q8 N  l6 N
- D) t8 A; {" s$ c6 S老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
( d  a0 a; A% _; iN20 G54
N30 T="D50"
' ]# u' v0 T! e0 F3 y8 TN40 M6
8 C* q, O/ N7 \( s5 m9 qN50 S3000 M3
; `4 Y, C8 z9 i( |N60 G00 X0 Y0 D1
N70 Z0.5
N80 R1=38
$ ^' _3 }5 J9 b2 W+ A4 gN90 ZCX
N100 R1=38.015
# {& O5 E' Q6 }" u" j+ L+ sN110 ZCX
2 a9 Y' l3 N! @N120 R1=38.03
N130 ZCX
7 M0 \6 m/ c$ n% M) XN140 G0 Z300
$ @3 S4 X$ A9 u7 DN150 M30
3 A4 c: D  `  e& x7 ~! ^' y子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
7 R2 D4 V. a4 q9 |Z2.5 I=R1 J0 TURN=3
, u7 N$ p7 q2 y% {3 q( H+ UM17

zhang48926

西门子的不会