Activate Alpha Sort Sheets from Inventor VBA

[ChristiPedersen]

Is there a way to activate the Drawing Tools - Alpha Sort Sheets from the API?  I can see Drawing Tools under ThisApplication.ApplicationAddIns but cannot see sub items under Drawing Tools.

[WCrihfield · Accepted solution]

I know this likely isn't what you were hoping for, but below is the 'InternalName' which can be executed like a command, which would be like simulating clicking on that tool.

"DrawingTools.AlphaSortSheets"

I'm guessing that in order to access anything specific under or within that add-in, you would most likely have to include some sort of 'AddReference' and/or 'Imports' type lines in the header of the iLogic rule editor, to enable recognition of the resources within.  I have not dug into it that far yet though.

[ChristiPedersen]

Actually that pointed me in the right direction.  I used the command manager to activate it instead.  Thank you.

[JelteDeJong]

I see that you already found a solution but if you want you can also do this in an iLogic rule like this:

Dim doc As DrawingDocument = ThisDoc.Document
Dim browserPane As BrowserPane = doc.BrowserPanes.Item("Model")

Dim sheets = doc.Sheets.Cast(Of Sheet).OrderBy(Function(s) s.Name).ToList()

For Each sheet As Sheet In sheets
    Dim sheetNode As BrowserNode = browserPane.GetBrowserNodeFromObject(Sheet)
    Dim bottomNode As BrowserNode = browserPane.TopNode.BrowserNodes.Item(browserPane.TopNode.BrowserNodes.Count)
    If (sheetNode Is bottomNode) Then Continue For
    browserPane.Reorder(bottomNode, False, sheetNode)
Next