CAD 根据一个点，角度，长度推出第二个点

 ''' <summary>
        ''' 根据一个点，角度，长度推出第二个点
        ''' </summary>
        ''' <param name="pPt"></param>
        ''' <param name="dAng"></param>
        ''' <param name="dDist"></param>
        ''' <returns></returns>
        Public Shared Function PolarPoints(ByVal pPt As Point3d,
                                   ByVal dAng As Double,
                                   ByVal dDist As Double)

            Return New Point3d(pPt.X + dDist * Math.Cos(dAng),
                     pPt.Y + dDist * Math.Sin(dAng), 0)
        End Function