Создает и открывает новый векторный слой.
Visual Basic:
Function Create(Path As String, UserName As String) As Boolean
Path - имя файла или URL создаваемого слоя.
UserName - пользовательское название слоя.
Метод возвращает True, если слой создан и открыт, и False, если создать его не удалось — например, папки для слоя не существует.
Новый слой пуст и не содержит типов объектов, поэтому в него добавляются примитивы. Если слой с таким именем уже существует, он создаётся заново: прежние объекты теряются.
В случае неудачи возникает исключение с одним из следующих кодов:
Код
Описание
512 Слой уже открыт.
Visual Basic:
Sub Layer_Create 'Создаем новый слой и открываем его Set L = CreateObject("ZuluLib.Layer") If Not L.Create("C:\Data\newlayer", "Новый слой") Then MsgBox "Слой не создан" Exit Sub End If 'Типов в новом слое нет, поэтому добавляем примитив - ломаную Set PL = CreateObject("ZuluLib.PolyLine") PL.AddPoint 0, 0 PL.AddPoint 1000, 1000 MsgBox "Создан слой «" & L.UserName & "», добавлена ломаная " & _ L.AddPolyLine(PL, CreateObject("ZuluLib.ElemStyle"), -1, -1) End SubPython:
import zulu def Macro_Layer_Create(): # Создаем новый слой и открываем его L = zulu.Layer() if not L.Create(r"C:\Data\newlayer", "Новый слой"): print("Слой не создан") return # Типов в новом слое нет, поэтому добавляем примитив - ломаную PL = zulu.PolyLine() PL.AddPoint(0, 0) PL.AddPoint(1000, 1000) print("Создан слой", L.UserName, ", добавлена ломаная", L.AddPolyLine(PL, zulu.ElemStyle(), -1, -1))