Anonymous
in reply to:
Anonymous
10-02-2019
05:35 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
10-02-2019
05:35 AM
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