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