Measure hole in a tube

ASSIGN/NUMHITS = 8
ASSIGN/ANG = 0
ASSIGN/ANG_INC = 360/NUMHITS
ASSIGN/HOLE_D = 0.250
ASSIGN/RAD1 = HOLE_D/2
ASSIGN/TUBE_D = 5.00
ASSIGN/MEASURE_DEPTH = 0.037
ASSIGN/RAD2 = TUBE_D/2 - (MEASURE_DEPTH)
ASSIGN/TUBE_WALL_THICKNESS = 0.074

ASSIGN/XVAL = RAD1*COS(DEG2RAD(ANG))
ASSIGN/YVAL = RAD1*SIN(DEG2RAD(ANG))
ASSIGN/ZVAL = SQRT((RAD2^2) - (RAD1*COS(DEG2RAD(ANG))^2))

ASSIGN/IVEC = COS(DEG2RAD(ANG))
ASSIGN/JVEC = SIN(DEG2RAD(ANG))
ASSIGN/KVEC = 0

GEN_CYL1 = GENERIC/CYLINDER,DEPENDENT,CARTESIAN,OUT,$
NOM/XYZ,<0,0,0>,$
MEAS,XYZ,<0,0,0>,$
NOM/IJK,<0,1,0>,$
MEAS/IJK,<0,1,0>,$
DIAMETER/TUBE_D,TUBE_D,$
DISTANCE/1.5,1.5

GEN_CYL_WALL= GENERIC/CYLINDER,DEPENDENT,CARTESIAN,OUT,$
NOM/XYZ,<0,0,0>,$
MEAS,XYZ,<0,0,0>,$
NOM/IJK,<0,1,0>,$
MEAS/IJK,<0,1,0>,$
DIAMETER/TUBE_D-(TUBE_WALL_THICKNESS*2),TUBE_D-(TUBE_WALL_THICKNESS*2),$
DISTANCE/1.5,1.5

DO/
PNT1 = FEAT/CONTACT/VECTOR POINT,CARTESIAN
THEO/<RAD1*COS(DEG2RAD(ANG)),RAD1*SIN(DEG2RAD(ANG)),SQRT((RAD2^2) - (RAD1*(COS(DEG2RAD(0))^2)),COS(DEG2RAD(0)),SIN(DEG2RAD(0)),0>
ACTUAL/<0.125,0,2.4375,1,0,0>
TARG/<RAD1*COS(DEG2RAD(0)),RAD1*SIN(DEG2RAD(0)),SQRT((RAD2^2  - (RAD1*COS(DEG2RAD(ANG))^2),COS(DEG2RAD(ANG)),SIN(DEG2RAD(ANG)),0>
SHOW FEATURE PARAMETERS = NO
SHOW CONTACT FEATURES = NO

ASSIGN/ANG = ANG + ANG_INC

UNTIL/ANG ==360

CYL1 = FEAT/CYLINDER,CARTESIAN,OUT,LEAST_SQR,NO
THEO/<0,0,0.4544>,<0,0,1>,0.25,0.0172
ACTL/<0,0,0.4544>,<0,0,1>,0.25,0.0172
CONSTR/CYLINDER,BF,PNT1[1],PNT1[2],PNT1[3],PNT1[4],PNT1[5],PNT1[6],PNT1[7],PNT1[8],,