CombinePolyContours method (ZGeometry)

Выполняет над двумя регионами одну из геометрических операций из набора eCombineMode.

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

ZGeometry

Синтаксис:

Visual Basic:

Function CombinePolyContours(Region1 As PolyContour, Region2 As PolyContour, Mode As eCombineMode, Flags As Long) As PolyContour

Region1 - первый регион.

Region2 - второй регион.

Mode - тип операции.

Flags - зарезервирован, должен быть 0.

Описание:

Результат выполнения геометрической операции над двумя регионами возвращается в виде нового региона PolyContour.

Пример:

'Получаем два площадных объекта слоя L1 и записываем их объединение в слой L2
Dim c1 As PolyContour
Dim c2 As PolyContour
Dim c3 As PolyContour

Dim el1 As Element
Dim el2 As Element

Dim G As ZGeometry

'Получаем объект с ключом id1
Set el1 = L1.Elements.GetElement(id1)
'Получаем объект с ключом id2
Set el2 = L1.Elements.GetElement(id2)

'Если оба объекта получены
If el1.Key <> -1 AND el2.Key <> -1 Then

  Set c1 = el1.PolyContour
  Set c2 = el2.PolyContour
   
    'Если оба объекта площадные
    If TypeName(c1) = "IPolyContour" AND TypeName(c2) = "IPolyContour" Then

    'Создали объект для вызова метода 
    Set G = New ZGeometry

    'Получаем объединение объектов
    Set c3 = G.CombinePolyContours(c1, c2, eCombineModeOr, 0)

    'Записываем результат объединения в слой L2
    L2.Active.AddPolyContour c3, Nothing, -1, -1

  End If

End If