Свойство возвращает уникальный идентификатор базы данных в слое.
BaseInfo
Visual Basic: Property Id() As Long read only
Visual Basic:
Property Id() As Long
read only
Sub BaseInfo_Id Set L = Zulu.ActiveMapDoc.Layers.Active ' выводим ID базы по индексу 0 MsgBox(L.Bases.Item(0).ID) End Sub