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


@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