Create Folder for Symbols in drawings

[Anonymous]

Hi All,

In a drawing,

I need to create a list of folders from A to Z

and place all the Sketch Symbols in the right folder, by using the first letter of the symbol.

So all the symbols starting with letter A to folder A and so on.

Thanks for your help.

Best Regards

Massimo

[MechMachineMan]

There was a solution to something very similar posted yesterday...

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

[bshbsh · Accepted solution]

---

@MechMachineMan wrote:

There was a solution to something very similar posted yesterday...

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

---

****, I didn't see it and wrote some code. You beat me to it. 🙂

I'll post mine anyway. It's vba.

Public Sub SS_Subfolders()
    If ThisApplication.ActiveDocument Is Nothing Then
        Exit Sub
    Else
        If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
            Dim InvDoc As Document
            Set InvDoc = ThisApplication.ActiveDocument
        Else
            Exit Sub
        End If
    End If
    
    Dim BP As BrowserPane
    Set BP = InvDoc.BrowserPanes.Item("Model")
    Dim SS_BN As BrowserNode
    Set SS_BN = BP.TopNode.BrowserNodes.Item("Drawing Resources").BrowserNodes.Item("Sketch Symbols")
    Dim SS_Coll As ObjectCollection
    Set SS_Coll = ThisApplication.TransientObjects.CreateObjectCollection
    Dim i As Long
    For i = 65 To 90
        SS_Coll.Clear
        For Each BrowserNode In SS_BN.BrowserNodes
            If (BrowserNode.NativeObject.Type <> kBrowserFolderObject) And (Left(BrowserNode.BrowserNodeDefinition.Label, 1) = Chr$(i)) Then
                SS_Coll.Add (BrowserNode)
            End If
        Next BrowserNode
        If SS_Coll.Count > 0 Then
            Set BF = BP.AddBrowserFolder(Chr$(i), SS_Coll)
        End If
    Next i
End Sub

[Anonymous]

Hello,

Thanks, is it perfect!!

regards

Massimo