hexagon logo

degrees radians

hello
How do I cycle in pcdmis degrees radians.
but not vb code. can be assignment..

example : 85.75° = 85° 45'
Parents
  • DIM ANGL2= 3D ANGLE FROM PLANE PLN1 TO PLANE PLN4 ,$
    GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH
    AX MEAS NOMINAL +TOL -TOL DEV OUTTOL
    A 90.000 90.300 2.000 2.000 -0.300 0.000 ---#-----

    ASSIGN/T1=ANGL2.MEAS
    ASSIGN/T2=((T1)-(FORMAT("%d", T1)))*60
    ASSIGN/T3=FORMAT("%d", T1)+"°"+V1+"'"

    F2 =GENERIC/POINT,DEPENDENT,CARTESIAN,$
    NOM/XYZ,<0,0,0>,$
    MEAS/XYZ,<T3,0,0>,$
    NOM/IJK,<0,0,1>,$
    MEAS/IJK,<0,0,1>

    DIM LOC2= LOCATION OF POINT F2 UNITS=MM ,$
    GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH HALF ANGLE=NO
    AX MEAS NOMINAL +TOL -TOL DEV OUTTOL
    X 369921.000 90.000 0.500 0.500 369831.000 369830.500 <--------
    END OF DIMENSION LOC2
Reply
  • DIM ANGL2= 3D ANGLE FROM PLANE PLN1 TO PLANE PLN4 ,$
    GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH
    AX MEAS NOMINAL +TOL -TOL DEV OUTTOL
    A 90.000 90.300 2.000 2.000 -0.300 0.000 ---#-----

    ASSIGN/T1=ANGL2.MEAS
    ASSIGN/T2=((T1)-(FORMAT("%d", T1)))*60
    ASSIGN/T3=FORMAT("%d", T1)+"°"+V1+"'"

    F2 =GENERIC/POINT,DEPENDENT,CARTESIAN,$
    NOM/XYZ,<0,0,0>,$
    MEAS/XYZ,<T3,0,0>,$
    NOM/IJK,<0,0,1>,$
    MEAS/IJK,<0,0,1>

    DIM LOC2= LOCATION OF POINT F2 UNITS=MM ,$
    GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH HALF ANGLE=NO
    AX MEAS NOMINAL +TOL -TOL DEV OUTTOL
    X 369921.000 90.000 0.500 0.500 369831.000 369830.500 <--------
    END OF DIMENSION LOC2
Children
No Data