ARCGIS PRO SDK VB2022 创建简单面要素

 Private Async Sub Button_Click_2(sender As Object, e As Windows.RoutedEventArgs)
     '创建简单面
     Dim ttp As Integer
     MapView = MapView.Active
     '获取地图视图的关联地图
     Map = MapView.Map
     ttp = 0
     '获取的图层
     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
         MsgBox("土地性质图斑层不存在。")
         Exit Sub
     End If
     Await QueuedTask.Run(Sub()
                              pfeatureClass = Layer.GetFeatureClass
                              Dim FeatureClassDefinition As FeatureClassDefinition = pfeatureClass.GetDefinition()
                              Dim rowBuffer As RowBuffer = pfeatureClass.CreateRowBuffer
                              Dim pts As List(Of Coordinate2D)
                              pts = New List(Of Coordinate2D)
                              pts.Add(New Coordinate2D(35501545.000, 3793890.000))
                              pts.Add(New Coordinate2D(35501575.000, 3793878.000))
                              pts.Add(New Coordinate2D(35501578.000, 3793876.000))
                              pts.Add(New Coordinate2D(35501588.000, 3793872.000))
                              pts.Add(New Coordinate2D(35501580.000, 3793844.000))
                              pts.Add(New Coordinate2D(35501545.000, 3793890.000))
                              rowBuffer("ZDDM") = "z123"
                              rowBuffer("QLR") = "z456"
                              rowBuffer("QLRLX") = "y123"
                              rowBuffer("ZJLX") = "y789"
                              rowBuffer(FeatureClassDefinition.GetShapeField()) = New PolygonBuilderEx(pts).ToGeometry
                              Dim pfeature As Feature = pfeatureClass.CreateRow(rowBuffer)
                          End Sub)
     Me.Close()
 End Sub