FullDescription Example

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