RENISHAW MACRO PROGRAMS - O09023 (REN EASYSET)
Категория: Информация

RENISHAW MACRO PROGRAMS - O09023 (REN EASYSET)


O09023 (REN EASYSET) 
(40120737.0C VQC ADDED) 
(HAAS VQC PROBE, English, Inch/MM, V1.8) 
(07-11-2005) 
G103 P1 
#161= 556 (START CALIBRATION VARIABLE) 
IF [ #1 EQ #0 ] GOTO17 
#27= 10 (DEFAULT Q IN MM) 
(#28=1DEFAULT WORK OFFSET) 
#29= #[ #161 + 4 ] (PROBE OFFSET #560) 
#30= 10 (STAND OFF) 
#179= 0.04 
IF [ #4006 EQ 20 ] GOTO1 
IF [ #4006 EQ 70 ] GOTO1 
#179= 1 
N1 
IF [ #1 EQ 12 ] GOTO40 
IF [ #1 EQ 13 ] GOTO50 
IF [ #1 EQ 19 ] GOTO60 
IF [ #1 EQ 20 ] GOTO70 
IF [ #1 EQ 21 ] GOTO80 
IF [ #1 EQ 22 ] GOTO85 
IF [ #1 EQ 23 ] GOTO90 
IF [ #1 EQ 24 ] GOTO95 
IF [ #1 EQ 25 ] GOTO81 
T#29 M06 
G43 H#29 
#30= #30 * #179 
(IF[#19NE#0]GOTO2) 
(#19=#28) 
N2 
G65 P9832 
G103 P1 
IF [ #19 LT 0 ] GOTO17 
IF [ #19 GT 155 ] GOTO17 
IF [ #19 GE 110 ] GOTO3 

IF [ #19 LT 54 ] GOTO200 
IF [ #19 GT 59 ] GOTO17 
#19= #19 - 53 
N200 
IF [ #19 LE 6 ] GOTO3 
GOTO17 
N3 
IF [ #17 NE #0 ] GOTO4 
#17= #27 * #179 (* XY Q VAL) 
IF [ #1 NE 9 ] GOTO4 
#17= 4 * #179 (* Z Q VAL) 
N4 
IF [ #1 EQ 10 ] GOTO20 
IF [ #1 EQ 11 ] GOTO30 
IF [ #[ #161 ] EQ 0 ] GOTO91 (CHECK CAL) 
IF [ #[ #161 ] EQ #0 ] GOTO91 
IF [ #1 EQ 1 ] GOTO5 
IF [ #1 EQ 2 ] GOTO6 
IF [ #1 EQ 3 ] GOTO7 
IF [ #1 EQ 4 ] GOTO9 
IF [ #1 LE 6 ] GOTO11 
IF [ #1 LE 8 ] GOTO13 
IF [ #1 EQ 9 ] GOTO16 
IF [ #1 EQ 14 ] GOTO130 
IF [ #1 EQ 15 ] GOTO140 
IF [ #1 EQ 16 ] GOTO150 
IF [ #1 EQ 17 ] GOTO160 
IF [ #1 EQ 18 ] GOTO170 
GOTO17 
N5 (BORE) 
G65 P9814 D#7 R#18 T#20 W#23 Q#17 
G103 P1 
#190= #190 + #5041 
#191= #191 + #5042 
M78 G31 X [ #190 ] Y [ #191 ] F [ 1000 * #179 ] 
GOTO15 
N6 (BOSS) 
#26= #5043 - #5083 + #26 
G65 P9814 D#7 Z#26 R#18 T#20 W#23 Q#17 
G103 P1 
#190= #190 + #5041 
#191= #191 + #5042 
M78 G31 X [ #190 ] Y [ #191 ] F [ 1000 * #179 ] 
GOTO15 
N7 (X POCKET) 
IF [ #24 EQ #0 ] GOTO8 
G65 P9812 X#24 R#18 T#20 W#23 Q#17 
G103 P1 
#190= #190 + #5041 
M78 G31 X [ #190 ] F [ 1000 * #179 ] 
GOTO15 
N8 (Y POCKET) 
G65 P9812 Y#25 R#18 T#20 W#23 Q#17 
G103 P1 
#191= #191 + #5042 
M78 G31 Y [ #191 ] F [ 1000 * #179 ] 
GOTO15 
N9 (X WEB) 
#26= #5043 - #5083 + #26 
IF [ #24 EQ #0 ] GOTO10 
G65 P9812 X#24 Z#26 R#18 T#20 W#23 Q#17 
G103 P1 
#190= #190 + #5041 
M78 G31 X [ #190 ] F [ 1000 * #179 ] 
GOTO15 
N10 (Y WEB) 
G65 P9812 Y#25 Z#26 R#18 T#20 W#23 Q#17 
G103 P1 
#191= #191 + #5042 
M78 G31 Y [ #191 ] F [ 1000 * #179 ] 
GOTO15 
N11 (SET SURF X) 
#14= #5041 + #30 
IF [ #1 EQ 5 ] GOTO12 
#14= #5041 - #30 
N12 
G65 P9811 X#14 Q#17 
G103 P1 
#190= #190 + #14 - #24 
GOTO15 
N13 (SET SURF Y) 
#15= #5042 + #30 
IF [ #1 EQ 7 ] GOTO14 
#15= #5042 - #30 
N14 
G65 P9811 Y#15 Q#17 
G103 P1 
#191= #191 + #15 - #25 
N15 
G65 P9732 S#19 W1. 
GOTO18 
N16 (SET SURF Z) 
#16= #5043 - #5083 - #30 
G65 P9811 Z#16 Q#17 
G103 P1 
#192= #192 + #16 - #26 
G65 P9732 S#19 W1. Z1. 
GOTO18 

N20 (BORE CALIBRATION) 
IF [ #6557 AND 2097152 EQ 2097152 ] GOTO22 
#3000= 80 (SET PARAM 57 M19 SPND ORT TO 1) 
(THIS IS AN OPTION FROM HAAS FOR VQCPS) 
(CALL HAAS TO TURN ON) 
N22 
#[ #161 ]= 0 
#[ #161 + 1 ]= 0 
#[ #161 + 2 ]= 0 
#[ #161 + 3 ]= 0 
G65 P9814 D#7 Q#17 
G65 P9834 
G103 P1 
M19 P180 
G04 P500 
G65 P9814 D#7 
G103 P1 
#180= [ #180 + #185 ] / 2 
#181= [ #181 + #186 ] / 2 
G31 X#180 Y#181 F [ 250. * #179 ] 
M19 
G04 P500 
G65 P9802 D#7 
G65 P9803 D#7 
GOTO18 

N30 (Z CAL) 
#16= #5043 - #5083 - #30 
G65 P9811 Z#16 Q#17 
G103 P1 
#3= #176 - #5083 - #26 
#[ 2000 + #29 ]= #[ 2000 + #29 ] + #3 
GOTO18 

N40 (TOOL SETTING AUTO LENGTH ONLY) 
IF [ #[ #161 + 26 ] EQ 0 ] GOTO90 
IF [ #[ #161 + 26 ] EQ #0 ] GOTO90 
G28 G91 Z0 
G49 
G90 
T#20 M06 
G28 G91 Z0 
G90 
#174= 0 
M98 P9799 
#27= #5021 - #5041 
#30= #5022 - #5042 
#31= #5023 - #5043 
#3004= 0 
G00 X [ #167 - #27 + #4 ] Y [ #168 - #30 + #5 ] 
M79 G31 Z [ - [ [ [ #6534 / #6533 - 1. ] * 25.4 ] * #179 ] - #31 ] F [ 2000. * #179 ] (ADUST Z FOR SHORTEST TOOL) 
G01 Z [ #5063 + [ 2. * #179 ] ] (ADJUST 2MM BACK OFF) 
G65 P9851 T#20 
G91 G28 Z0 
G90 
GOTO19 

N50 (LENGTH AND DIAMETER) 
IF [ #[ #161 + 26 ] EQ 0 ] GOTO90 
IF [ #[ #161 + 26 ] EQ #0 ] GOTO90 
#156= 1 (2=RADOFF,1=DIAOFF) 
IF [ #6040 EQ 1 ] GOTO51 (RAD DIA) 
#156= 2 
N51 (OFFSET LOAD) 
#[ 2000 + #20 ]= #11 
#[ 2200 + #20 ]= 0 
#[ 2400 + #20 ]= #7 / #156 
#[ 2600 + #20 ]= 0 
G65 P9853 B3. T#20 D#20 
GOTO19 

N60 (TOOL SETTING AUTO MULTI TOOL) 
IF [ #[ #161 + 26 ] EQ 0 ] GOTO90 
IF [ #[ #161 + 26 ] EQ #0 ] GOTO90 
G28 G91 Z0 
G49 
G90 
#3= #20 
N61 
T#3 M06 
G28 G91 Z0 
G90 
#174= 0 
M98 P9799 
#27= #5021 - #5041 
#30= #5022 - #5042 
#31= #5023 - #5043 
#3004= 0 
G00 X [ #167 - #27 + #4 ] Y [ #168 - #30 + #5 ] 
M79 G31 Z [ - [ [ [ #6534 / #6533 - 1. ] * 25.4 ] * #179 ] - #31 ] F [ 2000. * #179 ] (ADUST Z FOR SHORTEST TOOL) 
G01 Z [ #5063 + [ 2. * #179 ] ] (ADJUST 2MM BACK OFF) 
G65 P9851 T#3 
G103 P1 
G91 G28 Z0 
G90 
#3= #3 + 1 
IF [ #3 LE #2 ] GOTO61 
GOTO19 

N70 (TS27R CALIBRATION) 
#[ #161 + 31 ]= 75. * #179 
#[ #161 + 32 ]= 10. * #179 
#[ #161 + 33 ]= 12.7 * #179 
#[ #161 + 34 ]= 150. * #179 
#[ #161 + 35 ]= 13. 
#[ #161 + 37 ]= 0 
#5= 12.7 * #179 
IF [ #179 EQ 1 ] GOTO72 
#[ #161 + 37 ]= 1 
N72 
G65 P9851 K#6 
G103 P1 
#[ #161 + 36 ]= 1. 
G65 P9852 S#19 K#5 
G103 P1 
#[ #161 + 36 ]= #7 
G65 P9852 S#19 K#5 
GOTO19 

N80 (MANUAL LENGTH PROBE ONLY) 
#[ #161 + 4 ]= #20 
G65 P9851 T#20 
GOTO19 

N81 (MANUAL LENGTH ONLY) 
G65 P9851 T#20 
GOTO19 

N85 (TOOL SETTING RANDOM AUTO MULTI TOOL) 
IF [ #[ #161 + 26 ] EQ 0 ] GOTO90 
IF [ #[ #161 + 26 ] EQ #0 ] GOTO90 
G28 G91 Z0 
G49 
G90 
#20= #4 
IF [ #20 EQ #0 ] GOTO87 
IF [ #20 EQ 0 ] GOTO87 
N86 
T#20 M06 
G28 G91 Z0 
G90 
#174= 0 
M98 P9799 
#27= #5021 - #5041 
#30= #5022 - #5042 
#31= #5023 - #5043 
#3004= 0 
G00 X [ #167 - #27 ] Y [ #168 - #30 ] 
M79 G31 Z [ - [ [ [ #6534 / #6533 - 1. ] * 25.4 ] * #179 ] - #31 ] F [ 2000. * #179 ] (ADUST Z FOR SHORTEST TOOL) 
G01 Z [ #5063 + [ 2. * #179 ] ] (ADJUST 2MM BACK OFF) 
G65 P9851 T#20 
G103 P1 
G91 G28 Z0 
G90 
#3= #3 + 1 
#20= #[ 4 + #3 ] 
IF [ #20 EQ #0 ] GOTO87 
IF [ #20 NE 0 ] GOTO86 
N87 
GOTO19 

N90 (LENGTH ROTATING) 
IF [ #[ #161 + 26 ] EQ 0 ] GOTO90 
IF [ #[ #161 + 26 ] EQ #0 ] GOTO90 
(OFFSET LOAD) 
#[ 2000 + #20 ]= #11 
#[ 2200 + #20 ]= 0 
G65 P9853 B1. T#20 S#7 
GOTO19 

N95 (TOOL BREAKAGE) 
IF [ #[ #161 + 26 ] EQ 0 ] GOTO90 
IF [ #[ #161 + 26 ] EQ #0 ] GOTO90 
G65 P9853 B1. T#20 H#11 
GOTO19 

N130 (SET INTERNAL CORNER) 
IF [ #2 GT 1 ] GOTO131 
#14= #5041 - #30 (1) 
#15= #5042 - #30 
GOTO135 
N131 
IF [ #2 GT 2 ] GOTO132 
#14= #5041 - #30 (2) 
#15= #5042 + #30 
GOTO135 
N132 
IF [ #2 GT 3 ] GOTO133 
#14= #5041 + #30 (3) 
#15= #5042 + #30 
GOTO135 
N133 
#14= #5041 + #30 (4) 
#15= #5042 - #30 
N135 
G65 P9815 X#14 Y#15 I#4 J#5 Q#17 
G103 P1 
#190= #190 + #14 
#191= #191 + #15 
G65 P9732 S#19 W1. 
GOTO18 


N140 (SET EXTERNAL CORNER) 
IF [ #2 GT 1 ] GOTO141 
#14= #5041 + #30 (1) 
#15= #5042 + #30 
GOTO145 
N141 
IF [ #2 GT 2 ] GOTO142 
#14= #5041 + #30 (2) 
#15= #5042 - #30 
GOTO145 
N142 
IF [ #2 GT 3 ] GOTO143 
#14= #5041 - #30 (3) 
#15= #5042 - #30 
GOTO145 
N143 
#14= #5041 - #30 (4) 
#15= #5042 + #30 
N145 
G65 P9816 X#14 Y#15 I#4 J#5 Q#17 
G103 P1 
#190= #190 + #14 
#191= #191 + #15 
G65 P9732 S#19 W1. 
GOTO18 

N150 (CENTER BLOCK) 
(SET SURF Z) 
#16= #5043 - #5083 - #30 
G65 P9811 Z#16 Q#17 
G103 P1 
#192= #192 + #16 
G65 P9732 S#19 W1. Z1. 
(X WEB) 
#18= 10 * #179 (EXTRA CLEARANCE) 
#26= #5043 - #5083 + #26 
G65 P9812 X#24 Z#26 R#18 T#20 W#23 Q#17 
G103 P1 
#190= #190 + #5041 
M78 G31 X [ #190 ] F [ 1000 * #179 ] 
G65 P9732 S#19 W1. 
(Y WEB) 
G65 P9812 Y#25 Z#26 R#18 T#20 W#23 Q#17 
G103 P1 
#191= #191 + #5042 
M78 G31 Y [ #191 ] F [ 1000 * #179 ] 
G65 P9732 S#19 W1. 
GOTO18 


N160 (VISE CORNER SET) 
M78 G91 G31 X [ #24 / 2 ] Y - [ #25 / 2 ] F [ 5000. * #179 ] 
(SET SURF Z) 
#16= #5043 - #5083 - #30 
G65 P9811 Z#16 Q#17 
G103 P1 
#192= #192 + #16 
G65 P9732 S#19 W1. Z1. 
M78 G91 G31 X [ - #24 / 2 - [ 12. * #179 ] ] F [ 4000. * #179 ] 
M78 G91 G31 Z [ #26 ] 
(SET SURF X) 
#14= #5041 + #30 
G65 P9811 X#14 Q#17 
G103 P1 
#190= #190 + #14 
G65 P9732 S#19 W1. 
M78 G91 G31 Z - [ #26 ] F [ 4000. * #179 ] 
M78 G91 G31 X [ #24 / 2 + [ 12. * #179 ] ] 
M78 G91 G31 Y [ #25 / 2 + [ 12. * #179 ] ] 
M78 G91 G31 Z [ #26 ] 
(SET SURF Y) 
#15= #5042 - #30 
G65 P9811 Y#15 Q#17 
G103 P1 
#191= #191 + #15 
G65 P9732 S#19 W1. 
M78 G91 G31 Z - [ #26 ] F [ 4000. * #179 ] 
M78 G91 G31 Y [ - #25 / 2 - [ 12. * #179 ] ] 
M78 G91 G31 X - [ #24 / 2 ] Y [ #25 / 2 ] F [ 5000. * #179 ] 
GOTO18 


N170 (VISE CORNER CENTER) 
M78 G91 G31 X [ #24 / 2 ] Y - [ #25 / 2 ] F [ 5000. * #179 ] 
(SET SURF Z) 
#16= #5043 - #5083 - #30 
G65 P9811 Z#16 Q#17 
G103 P1 
#192= #192 + #16 
G65 P9732 S#19 W1. Z1. 
(X WEB) 
#26= #5043 - #5083 + #26 
G65 P9812 X#24 Z#26 R#18 T#20 W#23 Q#17 
G103 P1 
#190= #190 + #5041 
G65 P9732 S#19 W1. 
(Y WEB) 
G65 P9812 Y#25 Z#26 R#18 T#20 W#23 Q#17 
G103 P1 
#191= #191 + #5042 
G65 P9732 S#19 W1. 
GOTO18 

N17 #3000= 91 (FORMAT ERROR) 
N90 #3000= 10 (TS27R NOT CALIBRATED) 
N91 #3000= 11 (OMP40 NOT CALIBRATED) 
N18 
G65 P9833 (FLASH OFF) 
N19 
M99