DescriptionOverride Example

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