Возвращает признак видимости бирки объекта.
Visual Basic:
Property LabelVisible As Boolean
read-only
Признак отражает тематическую раскраску: бирка объекта невидима, если в подключенном к слою тематическом файле для него задан параметр eThemeLabelInvisible из набора eThemeField.
Свойство доступно только для чтения, поскольку видимость задается не через стиль, а свойством Parameter объекта Theme.
False возвращает только стиль текущего отображения — CurrentElemStyle. Основной стиль объекта ElemStyle раскраску не учитывает и возвращает True независимо от нее.
Видимость самого объекта задается отдельным параметром и читается свойством Visible.
Visual Basic:
Sub ElemStyle_LabelVisible 'Берем активный слой карты Set L = Zulu.ActiveMapDoc.Layers.Active 'Создаем тематический файл. Путь укажите свой Set th = CreateObject("ZuluLib.Theme") th.Create "C:\Data\test.ztm", "Проба", L.Name 'Прячем бирку объекта с ключом 1: 29 - это eThemeLabelInvisible th.Parameter(1, 29) = 1 th.Save 'Подключаем раскраску к слою L.ThemeName = "C:\Data\test.ztm" 'Признак виден только в стиле текущего отображения Set obj = L.Elements.GetElement(1) MsgBox "Основной стиль: " & obj.ElemStyle.LabelVisible & vbCrLf & _ "Текущий стиль: " & obj.CurrentElemStyle.LabelVisible End SubPython:
import zulu def Macro_ElemStyle_LabelVisible(): # Берем активный слой карты L = zulu.App.ActiveMapDoc.Layers.Active # Создаем тематический файл. Путь укажите свой th = zulu.Theme() th.Create(r"C:\Data\test.ztm", "Проба", L.Name) # Прячем бирку объекта с ключом 1: 29 - это eThemeLabelInvisible. # В Python параметр записывается методом SetParameter th.SetParameter(1, 29, 1) th.Save() # Подключаем раскраску к слою L.ThemeName = r"C:\Data\test.ztm" # Признак виден только в стиле текущего отображения obj = L.Elements.GetElement(1) print("Основной стиль:", obj.ElemStyle.LabelVisible) print("Текущий стиль:", obj.CurrentElemStyle.LabelVisible)