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

laomei

老师好。最近一批活，在德玛吉机床上用直径50的磨头磨一直径76的孔，磨头螺旋进螺旋出，编了一个西门子宏，本来是三刀就程序结束，现在这个程序上机却是无限循环了，而且X尺寸38一直都毫无变化，能帮我看看这个程序是什么毛病吗？谢谢！
/ X' E: l, S3 P" v5 l, x  G7 e  uG40 G17 G710 G90
; X# Y: A. |6 U" n! r" s& CG54
T="D50"
. ?" g9 s; L- d: T" Y  OM6
S1200 M3
G00 X0 Y0 D1
6 i! {1 X; g$ i5 S$ x- A5 lZ0.5
7 K, {6 f8 B" J, q# QKK:R1=38 R2=0 R3=R1+R2
0 N4 l1 `/ l" N0 t% A7 f. j% XG0 G41 X=-R3
G3 Z-25 I=R3 J0 TURN=3 F400 M8
/ @2 h6 M3 g# T- R- VG2 Z0.5 I=R3 J0 TURN=3
$ y% n: }1 }$ {6 M; v/ x9 G4 W9 T4 vR2=R2+0.015
, j! ^9 G9 @' Q6 n; E. P+ k  L/ CIF R3<38.03 GOTOB KK
" R7 D" F* j6 N( J: IG0 Z300
0 m( W4 B# R% \! _$ m& Y4 hM30

laomei

/ `1 g8 m2 e! C" W" u老师提供的程序还是无限循环，X还是毫无变化，但还是要谢谢老师的指点。我现在写的程序虽然不精简，但能用，程序如下：N10 G40 G17 G710 G90
N20 G54
+ ]% ?! P/ d5 m( G& z, f# U. aN30 T="D50"
4 o4 I7 l8 G9 S9 UN40 M6
N50 S3000 M3
N60 G00 X0 Y0 D1
N70 Z0.5
) D9 A# U4 w. H0 B7 [$ V$ F8 R) xN80 R1=38
N90 ZCX
. C% c$ C) _  P3 V9 {4 ]  N/ \N100 R1=38.015
N110 ZCX
) R# C0 s6 m5 h* H$ b% zN120 R1=38.03
" n& K% b! ~! d1 j4 ?0 zN130 ZCX
N140 G0 Z300
+ e( e3 ^2 {2 \2 [# Q, `N150 M30
3 Q8 s1 ^" e1 `- Y0 B7 {子程序：G0 G41 X=-R1
& T& y! k( R0 w) b, K/ [G3 Z-67 I=R1 J0 TURN=3 F2000
Z2.5 I=R1 J0 TURN=3
7 h$ v# U3 I, ~. l) aM17

zhang48926

西门子的不会