RawDescription Example

Land Auto

previous page next page

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

previous page start next page