Import Sketches Symbols from template, retaining folder structure

[Patrick1323]

Hello, here is a script i wrote, it imports the Sketches Symbols from template idw. But it doesn't copy the folders. How do I retain the folder structure? Sub Skizzensymbole_aktualisieren() Dim oDrawing As DrawingDocument Set oDrawing = ThisApplication.ActiveDocument Dim oTemplate As DrawingDocument Set oTemplate = ThisApplication.Documents.Open("C:\template.idw", False) Dim oSourceSketchedSymbolsDef As SketchedSymbolDefinitions Set oSourceSketchedSymbolsDef = oTemplate.SketchedSymbolDefinitions For Each symbolDef In oSourceSketchedSymbolsDef Call symbolDef.CopyTo(oDrawing, True) Next oTemplate.Close End Sub

[MechMachineMan · Accepted solution]

Pretty sure you have to re-add the folders.

Something like below should get you started.

Sub AddFolders()

Dim oPane As BrowserPane
Dim oNode As BrowserNode
Dim oDwgName As BrowserNode
Dim oDwgRes As BrowserNode
Dim oSktch As BrowserNode
Dim oFolder As BrowserFolder
Dim oOccurrenceNodes1 As ObjectCollection
Dim oOccurrenceNodes2 As ObjectCollection
Dim oOccurrenceNodes3 As ObjectCollection
oOccurrenceNodes1 = ThisApplication.TransientObjects.CreateObjectCollection
oOccurrenceNodes2 = ThisApplication.TransientObjects.CreateObjectCollection
oOccurrenceNodes3 = ThisApplication.TransientObjects.CreateObjectCollection

oPane = ThisApplication.ActiveDocument.BrowserPanes("Model")

oDwgName = oPane.TopNode 'Is the WO# and sheet name
oDwgRes = oDwgName.BrowserNodes.Item("Drawing Resources")
oSktch = oDwgRes.BrowserNodes.Item(4)

For Each oFolder In oSktch.BrowserFolders
	oFolder.Delete
Next

For Each oNode In oSktch.BrowserNodes
	oStr1 = Right(oNode.FullPath, Len(oNode.FullPath) - InStrRev(oNode.FullPath, ":", -1))
	If oStr1 = "Assembly/Weldment Label" Or _
	    oStr1 = "Part Label" Or _
		oStr1 = "Section/Detail Label" Or _
		oStr1 = "Flat Plate Layout Label" 
	oOccurrenceNodes1.Add(oNode)
	End If
	
	If oStr1 = "Detail Callout" Or _
		oStr1 = "Section Symbol" Or _
		oStr1 = "Orientation"
	oOccurrenceNodes2.Add(oNode)
	End If
	
	If oStr1 = "Assembly Weight" Or oStr1 = "Reference Drawing"
	oOccurrenceNodes3.Add(oNode)
	End If
Next

oPane.AddBrowserFolder("Title Block Symbols", oOccurrenceNodes3)
oPane.AddBrowserFolder("Symbols", oOccurrenceNodes2)
oPane.AddBrowserFolder("Labels", oOccurrenceNodes1)

oSktch.DoSelect

Dim oCommandMgr As CommandManager
oCommandMgr = ThisApplication.CommandManager

Dim oControlDef1 As ControlDefinition
 oControlDef1 = oCommandMgr.ControlDefinitions.Item("DrawingResourceSort")
oControlDef1.Execute

End Sub