Возвращает коллекцию баз данных слоя Bases.

Применяется к:

Layer

Синтаксис:

Visual Basic:

Property Bases As Bases

read-only

Описание:

В коллекцию входят все базы данных, подключенные к слою: базы типов объектов и база, подключенная к примитивам. Каждый элемент коллекции — объект BaseInfo с ID базы, полным именем её файла и пользовательским названием.

Пример:

Visual Basic:

Sub Layer_Bases
'Берем активный слой карты
Set L = Zulu.ActiveMapDoc.Layers.Active
'Перечисляем базы данных слоя
Set B = L.Bases
S = "Баз данных у слоя: " & B.Count
For i = 0 To B.Count - 1
  S = S & vbCrLf & B.Item(i).Id & " - " & B.Item(i).UserName
Next
MsgBox S
End Sub

Python:

import zulu

def Macro_Layer_Bases():
    # Берем активный слой карты
    L = zulu.App.ActiveMapDoc.Layers.Active
    # Перечисляем базы данных слоя
    B = L.Bases
    print("Баз данных у слоя:", B.Count)
    for i in range(B.Count):
        print(B.Item(i).Id, "-", B.Item(i).UserName)