vba macro for VaultOpenFromVault Vault Open From Vault idw

[brun.mic]

Hi,

I made a few years ago a vba macro in order to open the drawing kid ( idw ) of a part or an assembly.

Since 2022, the macro doesnt work anymore.

I tested it with "VaultOpenFromVault" and "VaultOpenDesignDocFromVault".

Honnestly, It works once but never again.

Now it opens a Dialogbox to search files in the Vault.

I want to open it directly like the command from the model/features tree.

Any Ideas?

Thanks

Public Sub Zeichnungöffnen()

'Get the CommandManager object
Dim oCommandMgr As CommandManager
Set oCommandMgr = ThisApplication.CommandManager

'Get control definition for the line command
Dim oControlDef As ControlDefinition

Dim obj As Object

On Error GoTo Erorr1
Set obj = ThisApplication.ActiveDocument.SelectSet.Item(1)


If (TypeOf obj Is ComponentOccurrence) Then

Set oControlDef = oCommandMgr.ControlDefinitions.Item("VaultOpenFromVault")
Call oControlDef.Execute2(False)
GoTo EndSub:

End If

Erorr1:
Set oControlDef = oCommandMgr.ControlDefinitions.Item("VaultOpenFromVault")
Call oControlDef.Execute2(False)

EndSub:

End Sub

[bradeneuropeArthur]

try this:

If (TypeOf obj Is ComponentOccurrence) Then

Set oControlDef = oCommandMgr.ControlDefinitions.Item("VaultOpenFromVault")
Call oControlDef.Execute




End Sub

[brun.mic]

Hi bradeneuropeArthur,

Thanks for the reply.

I had alredy tried with Execute, Execute2(True) and Execute2(False)

But I always get the same browser window.

BR

Michel

[brun.mic]

Hi bradeneuropeArthur,

Thanks for the reply.

I had alredy tried with Execute, Execute2(True) and Execute2(False)

But I always get the same browser window.

BR

Michel

[brun.mic]

Hi,

what I'm looking for is the command  name of the button below:

Open Drawing from Vault...

BR

Michel

[aales]

Hi, you are correct, I think.

This code works in VBA in Immediate window in the same way as right-click menu option as you are looking for:

ThisApplication.CommandManager.ControlDefinitions.Item("VaultOpenDesignDocFromVault").Execute

You have to have focus on part with drawing.

It doesn't work for assembly for me.

But it doesn't solve my problem:

I need the path/name for this drawing file only, not to open it.

Any idea?

Thanks

[aelqabbany]

Hi @aales, give this a shot. If you need any help, let me know and I can walk you through it. You will want to run in it from the part or assembly file that you want the drawing for.

AddReference "Autodesk.Connectivity.WebServices.dll"
Imports AWS = Autodesk.Connectivity.WebServices
AddReference "Autodesk.DataManagement.Client.Framework.Vault.dll"
AddReference "Autodesk.DataManagement.Client.Framework.dll"
Imports VDF = Autodesk.DataManagement.Client.Framework
AddReference "Connectivity.Application.VaultBase.dll"
Imports VB = Connectivity.Application.VaultBase


Dim mVltCon As VDF.Vault.Currency.Connections.Connection
mVltCon = VB.ConnectionManager.Instance.Connection

'This depends on whether you are running from a part or an assembly
Dim oPart As PartDocument = ThisApplication.ActiveDocument
Dim VaultPath As String = oPart.FullFileName
VaultPath = VaultPath.Replace(".ipt", ".idw")

'this depends on the VaultPath on your computer. Because, it is system specific. In my system, “C:\$WorkingFolder\” is the local working folder of Vault.
VaultPath = VaultPath.Replace("C:\$WorkingFolder\", "$/")
'flip the slashes
VaultPath = VaultPath.Replace("\", "/")

Dim VaultPaths() As String = New String() {VaultPath}
 
Dim wsFiels() As AWS.File = mVltCon.WebServiceManager.DocumentService.FindLatestFilesByPaths(VaultPaths)

'Assuming that you only have one drawing file. Otherwise you might need to do a loop
Dim TargetDrawing As AWS.File = wsFiels(0)
Dim TargetDrawingFile As VDF.Vault.Currency.Entities.FileIteration = New VDF.Vault.Currency.Entities.FileIteration(mVltCon, TargetDrawing)

Dim settings As New VDF.Vault.Settings.AcquireFilesSettings(mVltCon)
settings.OptionsRelationshipGathering.FileRelationshipSettings.IncludeRelatedDocumentation = True
settings.OptionsRelationshipGathering.FileRelationshipSettings.VersionGatheringOption = VDF.Vault.Currency.VersionGatheringOption.Latest
settings.AddFileToAcquire(TargetDrawingFile, VDF.Vault.Settings.AcquireFilesSettings.AcquisitionOption.Download)

Dim aquiresults As VDF.Vault.Results.AcquireFilesResults = mVltCon.FileManager.AcquireFiles(settings)

For Each aquiresult As VDF.Vault.Results.FileAcquisitionResult In aquiresults.FileResults
	Dim aquiresultpath As String = aquiresult.LocalPath.FullPath
	MessageBox.Show(aquiresultpath)
Next

For more information see:

1. https://forums.autodesk.com/t5/inventor-ilogic-and-vb-net-forum/ilogic-open-drawing-from-vault-defau...
2. https://adndevblog.typepad.com/manufacturing/2019/04/connecting-vault-and-accessing-vault-file-statu...

[aales]

Thanks for reply @aelqabbany .

I try your code as iLogic rule (Am I right? - I am not very familiar with it) and receive error with code 1003.

The path to Vault project I have changed.

But VaultOpenDesignDocFromVault is quite robust statement  - it can open drawing with different name against part file name (except extension, of course). I am not sure about it with your code snap because I am beginner in Vault API.

[aelqabbany]

Hi @aales,

Yes, this is iLogic code. This code assumes that your drawing name is the same as the part name (minus the extension). I developed this because I wasn't able to get VaultOpenDesignDocFromVault working for me at all.