RawDescription Example

RawDescription Example

Sub Example_RawDescription()

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

    Dim cogoPnt As AeccCogoPoint

    Set cogoPnt = AeccApplication.ActiveProject.CogoPoints.Item(0)

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

        cogoPnt.RawDescription, vbInformation, "RawDescription Example"

End Sub