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
  • hey jefman it work Slight smile

    but I was unable to report the result.

    ASSIGN/K1=ANGLEBETWEEN(PLN3.IJK,PLN4.IJK)
    ASSIGN/K2=(K1-INT(K1))*60
    ASSIGN/K3=(K2-INT(K2))*60
    ASSIGN/K4=INT(K1)+" ° "+INT(K2)+" ' "+ROUND(K3)+" '' "



    F3 =GENERIC/POINT,DEPENDENT,POLAR,$
    NOM/XYZ,<32,0,0>,$
    MEAS/XYZ,<K4,0,0>,$
    NOM/IJK,<0,0,1>,$
    MEAS/IJK,<0,0,1>

    DIM LOC3= LOCATION OF POINT F3 UNITS=MM ,$
    GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH HALF ANGLE=NO
    AX MEAS NOMINAL +TOL -TOL DEV OUTTOL
    X 32.000 32.000 0.500 0.500 0.000 0.000 ----#----
    END OF DIMENSION LOC3
Reply
  • hey jefman it work Slight smile

    but I was unable to report the result.

    ASSIGN/K1=ANGLEBETWEEN(PLN3.IJK,PLN4.IJK)
    ASSIGN/K2=(K1-INT(K1))*60
    ASSIGN/K3=(K2-INT(K2))*60
    ASSIGN/K4=INT(K1)+" ° "+INT(K2)+" ' "+ROUND(K3)+" '' "



    F3 =GENERIC/POINT,DEPENDENT,POLAR,$
    NOM/XYZ,<32,0,0>,$
    MEAS/XYZ,<K4,0,0>,$
    NOM/IJK,<0,0,1>,$
    MEAS/IJK,<0,0,1>

    DIM LOC3= LOCATION OF POINT F3 UNITS=MM ,$
    GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH HALF ANGLE=NO
    AX MEAS NOMINAL +TOL -TOL DEV OUTTOL
    X 32.000 32.000 0.500 0.500 0.000 0.000 ----#----
    END OF DIMENSION LOC3
Children
No Data