(NAM,MRAH.CAT)

! MEASURE RIGHT ANGLE HEAD SUBROUTINE VERSION 1.0 4-25-91

(GTO,10)

USE FOR MEASURING SPINDLE CENTERLINE TO TOOL TIP DISTANCE ON HEADS

TOOL AXIS VECTOR IN THE Y+ DIRECTION. THE APPROXIMATE (WITHIN 0.1

SPINDLE CENTERLINE TO TOOL TIP DISTANCE SHOULD EQUAL SUFFIX COMP 4

L146. IF ZERO IS GIVEN, HEAD WILL FEED FROM Y PLUS TRAVEL LIMIT.

VALUE IS GIVEN, HEAD WILL RAPID TO 1.0 INCH AWAY FROM SENSOR, THEN

WITH

INCH)

OR

IF A

FEED.

USE ALSO TO UPDATE TOOL CENTERLINE TO SPINDLE GAGE LINE DISTANCE.

APPROXIMATE VALUE MUST BE GIVEN AS PRIMARY TOOL COMPENSATION VALUE OR

L103. PASS IN TOOL DIAMETER AS L106 TO ACTIVATE.

PARAMETER ASSIGNMENT

--------------------

L101 = SPINDLE SPEED INITIAL CONTACT (75 RPM DEFAULT)

L102 = SPINDLE DIRECTION (M4 DEFAULT)

L103 = TOOL CENTERLINE TO SPINDLE GAGE LINE DISTANCE; MUST BE GIVEN OR

ENTERED INTO PRIMARY TOOL COMPENSATION REGISTER.

L104 = SUFFIX 4 COMP (Y) LENGTH TOLERANCE PLUS OR MINUS (OPTIONAL)

L106 = TOOL DIAMETER; PASS IN TO ACTIVATE PRIMARY COMP UPDATE

L109 = G72 CONTACTING FEEDRATE (10.IPM DEFAULT)

L110 = PRIMARY COMP LENGTH TOLERANCE PLUS OR MINUS (OPTIONAL)

Ll14 = TOOL TIP TO CHECKING DIAMETER (0.25 INCHES DEFAULT)

Ll15 = COLLET FACE TO SPINDLE CL TO INSURE CLEARANCE (125 MM DEFAULT)

L146 = SPINDLE CENTER LINE TOOL TIP; MAY BE GIVEN OR ENTERED INTO SUFFIX

COMP 4 OR NOT GIVEN (ASSUMED ZERO). IF GIVEN, MUST BE WITHIN 1.0

INCH OF ACTUAL.

SUBROUTINE ASSIGNED PARAMETERS

------------------------------

L1 = INCH METRIC CONVERSION

L6 = M48/M49 MODAL STATE WHEN CALLED

L7 = TOOL NUMBER PLUS .4

L8 = SUFFIX COMP ACTIVE WHEN CALLED

L124 = ACTUAL LENGTH IN Y

L125 = ACTUAL LENGTH IN Z

LABELS USED PROGRAMMER REFERENCE

10,20,30,40,50,60,70,80,85,90,100,110,120,130,140,150,160

(LBL,10)

(PAR,L1=1.,L6=48.,L7=L3030+.4,L8=L3039,L1100=0)

(IFT,M49,(PAR,L6=49.»

(IFT,G71,(PAR,L1=25.4»

! METRIC CONVERSION FACTOR

(IFT,NOTDEF(L109), (PAR,L109=10.*L1»

(UAT,O)

(IFT,NOTDEF(L103),(PAR,L103=L3033»

(UAT,4)

(IFT,NOTDEF(L146), (PAR,L146=L3033»

(UAT,O)

(IFT,L146<0, (PAR,L146=-L146»

(CLS,TOOL SENSOR CALIBRATION DATA)! LOAD

(STS,D)

! SELECT

GOG90S50M3Y,30.1181*L1,M25

! MOVE Y

ZL3090M25

(IFT,L3090-L1102-.15*L1>L103,(GTO,20»

MOM99

!

ERROR TOOL LENGTH EXCEEDS TARGET TO SPINDL DI~

(GTO,100)

(LBL,20) (IFT,30.1181*L1-L1103-.15*L1>L146,(GTO,30»

PARAMETER TABLE

TOOL "Y" SENSOR

TO PLUS TRAVEL LIMIT