![]() |
This document is archived and information here might be outdated. Recommended version. |
Add Vector Data to Globe.
///<summary>Add Vector Data to Globe</summary>
///
///<param name="globe">An IGlobe interface</param>
///<param name="globeLayerType">An esriGlobeLayerType enum. Example: ESRI.ArcGIS.GlobeCore.esriGlobeLayerType.esriGlobeLayerTypeDraped</param>
///<param name="layer">An ILayer interface</param>
///
///<remarks></remarks>
public void AddVectorDataToGlobe(ESRI.ArcGIS.GlobeCore.IGlobe globe, ESRI.ArcGIS.GlobeCore.esriGlobeLayerType globeLayerType, ESRI.ArcGIS.Carto.ILayer layer)
{
if (globe == null || layer == null || globeLayerType == ESRI.ArcGIS.GlobeCore.esriGlobeLayerType.esriGlobeLayerTypeElevation || globeLayerType == ESRI.ArcGIS.GlobeCore.esriGlobeLayerType.esriGlobeLayerTypeUnknown)
{
return;
}
ESRI.ArcGIS.GlobeCore.IGlobeDisplay globeDisplay=globe.GlobeDisplay;
ESRI.ArcGIS.GlobeCore.IGlobeDisplay2 globeDisplay2=globeDisplay as ESRI.ArcGIS.GlobeCore.IGlobeDisplay2; // Reference or Boxing Conversion
globeDisplay2.PauseCaching=true;
globe.AddLayerType(layer, globeLayerType, true);
ESRI.ArcGIS.GlobeCore.IGlobeDisplayLayers globeDisplayLayers=globeDisplay as ESRI.ArcGIS.GlobeCore.IGlobeDisplayLayers; // Reference or Boxing Conversion
ESRI.ArcGIS.GlobeCore.IGlobeLayerProperties globeLayerProperties=globeDisplayLayers.FindGlobeProperties(layer);
globeLayerProperties.IsDynamicallyRasterized=false;
globeDisplay2.PauseCaching=false;
}
'''<summary>Add Vector Data to Globe</summary> ''' '''<param name="globe">An IGlobe interface</param> '''<param name="globeLayerType">An esriGlobeLayerType enum. Example: ESRI.ArcGIS.GlobeCore.esriGlobeLayerType.esriGlobeLayerTypeDraped</param> '''<param name="layer">An ILayer interface</param> ''' '''<remarks></remarks> Public Sub AddVectorDataToGlobe(ByVal globe As ESRI.ArcGIS.GlobeCore.IGlobe, ByVal globeLayerType As ESRI.ArcGIS.GlobeCore.esriGlobeLayerType, ByVal layer As ESRI.ArcGIS.Carto.ILayer) If globe Is Nothing OrElse layer Is Nothing OrElse globeLayerType=ESRI.ArcGIS.GlobeCore.esriGlobeLayerType.esriGlobeLayerTypeElevation OrElse globeLayerType=ESRI.ArcGIS.GlobeCore.esriGlobeLayerType.esriGlobeLayerTypeUnknown Then Return End If Dim globeDisplay As ESRI.ArcGIS.GlobeCore.IGlobeDisplay=globe.GlobeDisplay Dim globeDisplay2 As ESRI.ArcGIS.GlobeCore.IGlobeDisplay2=CType(globeDisplay, ESRI.ArcGIS.GlobeCore.IGlobeDisplay2) ' Explicit Cast globeDisplay2.PauseCaching=True globe.AddLayerType(layer, globeLayerType, True) Dim globeDisplayLayers As ESRI.ArcGIS.GlobeCore.IGlobeDisplayLayers=CType(globeDisplay, ESRI.ArcGIS.GlobeCore.IGlobeDisplayLayers) ' Explicit Cast Dim globeLayerProperties As ESRI.ArcGIS.GlobeCore.IGlobeLayerProperties=globeDisplayLayers.FindGlobeProperties(layer) globeLayerProperties.IsDynamicallyRasterized=False globeDisplay2.PauseCaching=False End Sub