nxopen UG8.5 vb.net 点到面的距离

    Function PointToFaceDis(ByVal face1 As Face, ByVal Point1 As Point) As Double '点到面的距离

        Dim workPart As Part = theSession.Parts.Work

        Dim direction1 As Direction
        direction1 = workPart.Directions.CreateDirection(face1, Sense.Forward, SmartObject.UpdateOption.AfterModeling)

        Dim NewDistance1 As MeasureDistance = workPart.MeasureManager.NewDistance(Nothing, Point1, face1, direction1, MeasureManager.ProjectionType.Minimum)

        Return NewDistance1.Value

    End Function