Устанавливает флаги объединения участков при исключении символьных объектов.

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

ExcludeSymbolsParams

Синтаксис:

Visual Basic:

Sub SetJoinFlags(nFlags As Long)

nFlags - флаги объединения участков.

Описание:

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

0	условие не проверяется
1	у смежных участков должны совпадать типы
2	дополнительно к типам должны совпадать режимы
3	должны совпадать и типы, и режимы

Если условие не выполняется, символ не исключается и участки не объединяются.

Пример:

Visual Basic:

Sub ExcludeSymbolsParams_SetJoinFlags
'Берем активный слой карты
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)
  If T.GraphicType = 1 Then
    For m = 1 To T.Modes.Count - 1
      P.AddTypeMode T.Id, m, 1
    Next
  End If
Next
P.SetJoinFlags 0
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_SetJoinFlags():
    # Берем активный слой карты
    L = zulu.App.ActiveMapDoc.Layers.Active
    P = zulu.ExcludeSymbolsParams()
    # Без добавленных типов операция не выполняется
    OTs = L.ObjectTypes
    for i in range(OTs.Count):
        T = OTs.GetItemByIndex(i)
        if T.GraphicType == 1:
            for m in range(1, T.Modes.Count):
                P.AddTypeMode(T.Id, m, 1)
    P.SetJoinFlags(0)
    S = L.Selection
    S.SelectAll()
    n = L.ElementKeys.Count
    S.ExcludeSymbolsEx(P)
    print("Объектов было:", n, "стало:", L.ElementKeys.Count)