Возвращает признак видимости объекта.

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

ElemStyle

Синтаксис:

Visual Basic:

Property Visible As Boolean

read-only

Описание:

Признак отражает тематическую раскраску: объект невидим, если в подключенном к слою тематическом файле для него задан параметр eThemeInvisible из набора eThemeField.

Свойство доступно только для чтения, поскольку видимость задается не через стиль, а свойством Parameter объекта Theme.

False возвращает только стиль текущего отображения — CurrentElemStyle. Основной стиль объекта ElemStyle раскраску не учитывает и возвращает True независимо от нее.

Пример:

Visual Basic:

Sub ElemStyle_Visible
'Берем активный слой карты
Set L = Zulu.ActiveMapDoc.Layers.Active
'Создаем тематический файл. Путь укажите свой
Set th = CreateObject("ZuluLib.Theme")
th.Create "C:\Data\test.ztm", "Проба", L.Name
'Прячем объект с ключом 1: 23 - это eThemeInvisible
th.Parameter(1, 23) = 1
th.Save
'Подключаем раскраску к слою
L.ThemeName = "C:\Data\test.ztm"
'Признак виден только в стиле текущего отображения
Set obj = L.Elements.GetElement(1)
MsgBox "Основной стиль: " & obj.ElemStyle.Visible & vbCrLf & _
       "Текущий стиль: " & obj.CurrentElemStyle.Visible
End Sub

Python:

import zulu

def Macro_ElemStyle_Visible():
    # Берем активный слой карты
    L = zulu.App.ActiveMapDoc.Layers.Active
    # Создаем тематический файл. Путь укажите свой
    th = zulu.Theme()
    th.Create(r"C:\Data\test.ztm", "Проба", L.Name)
    # Прячем объект с ключом 1: 23 - это eThemeInvisible.
    # В Python параметр записывается методом SetParameter
    th.SetParameter(1, 23, 1)
    th.Save()
    # Подключаем раскраску к слою
    L.ThemeName = r"C:\Data\test.ztm"
    # Признак виден только в стиле текущего отображения
    obj = L.Elements.GetElement(1)
    print("Основной стиль:", obj.ElemStyle.Visible)
    print("Текущий стиль:", obj.CurrentElemStyle.Visible)