NX二次开发之vb.net 隐藏某一种颜色的体

Imports System

Imports NXOpen

Imports NXOpen.UF

Module NXJournal

    Sub Main()

        Dim theSession As Session = Session.GetSession()

        Dim ufs As UFSession = UFSession.GetUFSession()

        Dim body() As TaggedObject

        If SelectAnObject("选择体", body) = Selection.Response.Cancel Then Return  

        '声明一个集合存储对象          

        Dim GreenObjects As New List(Of DisplayableObject)

        For Each b As Body In body

            If b.Color = 36 Then

                GreenObjects .Add(CType(b, DisplayableObject))

            End If

        Next

        '隐藏绿色的体

        theSession.DisplayManager.BlankObjects(objects1.ToArray)

    End Sub