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