Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Anonymous
in reply to: Anonymous

I found after all the solution:

 

oPane = ThisApplication.ActiveDocument.BrowserPanes("Model")

Select Case folder_visibility

    Case "No"
    
        oFolder = oPane.TopNode.BrowserFolders.Item("New Folder")
        oFolderNodes = oFolder.BrowserNode.BrowserNodes
        For Each oNode As BrowserNode In oFolderNodes
        oComp = oNode.NativeObject
        oComp.Visible = 0
        oComp.BOMStructure = BOMStructureEnum.kReferenceBOMStructure
        Next

    Case "Yes"
    
        oFolder = oPane.TopNode.BrowserFolders.Item("New Folder")
        oFolderNodes = oFolder.BrowserNode.BrowserNodes
        For Each oNode As BrowserNode In oFolderNodes
        oComp = oNode.NativeObject
        oComp.Visible = 1
        oComp.BOMStructure = BOMStructureEnum.kReferenceBOMStructure
        Next

End Select