10-02-2019
05:59 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
10-02-2019
05:59 AM
@Anonymous wrote:
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
You didn't mention anything about setting the parts to reference bom structure in your original post?
-------------------------------------------------------------------------------------------
Inventor 2023 - Dell Precision 5570
Did you find this reply helpful ? If so please use the Accept Solution button below.
Maybe buy me a beer through Venmo @mcgyvr1269