About the Creating a toolbar of globe tools Sample
[C#]
PolygonElement.cs
using ESRI.ArcGIS.Geometry; using ESRI.ArcGIS.Carto; using ESRI.ArcGIS.Analyst3D; using ESRI.ArcGIS.Display; using ESRI.ArcGIS.esriSystem; using ESRI.ArcGIS.GlobeCore; namespace GlobeGraphicsToolbar { public class PolygonElement { private IElement _element; private IGlobeGraphicsElementProperties _elementProperties; public PolygonElement(IGeometry geometry, esriSimpleFillStyle simpleFillStyle) { _element = GetElement(geometry, simpleFillStyle); _elementProperties = GetElementProperties(); } private IElement GetElement(IGeometry geometry, esriSimpleFillStyle simpleFillStyle) { IElement element; IPolygonElement polygonElement = new PolygonElementClass(); element = polygonElement as IElement; IFillShapeElement fillShapeElement = polygonElement as IFillShapeElement; ISimpleFillSymbol simpleFillSymbol = new SimpleFillSymbolClass(); simpleFillSymbol.Style = simpleFillStyle; simpleFillSymbol.Color = ColorSelection.GetColor(); element.Geometry = geometry; fillShapeElement.Symbol = simpleFillSymbol; return element; } private IGlobeGraphicsElementProperties GetElementProperties() { IGlobeGraphicsElementProperties elementProperties = new GlobeGraphicsElementPropertiesClass(); elementProperties.Rasterize = true; return elementProperties; } public IElement Element { get { return _element; } } public IGlobeGraphicsElementProperties ElementProperties { get { return _elementProperties; } } } }
[Visual Basic .NET]
PolygonElement.vb
Imports Microsoft.VisualBasic Imports System Imports ESRI.ArcGIS.Geometry Imports ESRI.ArcGIS.Carto Imports ESRI.ArcGIS.Analyst3D Imports ESRI.ArcGIS.Display Imports ESRI.ArcGIS.esriSystem Imports ESRI.ArcGIS.GlobeCore Namespace GlobeGraphicsToolbar Public Class PolygonElement Private _element As IElement Private _elementProperties As IGlobeGraphicsElementProperties Public Sub New(ByVal geometry As IGeometry, ByVal simpleFillStyle As ESRI.ArcGIS.Display.esriSimpleFillStyle) _element = GetElement(geometry, simpleFillStyle) _elementProperties = GetElementProperties() End Sub Private Function GetElement(ByVal geometry As IGeometry, ByVal simpleFillStyle As ESRI.ArcGIS.Display.esriSimpleFillStyle) As IElement Dim element As IElement Dim polygonElement As IPolygonElement = New PolygonElementClass() element = TryCast(polygonElement, IElement) Dim fillShapeElement As IFillShapeElement = TryCast(polygonElement, IFillShapeElement) Dim simpleFillSymbol As ISimpleFillSymbol = New SimpleFillSymbolClass() simpleFillSymbol.Style = simpleFillStyle simpleFillSymbol.Color = ColorSelection.GetColor() element.Geometry = geometry fillShapeElement.Symbol = simpleFillSymbol Return element End Function Private Function GetElementProperties() As IGlobeGraphicsElementProperties Dim elementProperties As IGlobeGraphicsElementProperties = New GlobeGraphicsElementPropertiesClass() elementProperties.Rasterize = True Return elementProperties End Function Public ReadOnly Property Element() As IElement Get Return _element End Get End Property Public ReadOnly Property ElementProperties() As IGlobeGraphicsElementProperties Get Return _elementProperties End Get End Property End Class End Namespace