24小时热门版块排行榜

返回列表

zzahkj

木虫 (著名写手)

龙

应助: 42 (小学生)
金币: 1929.7
散金: 2554
红花: 30
帖子: 1520
在线: 465.5小时
虫号: 964751
注册: 2010-03-08
性别: GG
专业: 地理信息系统

[交流] ArcEngine如何生成限制边界的tin?

Public Sub CreateTin()

'//变量定义

Dim pWorkspaceFact As IWorkspaceFactory

Set pWorkspaceFact = New ShapefileWorkspaceFactory

Dim pWorkspace As IWorkspace

'//寻找文件路径，打开数据

Set pWorkspace = pWorkspaceFact.OpenFromFile("c:\shapefiledata", 0)

Dim pFeatureWorkspace As IFeatureWorkspace

Set pFeatureWorkspace = pWorkspace

Dim pFeatClass As IFeatureClass

Set pFeatClass = pFeatureWorkspace.OpenFeatureClass("shapefilefile.shp"

'//保证加载的数据是tin格式的

Dim pFLayer As IFeatureLayer

Set pFLayer = New FeatureLayer

Set pFLayer.FeatureClass = pFeatClass

Dim pFields As IFields

Set pFields = pFeatClass.Fields

Dim pHeightField As IField

Set pHeightField = pFields.Field(pFields.FindField(pFeatClass.ShapeFieldName))

Dim pGDS As IGeoDataset

Set pGDS = pFeatClass

Dim pEnv As IEnvelope

Set pEnv = pGDS.Extent

Set pEnv.SpatialReference = pGDS.SpatialReference

Dim pTinEdit As ITinEdit

Set pTinEdit = New Tin

pTinEdit.InitNew pEnv

pTinEdit.AddFromFeatureClass pFeatClass, Nothing, pHeightField, Nothing, esriTinMassPoint

pTinEdit.SaveAs "c:\Shapfiledata\data_tin"

pTinEdit.StopEditing False

End Sub
这个代码是生成TIN的，但是我想做一个能够以一个面状图层限制输出的tin边界，我该如何做？

回复此楼