GlobeCore

IGlobe glbDisplay;
IGlobeDisplayLayers globeDispLayers;
IGlobeLayerProperties globeLayerProps;
globeDispLayers = (IGlobeDisplayLayers)glbDisplay;
ILayer layer;
IEnumLayer enumLayer;
enumLayer = glbDisplay.get_GlobeLayers(null, false, true, true);
//Return all the layers in the base globe sorted by drawing priority.
layer = enumLayer.Next();
{
    globeLayerProps = globeDispLayers.FindGlobeProperties(layer);
    int maxLod = 0;
    int LOD = 2; //Set it to a preferred LOD value.
    while (layer != null)
        if (globeLayerProps.maxLOD ==  - 1)
    // A value of -1 indicates that the level of detail is not yet set.
            globeLayerProps.maxLOD = LOD;
    globeDispLayers.RefreshLayer(layer);
    layer = enumLayer.Next();
}

Private glbDisplay As IGlobe
Private globeDispLayers As IGlobeDisplayLayers
Private globeLayerProps As IGlobeLayerProperties
globeDispLayers = CType(glbDisplay, IGlobeDisplayLayers)
Dim layer As ILayer
Dim enumLayer As IEnumLayer
enumLayer = glbDisplay.get_GlobeLayers(Nothing, False, True, True)
'Return all the layers in the base globe sorted by drawing priority.
layer = enumLayer.Next()
globeLayerProps = globeDispLayers.FindGlobeProperties(layer)
Dim maxLod As Integer = 0
Dim LOD As Integer = 2 'Set it to a preferred LOD value.
Do While Not layer Is Nothing
    If globeLayerProps.maxLOD = -1 Then ' A value of -1 indicates that the level of detail
        'is not yet set.
        globeLayerProps.maxLOD = LOD
    End If
Loop
globeDispLayers.RefreshLayer(layer)
layer = enumLayer.Next()

IDocument document = null;
IScene scene = null;
IRasterLayer pRasLayer = null;
ILayer layer = null;
layer = pRasLayer;
IGlobe globe = null;
IGMxDocument gMxDoc = null;
gMxDoc = (IGMxDocument)document;
globe = (IGlobe)scene;
globe.AddLayerType(layer, esriGlobeLayerType.esriGlobeLayerTypeElevation);

Dim document As IDocument
Dim scene As IScene
Dim pRasLayer As IRasterLayer
Dim layer As ILayer
layer = pRasLayer
Dim globe As IGlobe
Dim gMxDoc As IGMxDocument
gMxDoc = CType(document, IGMxDocument)
globe = CType(scene, IGlobe)
globe.AddLayerType(layer, esriGlobeLayerType.esriGlobeLayerTypeElevation)

try
{
    //Open an ArcGlobe session, and add the layer to the application.
    IApplication application = null;
    IDocument document = null;

    //pDoc = New GMxDocument
    application = document.Parent;
    //Make the ArcGlobe session visible.
    application.Visible = true;
    IObjectFactory objectFactory = null;
    objectFactory = (IObjectFactory)application;
    UID pUID = new UID();
    string SID = null;
    IRasterLayer rasterLayer = null;

    SID = "esricarto.RasterLayer";
    pUID.Value = SID;
    rasterLayer = (IRasterLayer)(objectFactory.Create(pUID));
    rasterLayer.CreateFromFilePath("D:\\ArcGlobe\\redlands\\gdredlands");
    //Create the GlobeLayerProperties extension.
    IGlobeLayerProperties glbLyrPrp = null;
    SID = "esriglobecore.GlobeLayerProperties";
    glbLyrPrp = (IGlobeLayerProperties)(objectFactory.Create(SID));

    //Set some of the properties.
    glbLyrPrp.Type = esriGlobeDataType.esriGlobeDataElevation;
    //This will force the raster to be an elevation source.
    glbLyrPrp.ImageSamplingMode =
        esriGlobeImageSamplingMode.esriGlobeImageSamplingNearest;
    //Will not be honored for elevation data.
    glbLyrPrp.PutLossyCompressionOption(true, 70);
    glbLyrPrp.Use16ElevationBits = false;

    //Create GlobeHeightProperties.
    IGlobeHeightProperties glblyrHghtProp = null;
    SID = "esriglobecore.GlobeHeightProperties";
    glblyrHghtProp = (IGlobeHeightProperties)(objectFactory.Create(SID));
    //Set some of the properties.
    glblyrHghtProp.ZFactor = 0.0348; //Apply factor to convert from feet to meters.
    //Add the layer height properties.
    glbLyrPrp.HeightProperties = glblyrHghtProp;
    //Add the extension.
    ILayer layer = null;
    ILayerExtensions lyrExt = null;
    layer = rasterLayer;
    lyrExt = (ILayerExtensions)layer;
    lyrExt.AddExtension(glbLyrPrp);

    //Check to see if the extension was added.
    for (int j = 0; j < lyrExt.ExtensionCount; j++)
    {
        if (lyrExt.Extension[j] is IGlobeLayerProperties)
        {
            glbLyrPrp = (IGlobeLayerProperties)(lyrExt.Extension[j]);
            Debug.Print(System.Convert.ToString(lyrExt.ExtensionCount));
        }
    }
    IGlobeDisplay glbDisp = null;
    IGlobe globe = null;
    IScene scene = null;
    IGMxDocument gmxdoc = null;
    gmxdoc = (IGMxDocument)document;
    scene = gmxdoc.Scene;
    globe = (IGlobe)scene;
    glbDisp = globe.GlobeDisplay;
    IGlobeDisplayLayers glbdispLyr = null;
    glbdispLyr = (IGlobeDisplayLayers)glbDisp;
    IGlobeLayerProperties glbLyrPropsCurr = null;

    //Query to see if the GlobeLayer property, as set above, is honored.
    //By default, when a raster layer is added, it will be treated as an image.
    //However, since you set glbLyrPrp.Type = esriGlobeDataElevation, 
    //it should be added as an elevation layer.
    glbLyrPropsCurr = glbdispLyr.FindGlobeProperties(layer);
    esriGlobeDataType glbdatatype = null;
    glbdatatype = glbLyrPropsCurr.Type;
    Debug.Print(System.Convert.ToString(glbdatatype));
    gmxdoc.Addlayer(layer);
    return ;
}

catch (Exception ex)
{
    Debug.Print(ex.Message);
}

Sub AddLyrExtension()
    
    Try
    'Open an ArcGlobe session, and add the layer to the application.
    Dim application As IApplication
    Dim document As IDocument
    
    'pDoc = New GMxDocument
    application = document.Parent
    'Make the ArcGlobe session visible.
    application.Visible = True
    Dim objectFactory As IObjectFactory
    objectFactory = CType(application, IObjectFactory)
    Dim pUID As New UID
    Dim SID As String
    Dim rasterLayer As IRasterLayer
    
    SID = "esricarto.RasterLayer"
    pUID.Value = SID
    rasterLayer = CType(objectFactory.Create(pUID), IRasterLayer)
    rasterLayer.CreateFromFilePath("D:\ArcGlobe\redlands\gdredlands")
    
    'Create the GlobeLayerProperties extension.
    Dim glbLyrPrp As IGlobeLayerProperties
    SID = "esriglobecore.GlobeLayerProperties"
    glbLyrPrp = CType(objectFactory.Create(SID), IGlobeLayerProperties)
    'Set some of the properties.
    glbLyrPrp.Type = esriGlobeDataType.esriGlobeDataElevation
    'This will force the raster to be an elevation source.
    glbLyrPrp.ImageSamplingMode = esriGlobeImageSamplingMode.esriGlobeImageSamplingNearest
    'Will not be honored for elevation data.
    glbLyrPrp.PutLossyCompressionOption(True, 70)
    glbLyrPrp.Use16ElevationBits = False
    'Create GlobeHeightProperties.
    Dim glblyrHghtProp As IGlobeHeightProperties
    SID = "esriglobecore.GlobeHeightProperties"
    glblyrHghtProp = CType(objectFactory.Create(SID), IGlobeHeightProperties)
    'Set some of the properties.
    glblyrHghtProp.ZFactor = 0.0348 'Apply factor to convert from feet to meters.
    'Add the layer height properties.
    glbLyrPrp.HeightProperties = glblyrHghtProp
    
    'Add the extension.
    Dim layer As ILayer
    Dim lyrExt As ILayerExtensions
    layer = rasterLayer
    lyrExt = CType(layer, ILayerExtensions)
    lyrExt.AddExtension(glbLyrPrp)
    
    'Check to see if the extension was added.
    For j As Integer = 0 To lyrExt.ExtensionCount - 1
        If TypeOf lyrExt.Extension(j) Is IGlobeLayerProperties Then
            glbLyrPrp = CType(lyrExt.Extension(j), IGlobeLayerProperties)
            Debug.Print(CStr(lyrExt.ExtensionCount))
        End If
    Next
    
    Dim glbDisp As IGlobeDisplay
    Dim globe As IGlobe
    Dim scene As IScene
    Dim gmxdoc As IGMxDocument
    gmxdoc = CType(document, IGMxDocument)
    scene = gmxdoc.Scene
    globe = CType(scene, IGlobe)
    glbDisp = globe.GlobeDisplay
    Dim glbdispLyr As IGlobeDisplayLayers
    glbdispLyr = CType(glbDisp, IGlobeDisplayLayers)
    Dim glbLyrPropsCurr As IGlobeLayerProperties
    
    'Query to see if the GlobeLayer property, as set above, is honored.
    'By default, when a raster layer is added, it will be treated as an image.
    'However, since you set glbLyrPrp.Type = esriGlobeDataElevation,
    'it should be added as an elevation layer.
    glbLyrPropsCurr = glbdispLyr.FindGlobeProperties(layer)
    Dim glbdatatype As esriGlobeDataType
    glbdatatype = glbLyrPropsCurr.Type
    Debug.Print(CStr(glbdatatype))
    gmxdoc.Addlayer(layer)
    Exit Sub
    Catch ex As Exception
    Debug.Print(ex.Message)
    End Try
    
End Sub