首页 > 代码库 > 实现高程点到等高线的转换
实现高程点到等高线的转换
一、在ArcMAP中操作实现
1、启动ArcCatalog，新建数据库data.mdb，在空白处右击，导入data.txt，四个字段分别为Code（设为主健）、X、Y、Z，保存为表Point。
2、启动ArcMap，Tools→Add XY Data，在“Choose a table”中添加数据库data.mdb 中点已被展绘
3、Tools→Extensions，把3D Analyst 打上勾，Close。右击工具栏，把3D Analyst 打上勾。
4、3D Analyst→Create→Modify TIN→Create TIN From Features，把图层Point Events 打上勾，在“Height Source”中选择字段Z，在“Output TIN”中输入TIN
5、3D Analyst→Surface Analyst→Contour，在“Contour Interval”中输入等高距10，在“OutputTIN”中输入Contour 值线。其中，生成了TIN后，可以利用3D Analyst模块下的convert-TIN to Raster将TIN转换为栅格图。再利用ArcMap中栅格分析功能对栅格图处理。
二、VB编程实现
内容摘要 从高程点到等高线不是一步实现的，而是先把高程点先插值生成TIN，然后再从TIN生成等高线。在从TIN到等高线的生成过程中8.3和9.0上还有点区别，请看代码注释。下面的是整个过程的代码实例。
‘打开高程点数据Dim pFeatureLayer As IFeatureLayerSet pFeatureLayer = MapControl1.Map.Layer(0)If pFeatureLayer Is Nothing Then Exit SubDim pFeatureClass As IFeatureClassSet pFeatureClass = pFeatureLayer.FeatureClass‘生成TINDim pTinEdit As ITinEditDim pTinSurface As ISurfaceDim pTable As ITableSet pTinEdit = New TinSet pTable = New FeatureLayerpTinEdit.InitNew MapControl1.ActiveView.ExtentDim pField As IFieldSet pField = pFeatureClass.Fields.Field(pFeatureClass.Fields.FindField("Well_Dpth"))pTinEdit.AddFromFeatureClass pFeatureClass, Nothing, pField, Nothing, 18Set pTinSurface = pTinEdit‘打开已经创建好的空的等高线数据(也可以在此时创建一个要素类9，如果是9.0版本的话，在空等高线数据中预先需要建一个字段来存储高‘程值，如果是8.3版本的话就不可以预先创建这样的一个高程字段，而是在生成等高线过程中根据你指定的‘字段名称实时创建Dim pPropset As IPropertySetSet pPropset = New PropertySetDim pFact As IWorkspaceFactoryDim pWorkspace As IWorkspacepPropset.SetProperty "DATABASE", App.Path + "\data\"Set pFact = New ShapefileWorkspaceFactorySet pWorkspace = pFact.Open(pPropset, Me.hWnd)Dim pFeatureWorkspace As IFeatureWorkspaceSet pFeatureWorkspace = pWorkspaceDim pFeatureClass1 As IFeatureClassSet pFeatureClass1 = pFeatureWorkspace.OpenFeatureClass("MyShape33")‘生成等高线pTinSurface.Contour 0, 50, pFeatureClass1, "Well_Dpth", 1Dim pFLayer As IFeatureLayerSet pFLayer = New FeatureLayerSet pFLayer.FeatureClass = pFeatureClass1MapControl1.AddLayer pFLayerMapControl1.ActiveView.Refresh
参考文章
1. ArcGIS点tin,DEM等高线生成问题。
实现高程点到等高线的转换
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。