Expanding the Origin of a Selected Component in Browser

[Anonymous]

Hello everybody.

I am trying to write a macro that should do the following:

1) The user selects an Component (Part or Assembly) in the Browser

2) The user run the macro and this expandes the Origin of the selected component.

I tried to do this using a ComponentOcurrence Definition but I cannot get this to work. The macro shows no errors but it does not change the Expanded Status from False to True.

Has anyone any idea why?

Sub ExpandUrsprung()
    On Error Resume Next
    Dim oOcc As ComponentOccurrence 'just necessary to select
    Set oOcc = ThisApplication.ActiveDocument.SelectSet(1)
   
    Dim a As Inventor.BrowserNode
    oOcc.Definition.Document.BrowserPanes.Item("Modell").topNode.BrowserNodes.Item("Ursprung").Expanded = True 'set the Expanded Value of the Origin (Ursprung) to True
   
End Sub

Thank you very much!

[MechMachineMan · Accepted solution]

Because at that point you are wanting to access the BROWSER NODE; component definition has almost nothing to do with it. ie; when dealing with the browser nodes, all the component definition is good for is getting the occurrence so you can you the "GetBrowserNodeFromNativeObject" method.

Follow the link and read the associated resources and samples and it will get you along a better path.

http://help.autodesk.com/view/INVNTOR/2018/ENU/?guid=GUID-A8D2B514-1C99-422F-A58A-EF7B588A25F4

Also, as your code above shows, you are actually access a browser pane that you can't even see; the one belonging to the document that the occurrence references. The browser pane you want to be dealing with is the one that is visible and at the forefront - the assembly document browser pane.

[Anonymous]

Hello MechMachine!

Yes, it works perfect! Thank you very much!

[filippo.toniello]

Hi there

Colud you, please, share the working code? I'm interested to the same functionality but i have some problemt to make it works

[Anonymous]

update 18/10

I figured to make it works but with sheetmetal fail maybe for the "folded model" sub node?

here the code i "patchworked":

    ' Get the active assembly document
Dim oDoc As AssemblyDocument
   	oDoc = ThisApplication.ActiveDocument

Dim oOcc As ComponentOccurrence
	oOcc = ThisApplication.CommandManager.Pick(kAssemblyLeafOccurrenceFilter, "Selezionare il componente per espandere la cartella Origine")

Dim oOccDef As ComponentOccurrence

    ' Get the model browser
Dim oPane As BrowserPane
   	oPane = oDoc.BrowserPanes.Activepane
		
'    ' Get the browser node that corresponds to the occurrence
Dim oCompo As BrowserNode
   	oCompo = oPane.GetBrowserNodeFromObject(oOcc)

Dim oNode As BrowserNode
For Each oNode In oCompo.BrowserNodes	
	If oNode.FullPath.Contains("Origin") Then
	oNode.Expanded = True
	End If
Next

[filippo.toniello]

This works

    ' Get the active assembly document
Dim oDoc As AssemblyDocument
   	oDoc = ThisApplication.ActiveDocument

Dim oOcc As ComponentOccurrence
	oOcc = ThisApplication.CommandManager.Pick(kAssemblyLeafOccurrenceFilter, "Selezionare il componente per espandere la cartella Origine")

    ' Get the model browser
Dim oPane As BrowserPane
   	oPane = oDoc.BrowserPanes.Activepane
		
'    ' Get the browser node that corresponds to the occurrence
Dim oCompo As BrowserNode
   	oCompo = oPane.GetBrowserNodeFromObject(oOcc)

Dim oNode As BrowserNode
For Each oNode In oCompo.BrowserNodes	
	If oNode.FullPath.Contains("Origine") Then
	oNode.Expanded = True

	Else If oNode.FullPath.Contains("Modello piegato") Then
	Dim oNodeSheet As BrowserNodeDefinition
	oNodeSheet = oNode.BrowserNodeDefinition

    ' Get the work plane browser node.
    Dim oWorkPlaneNode As BrowserNode
		oWorkPlaneNode = oCompo.AllReferencedNodes(oNodeSheet).Item(1)
    Dim oNode2 As BrowserNode
	For Each oNode2 In oWorkPlaneNode.BrowserNodes	
	If oNode2.FullPath.Contains("Origine") Then
	oNode2.Expanded = True
	End If
	Next
	End If
Next