OverrideName Example
Sub Example_OverrideName()
' This example returns the OverrideName for the first CogoPoint in the collection.
' This example assumes 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 OverrideName for the first CogoPoint in the collection is: " & _
cogoPnt.OverrideName, vbInformation, "OverrideName Example"
End Sub