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

标签：Dim,vb,ByVal,UG8.5,workPart,点到面,Point1,face1,direction1,vb.net源码
来源： https://www.cnblogs.com/qqqking/p/16684699.html