雷尼绍探针头程序文件

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