AlignEntities Example

AlignEntities Example

Sub Example_AlignEntities()

    ' This example gets the count of AlignEntities for the

    ' first alignment in the collection.

    Dim align As AeccAlignment

    Set align = AeccApplication.ActiveProject.Alignments.Item(0)

    Dim count As Integer

    ' Get the number of entities

    count = align.AlignEntities.count

    If count = 0 Then

        MsgBox; "The first Alignment in the collection has no entities.", _

            vbInformation;, "AlignEntities Example"

    ElseIf count = 1 Then

        MsgBox; "The first Alignment in the collection has 1 entity.", _

            vbInformation;, "AlignEntities Example"

    ElseIf count > 1 Then

        MsgBox; "The firstAlignment in the collection has " & count & " entities.", _

            vbInformation;, "AlignEntities Example"

    End If

End Sub