ARCGIS PRO SDK VB2022 GraphicsLayer操作及添加面要素

1、获得或创建图形层

'获得当前map下的 Graphics图层
Await QueuedTask.Run(Sub()
                       Dim GraphicsLayer = pmap.GetLayersAsFlattenedList().OfType(Of 
ArcGIS.Desktop.Mapping.GraphicsLayer).FirstOrDefault()
                       '如果map下的Graphics图层不存在，则创建
                       If GraphicsLayer Is Nothing = True Then
                          '创建 GraphicsLayer
                           If pmap.MapType <> MapType.Map Then Exit Sub       ' Not 2D
                           Dim gl_param = New GraphicsLayerCreationParams
                           gl_param.Name = "出图范围"
                          '默认情况下会添加到目录的顶部
                           GraphicsLayer = LayerFactory.Instance.CreateLayer(Of ArcGIS.Desktop.Mapping.GraphicsLayer)(gl_param, pmap)
                          '添加到目录底部
                          'gl_param.MapMemberIndex = -1     'bottom
                          'LayerFactory.Instance.CreateLayer(Of ArcGIS.Desktop.Mapping.GraphicsLayer)(gl_param, pmap)
                          '将图形层添加到组层
                          'Dim group_layer = pmap.GetLayersAsFlattenedList().OfType(Of GroupLayer).First()
                          'LayerFactory.Instance.CreateLayer(Of 
                          ArcGIS.Desktop.Mapping.GraphicsLayer)(gl_param, group_layer)
                         '或者使用特定的CreateGroupLayer方法
                         'LayerFactory.Instance.CreateGroupLayer(pmap, -1, "Graphics Layer")
                        End If
                    End Sub）

2、在GraphicsLayer下绘制元素：创建Polygon

Dim pPolygon As ArcGIS.Core.Geometry.Polygon
Dim pColor As RgbColor
pPolygon = pFeature.GetShape
pColor = New RgbColor                      '//颜色
pColor.Red = 25
pColor.Green = 120
pColor.Blue = 45
'定义边线
'Dim Outline As CIMStroke = SymbolFactory.Instance.ConstructStroke(ColorFactory.Instance.BlueRGB, 2.0, SimpleLineStyle.DashDotDot)
Dim Outline As CIMStroke = SymbolFactory.Instance.ConstructStroke(ColorFactory.Instance.CreateRGBColor(pColor.Red, pColor.Green, pColor.Blue), 5.0, SimpleLineStyle.DashDotDot)
Dim poly_symbol As CIMPolygonSymbol = SymbolFactory.Instance.ConstructPolygonSymbol(ColorFactory.Instance.CreateRGBColor(pColor.Red, pColor.Green, pColor.Blue), SimpleFillStyle.Solid, Outline)
Dim graphic = New CIMPolygonGraphic()
With graphic
    .Symbol = poly_symbol.MakeSymbolReference()
    .Polygon = pPolygon
End With
GraphicsLayer.AddElement(graphic)

3、填充方式

（1）SimpleFillStyle.Solid                '默认填充方式
（2）SimpleFillStyle.Null                  '空填充
（3）SimpleFillStyle.Hollow              '空心填充与esriSFSNull相同
（4）SimpleFillStyle.Horizontal        '水平剖面线填充
（5）SimpleFillStyle.Vertical            '垂直剖面线填充
（6）SimpleFillStyle.ForwardDiagonal      '向下45度，从左到右填充图案填充
（7）SimpleFillStyle.BackwardDiagonal   '向上45度，从左到右填充图案填充
（8）SimpleFillStyle.FSCross                   '水平和垂直交叉线
（9）SimpleFillStyle.DiagonalCross          '45度数交叉线

4、边线样式

（1）SimpleLineStyle.Dash         具有长破折号和短空格重复模式的虚线。
（2）SimpleLineStyle.DashDot       具有重复模式的虚线-空格-小破折号-空格。
（3）SimpleLineStyle.DashDotDot 具有破折号空间-小破折号空间-小破折号空间的重复模式的虚线。
（4）SimpleLineStyle.Dot              一条虚线，具有均匀分布的小破折号的重复模式。
（5）SimpleLineStyle.Null             不绘制的空线。
（6）SimpleLineStyle.Solid            没有破折号的简单实线。

5、访问 GraphicsLayer

Dim elements = GraphicsLayer.GetElementsAsFlattenedList().Where(Function(e) e.Name.StartsWith("出图范围"))
Await QueuedTask.Run(Sub()
                         '全选
                          GraphicsLayer.SelectElements(elements)
                         '只选择一个
                         'GraphicsLayer.SelectElement(elements.FirstOrDefault())
                         '删除
                         GraphicsLayer.RemoveElements(GraphicsLayer.GetSelectedElements())
                 End Sub）