nxopen 面上创建中心点

Function CreatFaceCenPoint(ByVal face1 As Face)

        Dim workPart As Part = theSession.Parts.Work

        Dim scalarUV As Scalar
        scalarUV = workPart.Scalars.CreateScalar(0.5, Scalar.DimensionalityType.None, SmartObject.UpdateOption.WithinModeling)

        Dim CenPoint As Point
        CenPoint = workPart.Points.CreatePoint(face1, scalarUV, scalarUV, SmartObject.UpdateOption.WithinModeling)


        CenPoint.SetVisibility(SmartObject.VisibilityOption.Visible)

        Dim nullFeatures_Feature As Features.Feature = Nothing


        Dim pointFeatureBuilder1 As Features.PointFeatureBuilder
        pointFeatureBuilder1 = workPart.BaseFeatures.CreatePointFeatureBuilder(nullFeatures_Feature)

        pointFeatureBuilder1.Point = CenPoint

        Dim nXObject1 As NXObject
        nXObject1 = pointFeatureBuilder1.Commit()

        pointFeatureBuilder1.Destroy()

    End Function