雷尼绍探针头程序
O8810 (WEB MEAS.)
(TOOL CHOICE)
M19 (SPINDLE ORIENTATION)
G90 G80 G40 G0 (PREPARATORY CODE)
G59 X0. Y0.
G43 H20 Z50. (ACTIVATE OFFSET TO 100MM ABOVE) G65 P9014 Z-8. F1000 (PROTECTED MOVE) G65 P9010 X365. S1. (WEB MEAS.)
G65 P9014 X-30. F3000
G65 P9010 Y255. S1.
G65 P9014 Z100. F3000
(REFERENCE RETURN)
(CANCEL OFFSET)
M99 (PROGRAM END)
O9010 (REN WEB PKT)
G90 G80 G40
M98 P9724
#9=#109
#1=#5041
#2=#5042
#15=#5021
#16=#5022
#118=#0
IF[#24 EQ #0] GOTO3
IF[#25 NE #0] GOTO16
#7=#24
#4=#500
IF[#26 EQ #0] GOTO2
IF[#18 NE #0] GOTO1
#18=5.0*#9
N1 #118=#24/2+#4+#18
N2 G65 P9705 D[#24] Q[#17] Z[#26] F[#9] GOTO6
N3 IF[#25 EQ #0] GOTO16
#7=#25
#4=#502
IF[#26 EQ #0] GOTO5
IF[#18 NE #0] GOTO4
#18=5.0*#9
N4 #118=#25/2+#4+#18
N5 G65 P9704 D[#25] Q[#17] Z[#26] F[#9] N6 IF[#145 NE 0.0] GOTO17
IF[#26 EQ #0] GOTO7
#3=#131-#130-#4*2
#6=#3-#7
GOTO8
N7 #3=#131-#130+#4*2
#6=#7-#3
N8 IF[#22 EQ #0] GOTO9
G65 P9730 M[#13] V[#22] D[#7] H[#11] E[#6] N9 IF[#13 EQ #0] GOTO10
#[2000.0+#13]=#6
N10 IF[#19 EQ #0] GOTO14
IF[#19 NE 0] GOTO11
IF[#24 EQ #0] GOTO12
#2500=#2500+[#132+#504-#1]
GOTO14
N11 IF[#24 EQ #0] GOTO12
#[#105]=[#15-#1]+[#132+#504-#1]-#2500 GOTO14
N12 IF[#19 NE 0] GOTO13
#2600=#2600+[#133+#505-#2]
GOTO14
N13 #[#106]=[#16-#2]+[#133+#505-#2]-#2600 N14 IF[#20 EQ #0] GOTO15
G65 P9732 T#20 C[#6/2]
IF[#26 NE #0] GOTO15
IF[#104 LT [#7/2]] GOTO15
G0 X#1 Y#2
#3000=96 (DIA OFFSET TOO LARGE) N15 IF[#11 EQ #0] GOTO19
IF[ABS[#6] LT ABS[#11]] GOTO19
G0 X#1 Y#2
#3000=90 (OUT OF TOLERANCE)
N16 #3000=91 (FORMAT ERROR)
N17 G0 X#1 Y#2
IF[#145 EQ 2.0] GOTO18
#3000=92 (PROBE OPEN)
N18 #3000=93 (PROBE FAIL)
N19 G0 X#1 Y#2
M99
O9014 (REN PROTECTED POSN)
G90 G80 G40
M98 P9724
M98 P9723
IF[#4111 NE 0] GOTO1
#3000=89 (NO TOOL LENGTH)
N1 IF[#9 NE #0] GOTO3
IF[#102 NE #0] GOTO2
#3000=88 (NO FEED RATE)
N2 #9=#102
N3 #102=#9
N4 G31 X#24 Y#25 Z#26 F#9
M98 P9723
IF[#24 EQ #0] GOTO5
IF[ABS[#5041-#24] GE #103] GOTO7 N5 IF[#25 EQ #0] GOTO6
IF[ABS[#5042-#25] GE #103] GOTO7 N6 IF[#26 EQ #0] GOTO8
IF[ABS[[#5043-#5083]-#26] GE #103] GOTO7 GOTO8
N7 #3000=86 (PATH OBSTRUCTED) N8 M99
O9705 (REN X DIAM)
G90 G80 G40
#1=#5041
#2=#5043-#5083
IF[#26 EQ #0] GOTO1
G31 X[#1-#118] F[5000*#9]
M98 P9723
IF[ABS[#5061-[#1-#118]] GE #103] GOTO3 G31 Z[#26] F[3000*#9]
M98 P9723
IF[ABS[[#5063-#5083]-#26] GE #103] GOTO3 N1 G65 P9721 X[#1-#7/2] Q[#17] F[#9] G0 Z#2
X#1
IF[#145 NE 0.0] GOTO4
#130=#5061
IF[#26 EQ #0] GOTO2
G31 X[#1+#118] F[5000*#9]
M98 P9723
IF[ABS[#5061-[#1+#118]] GE #103] GOTO3 G31 Z#26 F[3000*#9]
M98 P9723
IF[ABS[[#5063-#5083]-#26] GE #103] GOTO3 N2 G65 P9721 X[#1+#7/2] Q[#17] F[#9] G0 Z#2
IF[#145 NE 0.0] GOTO4
#131=#5061
#132=[#131+#130]/2
GOTO4
N3 #145=1.0
N4 G0 Z#2
G0 X#1
M99
O9721(REN X MOVE)
G90 G80 G40
#145=0
#1=#5041
IF[#17 NE #0] GOTO1
#17=10.0*#9
N1 #4=10.0*#9
IF[#1 LE #24] GOTO2
#17=-#17
#4=-10.0*#9
N2 #4=#4*#506
G31 X[#24+#17] F[2500*#9]
M98 P9723
IF[ABS[#5061-[#24+#17]] LT #103] GOTO4 IF[ABS[#5061-#1] LT #103] GOTO3 #3=#5061
G1 X[#3-#4] F[5000*#9]
M98 P9723
#3004=2
G31 X[#24+#17] F[30*#9]
M98 P9723
IF[ABS[#5061-[#24+#17]] LT #103] GOTO4 IF[ABS[#5061-[#3-#4]] LT #103] GOTO3 GOTO5
N3 #145=1.0
GOTO5
N4 #145=2.0
N5 G0 X#1
#3004=0
M99
O9723 (REN PC DELAY)
#3001=0.0
WHILE[#3001 LE 140] DO1
END1
M99
O9724 (REN INCH MET) #109=1.0
#103=.050
IF[#4006 NE 20] GOTO1 #103=.002
#109=0.04
N1 IF[#4006 NE 70] GOTO2 #103=.002
#109=0.04
N2 IF[#506 LE 0] GOTO3 IF[#506 GT 1.] GOTO3 GOTO4
N3 #506=.5
N4 IF[#19 EQ #0] GOTO5 #105=2500+#19
#106=2600+#19
#107=2700+#19
IF[#19 LT 100] GOTO5
#105=6981+[20*[#19-100]] #106=6982+[20*[#19-100]] #107=6983+[20*[#19-100]] N5 M99