用VB.NET编程语言对NX进行的二次开发，获取所有显示的实体，不包括隐藏的

您可以使用NX Open API来获取所有显示的实体，不包括隐藏的。以下是一个参考代码示例：

Imports NXOpen

Public Class GetAllVisibleEntities
    Public Sub Main()
        Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work

        '获取所有显示的实体
        Dim dispPart As DisplayPart = theSession.Parts.Display
        Dim dispObjs As DisplayableObject() = dispPart.GetDisplayableObjects()

        '过滤隐藏的实体
        Dim visibleObjs As New List(Of DisplayableObject)
        For Each dispObj As DisplayableObject In dispObjs
            If dispObj.IsVisibile() Then
                visibleObjs.Add(dispObj)
            End If
        Next

        '输出结果
        For Each visibleObj As DisplayableObject In visibleObjs
            Dim entity As NXObject = visibleObj.Tag
            Console.WriteLine("Entity: " & entity.ToString())
        Next
    End Sub
End Class

请注意，此代码只适用于NX 11及更高版本。如果您使用的是旧版本的NX，请参考相应版本的NX Open API文档来获取显示的实体。