Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

Exact reverse:

Case "BOM"
        If boolUnloadVault = True Then aai.Deactivate 'ThisApplication.ApplicationAddIns.ItemById("{48B682BC-42E6-4953-84C5-3D253B52E77B}").Deactivate
		aai= nothing
        Call ExportBOM.ExportBOM
    Case "Format BOM"
        Call FormatBOM.FormatBOM
    Case "Generate Thumbnails"
        If boolUnloadVault = True Then aai.Deactivate 'ThisApplication.ApplicationAddIns.ItemById("{48B682BC-42E6-4953-84C5-3D253B52E77B}").Deactivate
		aai= nothing
        Call GenerateThumbnails.GenerateThumbnails
    Case "Generate Brush"
        Call MakeBrush_Tufted.TuftedBrush
    Case "Create GPN"
        Call FillProperties.CreateGPN
    Case "Finish"
        Call MakeFinish.MakeFinish
    Case "Toggle Part Number"
        Call ToggleColumnVisibility.TogglePartNumber
    Case "Determine Parents"
        Call FillProperties.DetermineParents
    Case "Rename Occurences"
        Call RenameOccurences.RenameOccurences
    Case "Export Drawings"
        If boolUnloadVault = True Then aai.Deactivate 'ThisApplication.ApplicationAddIns.ItemById("{48B682BC-42E6-4953-84C5-3D253B52E77B}").Deactivate
		aai= nothing
        Call ExportDrawings.Main
    Case "Merge BOMs"
        Call MergeBOMs.MergeBOMs
    Case "Merge PDFs"
        Call OpenPDFSAM.OpenPDFSAM
    Case "Copy Sheet"
        Call CopySheet.IDW_DuplicateSheet
    Case "Add Part Number"
        Call AddPartNumber.AddPartNumber
    Case "Add Layer PN"
        Call AddPartNumber.AddLayerPN
    Case "Import Fastener"
        Call ImportFastener.ImportFastener
    Case "Delete Custom Properties"
        Call DeleteCustomProperties.DeleteCustomProperties
    Case "Adjust View"
        Call AdjustView.CallUserForm
    Case "Check Param and Rule"
        Call AddPartNumber.CheckParamAndRule
    Case Else
        MsgBox "An error has occured."
End Select

'Reactivate Vault is failing
If boolUnloadVault = True Then aai.Activate 'ThisApplication.ApplicationAddIns.ItemById("{48B682BC-42E6-4953-84C5-3D253B52E77B}").Activate

'MsgBox "Ending program"
End
End Sub

 

Regards,

Arthur Knoors

Autodesk Affiliations:

Autodesk Software:Inventor Professional 2025 | Vault Professional 2024 | Autocad Mechanical 2024
Programming Skills:Vba | Vb.net (Add ins Vault / Inventor, Applications) | I-logic
Programming Examples:Drawing List!|Toggle Drawing Sheet!|Workplane Resize!|Drawing View Locker!|Multi Sheet to Mono Sheet!|Drawing Weld Symbols!|Drawing View Label Align!|Open From Balloon!|Model State Lock!
Posts and Ideas:Dimension Component!|Partlist Export!|Derive I-properties!|Vault Prompts Via API!|Vault Handbook/Manual!|Drawing Toggle Sheets!|Vault Defer Update!


! For administrative reasons, please mark a "Solution as solved" when the issue is solved !