Latest Contributions by FabrizioPuddu2

hi, I'm using globecontrol with bilboard layer, i'm trying to add an annotation to a layer, but does not appear, I see only a filled rectangle (the result in attach) this is my code:     Private Sub CreateLabel(ByVal pFLy As IFeatureLayer)         Dim pGeoFLy As IGeoFeatureLayer         Dim pAnnoLyrPropColl As IAnnotateLayerPropertiesCollection         Dim pLblEngLyrProps As ILabelEngineLayerProperties         Dim pAnnoLyrProps As IAnnotateLayerProperties         Try             pGeoFLy = pFLy             pAnnoLyrPropColl = pGeoFLy.AnnotationProperties             pAnnoLyrPropColl.Clear()             Dim pPointPlacement As IPointPlacementPriorities = New PointPlacementPrioritiesClass             pPointPlacement.AboveCenter = 0             pPointPlacement.AboveLeft = 0             pPointPlacement.AboveRight = 0             pPointPlacement.BelowCenter = 1             pPointPlacement.BelowLeft = 0             pPointPlacement.BelowRight = 0             pPointPlacement.CenterLeft = 0             pPointPlacement.CenterRight = 0             Dim pBasicOverposeterLayerProp As IBasicOverposterLayerProperties = New BasicOverposterLayerPropertiesClass             pBasicOverposeterLayerProp.FeatureType = esriBasicOverposterFeatureType.esriOverposterPoint             pBasicOverposeterLayerProp.FeatureWeight = esriBasicOverposterWeight.esriNoWeight             pBasicOverposeterLayerProp.LabelWeight = esriBasicOverposterWeight.esriHighWeight             pBasicOverposeterLayerProp.BufferRatio = 0             pBasicOverposeterLayerProp.PointPlacementMethod = esriOverposterPointPlacementMethod.esriOnTopPoint              pBasicOverposeterLayerProp.PointPlacementPriorities = pPointPlacement             pLblEngLyrProps = New LabelEngineLayerProperties             With pLblEngLyrProps                 .Expression = "[Label]"                 .IsExpressionSimple = True                 .Symbol = CreateFontLabel()                 .BasicOverposterLayerProperties = pBasicOverposeterLayerProp             End With             pAnnoLyrProps = TryCast(pLblEngLyrProps, IAnnotateLayerProperties)             With pAnnoLyrProps                 .AnnotationMinimumScale = m_SymbolProperties.Label_MinScale                 .AnnotationMaximumScale = m_SymbolProperties.Label_MaxScale             End With             pAnnoLyrPropColl.Add(pAnnoLyrProps)             pGeoFLy.DisplayAnnotation = True         Catch ex As Exception         Finally             pGeoFLy = Nothing             pAnnoLyrPropColl = Nothing             pLblEngLyrProps = Nothing             pAnnoLyrProps = Nothing         End Try     End Sub     Private Function CreateFontLabel() As ITextSymbol         Dim pRGBColor As IRgbColor         Dim pFont As IFont         Dim pTextSymbol As ITextSymbol         Try             pRGBColor = New RgbColor             With pRGBColor                 .Red = m_SymbolProperties.Label_Color.R                 .Green = m_SymbolProperties.Label_Color.G                 .Blue = m_SymbolProperties.Label_Color.B             End With             pFont = New SystemFont             With pFont                 .Name = m_SymbolProperties.Label_Font.Name                 .Size = m_SymbolProperties.Label_Font.Size                 .Bold = m_SymbolProperties.Label_Font.Bold                 .Underline = m_SymbolProperties.Label_Font.Underline                 .Italic = m_SymbolProperties.Label_Font.Italic             End With             pTextSymbol = New TextSymbol             With pTextSymbol                 .Color = pRGBColor                 .Font = pFont                 .HorizontalAlignment = esriTextHorizontalAlignment.esriTHALeft             End With             CreateFontLabel = pTextSymbol         Catch ex As Exception             CreateFontLabel = Nothing         Finally             pRGBColor = Nothing             pFont = Nothing             pTextSymbol = Nothing         End Try     End Function thanks fabrizio ... View more

Hi, my application uses two forms the first 2D (mapcontrol) and the second 3D (globecontrol). within each one must display MOLE symbology. After correctly displaing MOLE symbology on globecontrol, I can create MOLE layer on mapcontrol but it doesn't display. raising no exception. I'm using VB.NET - VISUAL STUDIO 8 - ARCENGINE 10 SP5 - MOLE 10 Sp3 ------------------------------------------------- CREATE LAYER ON MAPCONTROL pGeoFeatureLayer.FeatureClass = pFeatureClass m_CachedGraphicFLyr = New ForceElementLayer m_CachedGraphicFLyr.FeatureLayer = pGeoFeatureLayer m_CachedGraphicFLyr.IsLiveUpdateEnabled = False m_CachedGraphicFLyr.LiveUpdateInterval = 1 pForceElementLayer = TryCast(m_CachedGraphicFLyr, IForceElementLayer) pForceElementLayer.Size = m_MoleSymbolSize pForceElementLayer.SizeIsRatio = m_MoleSymbolSizeIsRatio pLyr = TryCast(m_CachedGraphicFLyr, ILayer) pLyr.Name = m_NameLayer pLyr.Cached = Me.m_UseCache m_objMapControl.AddLayer(pLyr, 0) ------------------------------------------------- CREATE LAYER ON GLOBECONTROL pGeoFeatureLayer.FeatureClass = pFeatureClass m_CachedGraphicFLyr = New ForceElementLayer m_CachedGraphicFLyr.FeatureLayer = pGeoFeatureLayer m_CachedGraphicFLyr.IsLiveUpdateEnabled = False m_CachedGraphicFLyr.LiveUpdateInterval = 1 pForceElementLayer = TryCast(m_CachedGraphicFLyr, IForceElementLayer) pForceElementLayer.Size = m_MoleSymbolSize pForceElementLayer.SizeIsRatio = m_MoleSymbolSizeIsRatio pLineSymbol.Width = MoleDisplayOptions.BillboardCalloutWidth p3DSettings = TryCast(pForceElementLayer, I3DSettings) p3DSettings.DisplayOption = MoleDisplayOptions.DisplayOptions p3DSettings.EnableCallouts = m_MoleDisplayOptions.BillboardCallaout p3DSettings.DefaultElevationMeters = m_MoleDisplayOptions.BillboardHeight p3DSettings.CalloutLineSymbol = pLineSymbol p3DSettings.MoleImageSize = m_MoleSymbolSizeImage pLyr = TryCast(m_CachedGraphicFLyr, ILayer) pLyr.Name = m_NameLayer pLyr.Cached = Me.m_UseCache m_objGlobeControl.Globe.AddLayerType(pLyr, esriGlobeLayerType.esriGlobeLayerTypeDraped, True) ------------------------------------------------- thanks fabrizio ... View more

hi, I'm using object globecontrol with symbols Mole. I have a main form that calls a second form (3D) where is present globecontrol object, in this form is possible to load a .3DD project that contains MOLE data from FGDB. The problem is this: 1) I open the Form 3D first time and load the .3DD project and the MOLE data are displayed on GlobeControl 2) close the form 3D 3) open the form 3D again and load the 3D project and MOLE data are not displayed. any idea I can not use the following method due to other issues: Dim mch As ESRI.ArcGIS.DefenseSolutions.IMoleCoreHelper = New ESRI.ArcGIS.DefenseSolutions.MoleCoreHelperClass() mch.ReleaseForceElementRenderer() mch.ReleaseTacticalGraphicRenderers() ESRI.ArcGIS.ADF.COMSupport.AOUninitialize.Shutdown() InitializeRuntime()            ' reinitialize I'm using 10.0 thants at all ... View more

Hi at all, I'm trying to capture the event 'AfterItemDraw' on 'GlobeControl' object, I implemented the following code: Private m_EventsAfterDraw3D As ESRI.ArcGIS.GlobeCore.IActiveViewEvents_AfterItemDrawEventHandler m_EventsAfterDraw3D = New ESRI.ArcGIS.GlobeCore.IActiveViewEvents_AfterItemDrawEventHandler(AddressOf OnAfterItemDraw) AddHandler CType(m_globe, ESRI.ArcGIS.GlobeCore.IActiveViewEvents_Event).AfterItemDraw, m_EventsAfterDraw3D  but it does not work, I have to set the VerboseEvents property, object IViewManager, to TRUE as for MapControl object ?                  Dim pViewManager As IViewManager = Nothing                 pViewManager = ??????                                      <<========= ????????                 pViewManager.VerboseEvents = True how do I set pViewManager = ?????? thanks at all fabrizio ... View more

Hi at all, I'm trying to develop TOC MenuContext of the object GlobeControl, I not able to implement functions: SetMinimumDistance, SetMaximumDistance and ClearDistanceRange. How do I determine the value to be set to .MinimumDistance and/or .MaximumDistance on TryCast(m_pGlobeControl.GlobeDisplay, IGlobeDisplayLayers2).FindGlobeProperties(mylayer) and what should I set it to run the ClearDistanceRange? thanks fabrizio ... View more

hi, I work with the globecontrol and I'm using the MOLE symbol, now I have same problem, 1) I'm try to show the symbol as DRAPED / EXTRUDE / BOTH, but if I setting DRAPED or EXTRUDE mode does't work, while if I setting as BOTH it work but it show as EXTRUDE only 2) I can to select symbol MOLE on globecontrol ? help me please thanks fabrizio ... View more

hi, on globecontrol I add a featurelayer (pLYR) using polygon geometry with the method AddLayerType and option esriGlobeLayerType.esriGlobeLayerTypeDraped. The layer is displayed correctly, but when I add another layer or when I make the selection of a feature of layer (pLYR) the layer disappears, is obscured by the surface layer (draped layer not elevation layer) What can I do to represent a polygon on globecontrol? other information as I create the polyline layer geometry works properly. thanks fabrizio ... View more