Sheet metal Browser Folders

[Curtis_Waguespack]

Doe anyone know how to access the Folded Model node in a sheet metal part, or how to find browser folders in a sheet metal part?

When I run this bit of code it comes back empty when looking for browser folders when the part is a sheetmetal part.

Dim oDoc As Document	
oDoc = ThisApplication.ActiveDocument


'For Each Pane In oDoc.BrowserPanes
'	oMsg = oMsg & vbLf & "Pane Name: " & Pane.name
'Next
'oMsg = oMsg & vbLf & "--------"

Dim oPane As BrowserPane
oPane = oDoc.BrowserPanes.Item("Model")

Dim oTopNode As BrowserNode 
oTopNode = oPane.TopNode

oMsg = oMsg & vbLf & "Folder Count: " & oPane.TopNode.BrowserFolders.Count 


For Each oFolder In oPane.TopNode.BrowserFolders
	oMsg = oMsg & vbLf & "Folder Name: " & oFolder.name
Next

MessageBox.Show(oMsg, "ilogic")

standard part

same part converted to sheet metal

[bradeneuropeArthur · Accepted solution]

Dim oDoc As Inventor.PartDocument	
oDoc = ThisApplication.ActiveDocument

Dim c As Inventor.SheetMetalComponentDefinition = oDoc.ComponentDefinition


'For Each Pane In oDoc.BrowserPanes
'	oMsg = oMsg & vbLf & "Pane Name: " & Pane.name
'Next
'oMsg = oMsg & vbLf & "--------"

Dim oPane As BrowserPane
oPane = oDoc.BrowserPanes.Item("Model")

Dim oTopNode As BrowserNode 
oTopNode = oPane.TopNode

oMsg = oMsg & vbLf & "Folder Count: " & oPane.TopNode.BrowserNodes.Item(1).FullPath


For Each oFolder In oPane.TopNode.BrowserNodes.Item(1).BrowserFolders
	oMsg = oMsg & vbLf & "Folder Name: " & oFolder.name
Next

MessageBox.Show(oMsg, "ilogic")

[bradeneuropeArthur · Accepted solution]

or even Better:

Dim oDoc As Inventor.PartDocument	
oDoc = ThisApplication.ActiveDocument

Dim c As Inventor.SheetMetalComponentDefinition = oDoc.ComponentDefinition


'For Each Pane In oDoc.BrowserPanes
'	oMsg = oMsg & vbLf & "Pane Name: " & Pane.name
'Next
'oMsg = oMsg & vbLf & "--------"

Dim oPane As BrowserPane
oPane = oDoc.BrowserPanes.Item("Model")

Dim oTopNode As BrowserNode 
oTopNode = oPane.TopNode

oMsg = oMsg & vbLf & "Folder Count: " & oPane.TopNode.BrowserNodes.Item("Folded Model").FullPath


For Each oFolder In oPane.TopNode.BrowserNodes.Item("Folded Model").BrowserFolders
	oMsg = oMsg & vbLf & "Folder Name: " & oFolder.name
Next

MessageBox.Show(oMsg, "ilogic")

[Curtis_Waguespack]

Thanks! 

I'm certain I tried getting the 'Folded Model' node by name, but I must have had something not right 🙃

Here's what I ended up with in case it helps someone in the future.

Dim oDoc As Inventor.PartDocument	
oDoc = ThisApplication.ActiveDocument

Dim oPane As BrowserPane
oPane = oDoc.BrowserPanes.Item("Model")

Dim oTopNode As BrowserNode 
oTopNode = oPane.TopNode

Dim oTargetNode As BrowserNode 
If oDoc.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then 
	oTargetNode = oPane.TopNode.BrowserNodes.Item("Folded Model")
Else
	oTargetNode = oTopNode
End If

oMsg = oMsg & vbLf & "Folder Count: " & oTargetNode.BrowserFolders.Count 

For Each oFolder In oTargetNode.BrowserFolders
	oMsg = oMsg & vbLf & "Folder Name: " & oFolder.name
Next

MessageBox.Show(oMsg, "ilogic")