区画ループを調べる

AeccParcel.ParcelLoops コレクションを使用すると、区画を構成している区画セグメント要素を調べることができます。 このコレクションには、AeccParcelSegmentElement 型のオブジェクトが格納されています。各区画セグメント要素には区画セグメントの参照が含まれているので、区画の作成に使用されるセグメントも調べることができます。

' Loop through all elements used to make parcel "oParcel"
 
Dim i as Integer
For i = 0 to oParcel.ParcelLoops.Count - 1
    Dim oElement As AeccParcelSegmentElement
    Set oElement = oParcel.ParcelLoops.Item(i)
 
    Debug.Print "Element " & i _
      & " of segment " & oElement.ParcelSegment.Name & ": " _
      & oElement.StartX & "," & oElement.StartY & " to " _
      & oElement.EndX & ", " & oElement.EndY
 
    If (TypeOf oElement Is AeccParcelSegmentLine) Then
        Dim oSegmentLine As AeccParcelSegmentLine
        Set oSegmentLine = oElement
        Debug.Print " is a line. "
    ElseIf (TypeOf oElement Is AeccParcelSegmentCurve) Then
        Dim oSegmentCurve As AeccParcelSegmentCurve
        Set oSegmentCurve = oElement
        Debug.Print " is a curve with a radius of:" _
          & oSegmentCurve.Radius
    End If
Next i