怎麼獲得點集內點的坐標

你的粉

您可以遍歷集合來處理每個特徵或查找特定的特徵。

Option Strict Off
Imports System
Imports NXOpen

Module Module1

    Sub Main()

        Dim theSession As Session = Session.GetSession()
        If IsNothing(theSession.Parts.Work) Then
            'active part required
            Return
        End If

        Dim workPart As Part = theSession.Parts.Work
        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()

        For Each myFeature As Features.Feature In workPart.Features
            If TypeOf (myFeature) Is Features.PointSet Then
                lw.WriteLine(".GetFeatureName: " & myFeature.GetFeatureName)
                lw.WriteLine(".Name: " & myFeature.Name)
                lw.WriteLine(".FeatureType: " & myFeature.FeatureType)
                lw.WriteLine(".Timestamp: " & myFeature.Timestamp.ToString)
                lw.WriteLine("")

                Dim myPoints() As NXObject = myFeature.GetEntities

                For Each tempPt As Point In myPoints
                    lw.WriteLine(tempPt.Coordinates.ToString)
                Next

            End If

        Next


        lw.Close()

    End Sub


    Public Function GetUnloadOption(ByVal dummy As String) As Integer

        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

    End Function

End Module