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

Multiple Inventor Drawing Opened Files Check in

Hi Guys,

I need to check in the multiple drawing files into vault by default macros in inventor.

 

For that, I tried using with the below code. 

 

Sub CheckInMultipleOpenDrawings()

Dim oDoc As Inventor.Document

For Each oDoc In ThisApplication.Documents.VisibleDocuments

If oDoc.DocumentType <> kDrawingDocumentObject Then
GoTo NextDoc

ElseIf oDoc.DocumentType = kDrawingDocumentObject Then

oDoc.Save

Set ControlDefinition = ThisApplication.CommandManager.ControlDefinitions.Item("VaultCheckinTop")
ControlDefinition.Execute2 (True)

oDoc.Close
End If

NextDoc:
Next

MsgBox "Checked-in the drawings"
End Sub

 

In that it will checking in only one or two files. Not working for all the opened drawing files.

 

If u have any ideas to check multiple drawing files via macro..

Please suggest..