ARCGIS PRO SDK VB2022 创建环面要素

  Private Async Sub Button_Click_3(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(36600000.00, 3780000.000))
                                 pts.Add(New Coordinate2D(36600000.00, 3780100.000))
                                 pts.Add(New Coordinate2D(36600100.00, 3780100.000))
                                 pts.Add(New Coordinate2D(36600100.00, 3780000.000))
                                 pts.Add(New Coordinate2D(36600000.00, 3780000.000))
                                 Dim pb As PolygonBuilderEx = New PolygonBuilderEx(pts)
                                 pts = New List(Of Coordinate2D)
                                 '内环
                                 pts.Add(New Coordinate2D(36600050.00, 3780050.000))
                                 pts.Add(New Coordinate2D(36600050.00, 3780080.000))
                                 pts.Add(New Coordinate2D(36600080.00, 3780080.000))
                                 pts.Add(New Coordinate2D(36600080.00, 3780050.000))
                                 pts.Add(New Coordinate2D(36600050.00, 3780050.000))
                                 pb.AddPart(pts)
                                 '面属性
                                 rowBuffer("ZDDM") = "z123"
                                 rowBuffer("QLR") = "z456"
                                 rowBuffer("QLRLX") = "y123"
                                 rowBuffer("ZJLX") = "y789"
                                 rowBuffer(FeatureClassDefinition.GetShapeField()) = pb.ToGeometry
                                 Dim pfeature As Feature = pfeatureClass.CreateRow(rowBuffer)
                             End Sub)
        Me.Close()
    End Sub