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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
G40 G17 G710 G90
$ P2 x/ g/ T: o6 l/ r0 P' TG54
+ j" q7 M, E. K5 R2 @# [* ?6 e2 RT="D50"
M6
' @1 N5 q( u9 v; QS1200 M3
5 M: [# ~% Y/ c1 UG00 X0 Y0 D1
( E9 i2 {# g6 [: w7 G- iZ0.5
KK:R1=38 R2=0 R3=R1+R2
3 s, Z# G+ r0 sG0 G41 X=-R3
% ?5 C( Z! J' K$ GG3 Z-25 I=R3 J0 TURN=3 F400 M8
* y4 }5 I$ m4 a1 E0 L8 S- nG2 Z0.5 I=R3 J0 TURN=3
; ^6 ^! o: ?- ~R2=R2+0.015
IF R3<38.03 GOTOB KK
G0 Z300
M30

laomei

8 Y! N$ B# y' {$ X1 S3 a" t
老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
7 y+ E4 k; H5 A. V/ N7 e' \/ eN20 G54
N30 T="D50"
N40 M6
N50 S3000 M3
9 V" g/ l0 G: o& O/ hN60 G00 X0 Y0 D1
" c; h, L0 N  K) E+ u/ B. X2 aN70 Z0.5
. Q6 O' A. w3 jN80 R1=38
N90 ZCX
2 Z8 D* B. b/ P- G! d+ s  kN100 R1=38.015
N110 ZCX
" }8 S6 v; w/ V2 C" w6 k) g$ h  p& TN120 R1=38.03
+ Y5 O2 H& t9 Y, X' |( y1 IN130 ZCX
6 o3 W9 g: v3 L' M( j  B3 ]2 wN140 G0 Z300
N150 M30
子程序：G0 G41 X=-R1
G3 Z-67 I=R1 J0 TURN=3 F2000
8 N5 F7 z7 g4 V5 FZ2.5 I=R1 J0 TURN=3
M17

zhang48926

西门子的不会