使用vb.net进行cad编程：[7]角度弧度变换

1、  '弧度转换为角度 

   Public Function tojd(ByVal hd as single) as single 

       Dim jd as single

        jd = hd / Acos(-1) * 180

        Return jd

    End Function

2、    '角度转换为弧度

    Public Function tohd(ByVal jd as single) as single

        Dim hd as single

        hd = jd * Acos(-1) / 180

        Return hd

    End Function