ARCGIS PRO SDK VB2022 创建线要素

xa13850869

已于 2024-08-13 17:15:01 修改

阅读量202

点赞数 1

文章标签： arcgis

于 2023-09-25 16:59:00 首次发布

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

版权

Private Async Sub Button_Click_1(sender As Object, e As Windows.RoutedEventArgs)
       MapView = MapView.Active
    '获取地图视图的关联地图
    Map = MapView.Map
    ttp = 0
    '获取的图层
    Dim ttp As Integer
    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
        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(36598007.000, 3792900.000))
                             pts.Add(New Coordinate2D(36598700.000, 3792900.000))
                             pts.Add(New Coordinate2D(36598820.000, 3792900.000))
                             pts.Add(New Coordinate2D(36598860.000, 3793000.000))
                             pts.Add(New Coordinate2D(36598890.000, 3793000.000))
                             pts.Add(New Coordinate2D(36599000.000, 3793000.000))
                             pts.Add(New Coordinate2D(36598950.000, 3792000.000))
                            '添加要素属性字段
                             rowBuffer("左宗地号") = "z123"
                             rowBuffer("左权利人") = "z456"
                             rowBuffer("右宗地号") = "y123"
                             rowBuffer("右权利人") = "y789"
                             rowBuffer(FeatureClassDefinition.GetShapeField()) = New PolylineBuilderEx(pts).ToGeometry
                             Dim pfeature As Feature = pfeatureClass.CreateRow(rowBuffer)
                         End Sub)
    Me.Close()
End Sub