Метод возвращает индекс расчетной модели для опубликованного слоя.
Visual Basic:
Function GetModel() As Long
0 - модель не используется.
1 - ZuluThermo.
2 - ZuluHydro.
3 - ZuluSteam.
4 - ZuluGaz.
5 - ZuluDrain.
Sub Layer_GetModel Set L = Zulu.ActiveMapDoc.Layers.Active 'получаем объект с параметрами опубликованного слоя по индексу 0 Set param = L.GetWebParams(0) 'получаем значение модели и выводим в отдельное окно для проверки output = param.GetModel MsgBox(output) End Sub