Лоцман клиент API и VBScript

[Matvey Kushakov]

Приветствую!

Есть ли возможность использования Лоцман клиент API из скрипта на VBS? Хочу в коде входного транслятора дополнить модель единицами измерения количества материалов, но не врубаюсь, как это сделать. По сути мне нужно получить ссылку на интерфейс IPluginCall, чтобы через функции RunMethod и GetDataSet задействовать функции Лоцман API. Или есть более прямой путь использования Лоцман API или скрипта VBS?

[Slaviation]

Добрый день.

По сути мне нужно получить ссылку на интерфейс IPluginCall

Гляньте в дистрибутивный транслятор K3D_Universal.vbs для прокси "КОМПАС-3D Сборка и Деталь".
Там во все функции транслятора, которые вызывает модуль интегратора - fTransForProxy_02, fTransForLoodsman_02, fTransRequest_02, fTransMask_02 - передается параметр AProxyCall.

[Matvey Kushakov]

Добрый день.Гляньте в дистрибутивный транслятор K3D_Universal.vbs для прокси "КОМПАС-3D Сборка и Деталь".
Там во все функции транслятора, которые вызывает модуль интегратора - fTransForProxy_02, fTransForLoodsman_02, fTransRequest_02, fTransMask_02 - передается параметр AProxyCall.

Благодарю за ответ! Правда я уже сам разобрался, как следует решать поставленную задачу. Во первых, я не сразу обратил внимание, что у количества ещё есть подсвойства ID единицы измерения и ID измеряемой сущности, содержащие ID из справочника Единицы измерения. Во-вторых, в пылу атаки я разобрался, как подключаться к серверу приложений через объект DataProvider.LoodsmanConnection и выдёргивать из него интерфейс IPluginCall, но для данной задачи это путь от лукавого.
Короче решил задачу обращением к справочнику Единицы измерения через его API.

[a_sumenkov]

Короче решил задачу обращением к справочнику Единицы измерения через его API.

Добрый день! А где можно найти SDK для справочника единиц измерений?
Просто на стенде клиента в папке Measurement только xml-файл, содержащий собственно сам справочник. Непонятно, как в таком случае добавлять новые элементы в справочник

[Bobua]

я разобрался, как подключаться к серверу приложений через объект DataProvider.LoodsmanConnection и выдёргивать из него интерфейс IPluginCall

Здравствуйте! Не вспомните пожалуйста как выполнять этот процесс спустя 4 года? Столкнулся с проблемой выдергивания этого интерфейса и ищу все способы.

[teplinskiy]

...как выполнять этот процесс спустя 4 года?

по старой схеме, например:

Код Выделить Развернуть

Const APP_TITLE="Test"

Set cnn = CreateObject("DataProvider.LoodsmanConnection")

cnn.Connected = True

MsgBox cnn.API8.RunMethod("AppServerName", Array())

s = cnn.API8.RunMethod("GetDBList", Array())
Do
  s = InputBox("Database. Input only one name", APP_TITLE, s)
  If s="" Then break
Loop While InStr(1, s, ",")>0

i = cnn.API8.ShowDBConnectionDialog(s)
MsgBox i
If i=-1 Then break

cnn.API8.RunMethod "ConnectToDB", Array(s)

Set ds = cnn.API8.GetDataSet("GetProjectList", Array())

s = ""
Do While Not ds.Eof
  s = s & ds.FieldValue("_TYPE") & Chr(9) & ds.FieldValue("_PRODUCT") & Chr(13)
  ds.Next
Loop

MsgBox s, vbOKOnly, APP_TITLE & " - GetProjectList"

ну и по новой схеме (версия 2017+), например:

Код Выделить Развернуть

stDBName = "DemoMash"
stSPName = "MY-SP-COMP"

Set objConnFactSP = CreateObject("Ascon.Plm.ServerApi.ConnectionFactory")
Set objConnSP = objConnFactSP.CreateConnection(stSPName, 8076)
Set objMainSysSP = objConnSP.MainSystem
 
Set dtDataSet = CreateObject("DataProvider.DataSet")

objMainSysSP.ConnectToDBEx stDBName, "Администратор", "Администратор", errCode, errMsg

dtDataSet.Data = objMainSysSP.GetProjectList([], errCode, errMsg)
...
objConnSP.Close