Contains Example

Contains Example

Sub Example_Contains ()

    'This example will check if an AecRing contains another AecRing.

    On Error Resume Next
    Dim pointList1(0 To 9) As Double
    Dim pointList2(0 To 9) As Double
    pointList1(0) = 0: pointList1(1) = 0
    pointList1(2) = 1: pointList1(3) = 0
    pointList1(4) = 1: pointList1(5) = 1
    pointList1(6) = 0: pointList1(7) = 1
    pointList1(8) = 0: pointList1(9) = 0

    pointList1(0) = 0.25: pointList1(1) = 0.25
    pointList1(2) = 0.75: pointList1(3) = 0.25
    pointList1(4) = 0.75: pointList1(5) = 0.75
    pointList1(6) = 0.25: pointList1(7) = 0.75
    pointList1(8) = 0.25: pointList1(9) = 0.25

    Dim ring1 As AecRing
    Dim ring2 As AecRing
    Dim profile1 As New AecProfile
    
    Dim doc As AecArchBaseDocument
    Set doc = AecArchBaseApplication.ActiveDocument
    Dim cprofiles As AecProfileStyles
    Dim profileStyle As AecProfileStyle
    Dim profile As AecProfile

    Set cprofiles = doc.ProfileStyles
    Set profileStyle = cprofiles.Item("ContainsRing")
    If profileStyle Is Nothing Then
        Set profileStyle = cprofiles.Add("ContainsRing")
    End If
    Set ring1 = profile1.Rings.Add
    Set ring2 = profile1.Rings.Add

    ring1.FromPoints (pointList1)
    ring2.FromPoints (pointList2)
    MsgBox "Ring1 contains Ring2 is: " & ring1.Contains(ring2)

End Sub