判断点是否在多边形内部

http://bbs.mjtd.com/thread-92445-1-1.html

Public Function ptInPolygon1(pt As Point3d, pPolyline As Polyline) As Integer
    Dim count As Integer = pPolyline.NumberOfVertices
    '构建多边形外接矩形
    Dim maxx As Double = Double.MinValue, maxy As Double = Double.MinValue, minx As Double = Double.MaxValue, miny As Double = Double.MaxValue
    Dim i As Integer = 0
    While i < count
        If pPolyline.GetPoint3dAt(i).X > maxx Then
            maxx = pPolyline.GetPoint3dAt(i).X
        End If
        If pPolyline.GetPoint3dAt(i).Y > maxy Then
            maxy = pPolyline.GetPoint3dAt(i).Y
        End If
        If p