应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 专业学科区 » 地学 » 3S技术 » ArcEngine如何生成限制边界的tin?
11/1返回列表
查看: 741  |  回复: 0
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

zzahkj

木虫 (著名写手)

龙

[交流] 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边界，我该如何做？
回复此楼

» 猜你喜欢
不要迷恋哥，哥只是一个过客！
1楼 2011-05-10 15:27:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

找到一些相关的精华帖子，希望有用哦~

科研从小木虫开始，人人为我，我为人人
相关版块跳转 我要订阅楼主 zzahkj 的主题更新
11/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭