List sketch symbols in a folder

[Anonymous]

Hello all,

I'm trying to copy a folder and symbol

from a drawing template to another drawing.

I need to read the list of folders and for each folder the list of sketch symbols.

Thanks for any info.

Best Regards

Massimo

[MechMachineMan · Accepted solution]

Are you even trying?

In your last post, I directed to you to a link for a thread that has a solution for this.

All you had to do was extract a simple snippet from it, and then extrapolate to create a recursive function to go through the folders as well.

Again, the post: https://forums.autodesk.com/t5/inventor-customization/copy-sketched-symbols-with-folders/td-p/713142...

The snippet:

Sub List Symbols()

	Dim oPane As BrowserPane
	Dim oNode As BrowserNode
	Dim oTopNode As BrowserNode
	Dim oDwgResourcesFolder As BrowserNode
	Dim oSketchedSymbolsFolder As BrowserNode
	
	oPane = ThisApplication.ActiveDocument.BrowserPanes("Model")

	oDwgResourcesFolder = oPane.TopNode.BrowserNodes.Item("Drawing Resources")
	oSketchedSymbolsFolder = oDwgResourcesFolder.BrowserNodes.Item(4)
	
	For Each oNode In oSketchedSymbolsFolder.BrowserNodes
		oNodeName = Right(oNode.FullPath, Len(oNode.FullPath) - InStrRev(oNode.FullPath, ":", -1))	
	Next

End Sub

[Anonymous]

Hi Justin,

no excuses, I did not tried, 

and thanks for your help.

Thanks again for the support.

Regards

Massimo