ARCGIS PRO SDK VB2022 创建点

xa13850869

已于 2024-11-07 16:26:51 修改

阅读量211

点赞数 1

CC 4.0 BY-SA版权

文章标签： arcgis

于 2023-09-22 12:08:37 首次发布

本文链接：https://blog.youkuaiyun.com/xa13850869/article/details/133164525

本文介绍使用 ARCGIS PRO SDK 与 VB2022 在地图上创建点要素的方法。通过示例代码展示了如何从指定坐标创建点，并将该点添加到名为“照片位置”的图层中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'照片位置:GDB点要素类名称
'点号、dome、备注：为点要素类字段名称

Protected Overrides Async Sub OnClick()
    Dim Layer As FeatureLayer
    Dim pMapView As MapView = MapView.Active
    '获取当前地图视图(焦点地图和选中的图层)
    Dim Map = pMapView.Map

    '获取地图视图的关联地图
    Dim ttp = 0
    Dim PP As MapPoint
    '获取的图层
    'Dim Layer1 As Layer
    For it = 0 To Map.Layers.Count - 1
        If Map.Layers(it).Name = "照片位置" Then
            Layer = CType(Map.Layers(it), FeatureLayer)
            ttp = 1
            Exit For
        End If
    Next
    If ttp = 0 Then Exit Sub
    Dim pfeatureClass As FeatureClass
    Await QueuedTask.Run(Sub()
                             pfeatureClass = Layer.GetFeatureClass
                             Dim FeatureClassDefinition As FeatureClassDefinition = pfeatureClass.GetDefinition()
                             '创建行缓冲
                             Dim rowBuffer As RowBuffer = pfeatureClass.CreateRowBuffer
                             PP = MapPointBuilderEx.CreateMapPoint(36598700.000, 3792900.000)
                             rowBuffer("点号") = "J1"
                             rowBuffer("dome") = 99999
                             rowBuffer("备注") = 88888
                             rowBuffer(FeatureClassDefinition.GetShapeField()) = PP
                             Dim pfeature As Feature = pfeatureClass.CreateRow(rowBuffer)
                         End Sub)
End Sub