ARCGIS PRO SDK VB2022 创建要素类

最新推荐文章于 2024-07-13 19:05:09 发布

xa13850869

最新推荐文章于 2024-07-13 19:05:09 发布

阅读量140

点赞数 1

文章标签： arcgis javascript 开发语言

本文链接：https://blog.csdn.net/xa13850869/article/details/134375276

版权

在默认数据库创建要素类

Dim gdbPath As String = Project.Current.DefaultGeodatabasePath
Dim hasZ = False
Dim hasM = False
'创建义空间参考2000国家大地坐标系3°分带，36带。
dim  sr4524 as SpatialReference  = SpatialReferenceBuilder.CreateSpatialReference(4524)

'HasZ：   表示要素类是否包含Z值（即垂直坐标）。
'HasM：   表示要素类是否包含M值（即测量值）。
'下面创建面类型的要素类
Dim shapeDescription_Polygon = New ShapeDescription(GeometryType.Polygon, sr4524)
'下面创建线类型的要素类
Dim shapeDescription_Polyline = New ShapeDescription(GeometryType.Polyline, sr4524)
'下面创建点类型的要素类
Dim shapeDescription_Point = New ShapeDescription(GeometryType.Point, sr4524)
'定义要素类名称
Dim fcName = "素类类"
'定义2中字段类型
'字符串字段,字段名称: ZDDM
Dim stringFieldDescription = New ArcGIS.Core.Data.DDL.FieldDescription("ZDDM", FieldType.String)
'双精度字段,字段名称: TBMJ
Dim dblFieldDescription = New ArcGIS.Core.Data.DDL.FieldDescription("TBMJ", FieldType.Double)
Await QueuedTask.Run(Sub()
                         Try
                             '打开默认数据库gdb
                             Dim gdb As Geodatabase = New Geodatabase(New FileGeodatabaseConnectionPath(New Uri(gdbPath))) '收集字段列表
                             Dim fieldDescriptions = New List(Of ArcGIS.Core.Data.DDL.FieldDescription)
                             fieldDescriptions.Add(stringFieldDescription)
                             fieldDescriptions.Add(dblFieldDescription)

                             '创建FeatureClassDescription
                             '创建面要素类,将shapeDescription替换为shapeDescription_Polygon
                             '创建线要素类,将shapeDescription替换为shapeDescription_Polyline
                             '创建点要素类,将shapeDescription替换为shapeDescription_Point
                             Dim fcDescription = New FeatureClassDescription(fcName, fieldDescriptions, shapeDescription)
                             '创建SchemaBuilder
                             Dim SchemaBuilder As SchemaBuilder = New SchemaBuilder(gdb)
                             '将创建任务添加到DDL任务列表中
                             SchemaBuilder.Create(fcDescription)
                             '执行DDL
                             Dim success As Boolean = SchemaBuilder.Build
                         Catch ex As Exception
                             MsgBox("Exception: ex")
                         End Try
                     End Sub)