Code for IJK calculation of angles

[dwade]

I got this code with help from RussL, cmmguy and craiger for using measured IJK values for calculating an angle. I will use this variable (angle relative to feature) to create a generic feature later in the program.

RFACE_1 =AUTO/VECTOR POINT,SHOWALLPARAMS = YES
THEO/1.2809,-0.4456,-0.0304,0.9397,0,0.342
ACTL/1.2809,-0.4456,-0.0304,0.9397,0,0.342
TARG/1.2809,-0.4456,-0.0304,0.9397,0,0.342
THEO_THICKNESS = 0,RECT,SNAP = YES,$
AUTO MOVE = NO,DISTANCE = 1
RFACE_2 =AUTO/VECTOR POINT,SHOWALLPARAMS = YES
THEO/1.2838,-0.8337,-0.0383,0.9397,0,0.342
ACTL/1.2838,-0.8337,-0.0383,0.9397,0,0.342
TARG/1.2838,-0.8337,-0.0383,0.9397,0,0.342
THEO_THICKNESS = 0,RECT,SNAP = YES,$
AUTO MOVE = NO,DISTANCE = 1
RFACE_3 =AUTO/VECTOR POINT,SHOWALLPARAMS = YES
THEO/1.3657,-0.8465,-0.2633,0.9397,0,0.342
ACTL/1.3657,-0.8465,-0.2633,0.9397,0,0.342
TARG/1.3657,-0.8465,-0.2633,0.9397,0,0.342
THEO_THICKNESS = 0,RECT,SNAP = YES,$
AUTO MOVE = NO,DISTANCE = 1
PLN_RFACE =FEAT/PLANE,RECT,TRIANGLE
THEO/1.3101,-0.7086,-0.1107,0.9396847,0.0000591,0.3420419
ACTL/1.3101,-0.7086,-0.1107,0.9396847,0.0000591,0.3420419
CONSTR/PLANE,BF,RFACE_1,RFACE_2,RFACE_3,,
OUTLIER_REMOVAL/OFF,3
FILTER/OFF,WAVELENGTH=0
ASSIGN/V2 = RAD2DEG(ATAN(PLN_RFACE.K/PLN_RFACE.I))