DescriptionOverride Example

Land Auto

DescriptionOverride Example

Sub Example_DescriptionOverride()
    
    ' This function gets the DescriptionOverride for the first PointGroup
    ' in the collection.
    Dim pntGrp As AeccPointGroup
    Set pntGrp = AeccApplication.ActiveProject.PointGroups.Item(0)
    
    If pntGrp.DescriptionOverride = True Then
        MsgBox "The DescriptionOveride for the first PointGroup is turned on.", _
            vbInformation, "DescriptionOverride Example"
    Else
        MsgBox "The DescriptionOveride for the first PointGroup is turned off.", _
            vbInformation, "DescriptionOverride Example"
    End If
    
End Sub