ARCGIS PRO SDK VB2022 创建点

'照片位置: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
        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(1) = PP
                             Dim pfeature As Feature = pfeatureClass.CreateRow(rowBuffer)
                         End Sub)

End Sub