How can I sort a structured BOM using the Inventor API, and what are some workarounds since there’s no direct SortBy method?

Yes. QuickBooks can connect to apps such as Shopify, BigCommerce, Square, PayPal, and other sales tools you may already be using

HANDBRAKE is one of the most popular and free video conversion tools.

It is open source, easy to use, and works on Windows and Mac.

You can monitor Inventor commands using the UserInterfaceEvents.OnActivateCommand event. The command name for Vault check-in is:

'VaultCheckinTop'

So in your Inventor Add-In, you can do:

AddHandler ThisApplication.UserInterfaceManager.UserInterfaceEvents.OnActivateCommand, AddressOf OnCommandActivated

Private Sub OnCommandActivated(CommandName As String)
    If CommandName = "VaultCheckinTop" Then
        ' Your logic here: activate all sheets
    End If
End Sub

This lets you intercept the moment the user initiates a Vault check-in from Inventor.

Add Same Description to All Files in a Folder

This macro:

• Opens each .ipt file in a folder
• Sets the Description iProperty
• Saves and closes the file

Sample VBA Code

Sub AddDescriptionToAllPartsInFolder()
    Dim folderPath As String
    folderPath = InputBox("Enter the folder path containing .ipt files:")

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    Dim file As Object
    Dim partDoc As PartDocument

    Dim descriptionText As String
    descriptionText = InputBox("Enter the description to apply:")

    If fso.FolderExists(folderPath) Then
        For Each file In fso.GetFolder(folderPath).Files
            If LCase(fso.GetExtensionName(file.Name)) = "ipt" Then
                Set partDoc = ThisApplication.Documents.Open(file.Path, False)
                partDoc.PropertySets.Item("Design Tracking Properties").Item("Description").Value = descriptionText
                partDoc.Save
                partDoc.Close
            End If
        Next
        MsgBox "Descriptions updated for all .ipt files in folder."
    Else
        MsgBox "Folder not found!"
    End If
End Sub

If the fx parameter is derived from another editable parameter, you can:

• Use VBA to change the base parameter.
• The fx parameter will update automatically.

Dim oPartDoc As PartDocument
Set oPartDoc = ThisApplication.ActiveDocument

Dim oParams As Parameters
Set oParams = oPartDoc.ComponentDefinition.Parameters

oParams.Item(\"BaseLength\").Value = 10 ' This affects fx parameters that depend on BaseLength