1if (pointGroup.IsElevationOverridden)
 2{
 3    write("PointGroup elevation is overridden.\n");
 4    PointGroupElevationOverrideInfo elevationOverrideInfo = pointGroup.ElevationOverride;
 5    switch (elevationOverrideInfo.ActiveOverrideType)
 6    {
 7        case PointGroupOverrideType.FixedValue:
 8            write(String.Format(" - Elevation override type: fixed \n   value: {0}\n",
 9                elevationOverrideInfo.FixedElevation));
10            break;
11        case PointGroupOverrideType.UserDefinedProperty:
12            write(String.Format(" - Elevation override type: UDP \n   UDP name: {0}\n",
13                elevationOverrideInfo.UDP.ClassificationName));
14            break;
15        case PointGroupOverrideType.XDRef:
16            ObjectId xdrefId = elevationOverrideInfo.XDRefId;
17            write(" - Elevation override type: XDRef ");
18            break;
19        default:
20            break;
21    }
22}

 1If pointGroup__1.IsElevationOverridden Then
 2  write("PointGroup elevation is overridden." & vbLf)
 3  Dim elevationOverrideInfo As PointGroupElevationOverrideInfo = pointGroup__1.ElevationOverride
 4  Select Case elevationOverrideInfo.ActiveOverrideType
 5    Case PointGroupOverrideType.FixedValue
 6      write([String].Format(" - Elevation override type: fixed " & vbLf & "   value: {0}" & vbLf, elevationOverrideInfo.FixedElevation))
 7      Exit Select
 8    Case PointGroupOverrideType.UserDefinedProperty
 9      write([String].Format(" - Elevation override type: UDP " & vbLf & "   UDP name: {0}" & vbLf, elevationOverrideInfo.UDP.ClassificationName))
10      Exit Select
11    Case PointGroupOverrideType.XDRef
12      Dim xdrefId As ObjectId = elevationOverrideInfo.XDRefId
13      write(" - Elevation override type: XDRef ")
14      Exit Select
15    Case Else
16      Exit Select
17  End Select
18End If