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

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

ExcludeSymbolsParams

Синтаксис:

Visual Basic:

Sub AddSumValuesField(sFldName As String)

sFldName - имя поля семантической базы участков.

Описание:

Объединенный участок получает в указанном поле сумму значений исходных участков. Метод добавляет одно поле; чтобы суммировать несколько, вызывается несколько раз.

Пример:

Visual Basic:

Sub ExcludeSymbolsParams_AddSumValuesField
'Берем активный слой карты
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.AddSumValuesField "L"
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_AddSumValuesField():
    # Берем активный слой карты
    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.AddSumValuesField("L")
    S = L.Selection
    S.SelectAll()
    n = L.ElementKeys.Count
    S.ExcludeSymbolsEx(P)
    print("Объектов было:", n, "стало:", L.ElementKeys.Count)