OverrideDescription Example

OverrideDescription Example

Sub Example_OverrideDescription()

    ' This example returns the OverrideDescription for the first CogoPoint in the collection.

    ' This example the first point in the collection is in a Point Group Named "Example Group".

    Dim cogoPnts As AeccCogoPoints

    Dim cogoPnt As AeccCogoPoint

    Set cogoPnts = AeccApplication.ActiveProject.CogoPoints

    ' Filter CogoPoints collection on GroupName

    cogoPnts.GroupName = "Example Group"

    Set cogoPnt = cogoPnts.Item(0)

    MsgBox "The OverrideDescription for the first CogoPoint in the collection is: " & _

        cogoPnt.OverrideDescription, vbInformation, "OverrideDescription Example"

End Sub