Добавляет тип и режим символьных объектов, для которых участки объединяются безусловно.

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

ExcludeSymbolsParams

Синтаксис:

Visual Basic:

Sub AddTypeMode(TypeID As Long, ModeNum As Long, nExcludeMode As Long)

TypeID - ID типа объекта.

ModeNum - номер режима.

nExcludeMode - признак исключения символов указанного типа и режима.

Описание:

Метод задает, символы каких типов и режимов участвуют в операции. Вызывается столько раз, сколько нужно добавить сочетаний типа и режима.

Если nExcludeMode равен 0, символы указанного типа и режима не исключаются; при любом ненулевом значении — исключаются. Конкретная величина ненулевого значения на результат не влияет.

Пока не добавлено ни одного типа и режима, Selection.ExcludeSymbolsEx не выполняет никаких действий.

Пример:

Visual Basic:

Sub ExcludeSymbolsParams_AddTypeMode
'Берем активный слой карты
Set L = Zulu.ActiveMapDoc.Layers.Active
Set P = CreateObject("ZuluLib.ExcludeSymbolsParams")
'Добавляем все символьные типы слоя со всеми их режимами
Set OTs = L.ObjectTypes
For i = 0 To OTs.Count - 1
  Set T = OTs.GetItemByIndex(i)
  'GraphicType = 1 - символьный тип
  If T.GraphicType = 1 Then
    'нумерация режимов начинается с единицы
    For m = 1 To T.Modes.Count - 1
      P.AddTypeMode T.Id, m, 1
    Next
  End If
Next
'Выделяем все объекты слоя и выполняем операцию
Set S = L.Selection
S.SelectAll
n = L.ElementKeys.Count
S.ExcludeSymbolsEx P
MsgBox "Объектов было: " & n & vbCrLf & "стало: " & L.ElementKeys.Count
End Sub

Python:

import zulu

def Macro_ExcludeSymbolsParams_AddTypeMode():
    # Берем активный слой карты
    L = zulu.App.ActiveMapDoc.Layers.Active
    P = zulu.ExcludeSymbolsParams()
    # Добавляем все символьные типы слоя со всеми их режимами
    OTs = L.ObjectTypes
    for i in range(OTs.Count):
        T = OTs.GetItemByIndex(i)
        # GraphicType = 1 - символьный тип
        if T.GraphicType == 1:
            # нумерация режимов начинается с единицы
            for m in range(1, T.Modes.Count):
                P.AddTypeMode(T.Id, m, 1)
    # Выделяем все объекты слоя и выполняем операцию
    S = L.Selection
    S.SelectAll()
    n = L.ElementKeys.Count
    S.ExcludeSymbolsEx(P)
    print("Объектов было:", n, "стало:", L.ElementKeys.Count)