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