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