Сообщество программистов Autodesk в СНГ :: Связь надстройки Vault Add-in в AutoCAD 2014

Сообщество программистов Autodesk в СНГ
Vault API
Связь надстройки Vault Add-in в AutoCAD 2014

12/02/2014

Связь надстройки Vault Add-in в AutoCAD 2014

Возможно, вы хотели бы получить подключение к серверу Vault из надстройки Vault Add-in в AutoCAD 2014. Ниже приведен пример на VB.NET, который проделывает эту операцию. Пожалуйста, имейте в виду, что этот подход не проходил ни через никакие системы проверки качества (QA) и официально не поддерживается. Тем не менее, в тестах он работает.

Скачайте проект Visual Studio: AutoCAD_Vault_2014_get_Connection.

Обсуждение в этой ветке форума имеет предложение по получению подключения к серверу из надстройки AutoCAD 2013 Vault Add-In: http://forums.autodesk.com/t5/Autodesk-Vault-Customization/Get-Securityheader-from-Vault-Login-in-AutoCAD/td-p/3773017

Код из проекта AutoCAD VB.NET:

Код - VBA: [Выделить]

<CommandMethod("MyGroup", "testVault", "testVault",
    CommandFlags.Modal)> _
Public Sub test_Vault()
    Dim ed As Editor = Application.DocumentManager.
                           MdiActiveDocument.Editor
    Dim myConnection As VDF.Vault.Currency.
                  Connections.Connection = Nothing
    ' Получить подключение в Vault из
    ' подключения AutoCAD Vault
    myConnection = Connectivity.Application.
                    VaultBase.ConnectionManager.
                           Instance.Connection()
    If myConnection Is Nothing Then
        ed.WriteMessage _
             ("Невозможно подключиться к Vault")
        Return
    End If
    ' проверка подключения
    Dim myRootFolder As Folder =
        myConnection.FolderManager.RootFolder()
    Dim myWebServ As WebServiceManager =
                 myConnection.WebServiceManager
    Dim myDocServ As DocumentService =
                        myWebServ.DocumentService
    Dim MyFolder As Folder = Nothing
    Try
        ' Необходимо сменить строковый аргумент
        ' к папке в вашем хранилище
        MyFolder = myDocServ.
            GetFolderByPath("$/wb_Excel_Files")
        ed.WriteMessage("$/wb_Excel_Files создан: " _
                     & MyFolder.CreateDate.ToString())
    Catch ex As System.Exception
        ed.WriteMessage(" невозможно получить папку.  " & _
                                       ex.ToString())
    End Try
End Sub