NIM002790 for No Product Found

漏洞 ID 编号	NIM002790
已提交	June 1, 2006
上次修改时间	June 5, 2024
适用范围	No Product Found
找到的版本	9.1
状态	Non-Reproducible

附加信息

No Public Explanation

解决办法

This code will add a layer to your map document that is connected to a newly created annotation group and then add a point the annotation group. When you turn the layer on and off the annotation group turns on and off. =================Public Sub CreateAnnoGroupGraphLayer()Dim pMxDoc As IMxDocumentDim pMap As IMapDim pGraLyr As ICompositeGraphicsLayerDim pEnumElement As IEnumElementDim pNewAnnoGroup As IGraphicsLayerDim pNewGraCont As IGraphicsContainerDim pElement As IElementSet pMxDoc = ThisDocumentSet pMap = pMxDoc.FocusMapSet pGraLyr = pMap.BasicGraphicsLayerSet pNewGraCont = pGraLyr'Create a graphics layerDim pLayer As ILayerSet pLayer = pGraLyr'Create the new graphics layer group and add the graphics layer to the map.Set pNewAnnoGroup = pGraLyr.AddLayer("New Anno", Nothing)Set pNewGraCont = pNewAnnoGrouppMap.AddLayer pNewGraCont'Make a pointDim pPnt As IPointSet pPnt = New PointpPnt.X = 32pPnt.Y = 35 'Set color and symbol for the pointDim pColor As IRgbColorSet pColor = New RgbColorpColor.Blue = 255pColor.Green = 0pColor.Red = 0Dim pSimpleMarkerSymbol As ISimpleMarkerSymbolSet pSimpleMarkerSymbol = New SimpleMarkerSymbolWith pSimpleMarkerSymbol .Style = esriSMSCircle .size = 8 .Color = pColorEnd With 'Create a marker elementDim pMarkerElement As IMarkerElementSet pMarkerElement = New MarkerElementpMarkerElement.Symbol = pSimpleMarkerSymbolSet pElement = pMarkerElementpElement.Geometry = pPnt 'Add the marker element ot the layer graphics containerSet pNewGraCont = pNewGraContpNewGraCont.AddElement pMarkerElement, 0 'Refresh/redraw the display with the new pointpMxDoc.ActiveView.RefreshEnd Sub