FullDescription Example
Sub Example_FullDescription()
' This example returns the FullDescription for the first CogoPoint in the collection.
Dim cogoPnt As AeccCogoPoint
Set cogoPnt = AeccApplication.ActiveProject.CogoPoints.Item(0)
MsgBox "The FullDescription for the first CogoPoint in the collection is: " & _
cogoPnt.FullDescription, vbInformation, "FullDescription Example"
End Sub