Code for IJK calculation of angles

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Code for IJK calculation of angles

    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))
    Xcel & MicroVal Pfx & Global 37mr4 thru 2012mr1sp3
    Contura Calypso 5.4

    Lord, keep Your arm around my shoulder and Your hand over my mouth. Amen.

Related Topics

Collapse

Working...
X