Description Example

Description Example

Sub Example_Description()

    ' This example will display the description of an AEC Entity.

    Dim obj As AcadObject
    Dim pt As Variant
    ThisDrawing.Utility.GetEntity obj, pt, "Select AEC Object"
    If TypeOf obj Is AecGeo Then
        Dim AecGeo As AecGeo
        ' AecGeo is the base class for all the drawn AEC Entities
        Set AecGeo = obj
        MsgBox "AEC Description:" & AecGeo.Description, vbInformation, "Description Example"
    Else
        MsgBox "No AEC Entity selected", vbInformation, "Description Example"
    End If

End Sub