首页 > TAG信息列表 > UG8.5
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,