NameOverride Example

Land Auto

NameOverride Example

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