10-11-2021
10:07 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
10-11-2021
10:07 AM
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 !