| 查看: 775 | 回复: 0 | |||
[交流]
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边界，我该如何做？ |
回复此楼» 猜你喜欢
282求调剂
已经有0人回复
-
地质学复试调剂
已经有1人回复
-
地质学论文润色/翻译怎么收费?
已经有88人回复
-
山东第一医科大学2026年招收柔性可穿戴传感相关方向博士后
已经有1人回复
找到一些相关的精华帖子，希望有用哦~
TEM如何确定入射电子束方向
已经有7人回复
- 如何培养并观察效果比较好的尼龙6球晶。
已经有4人回复
- 对称边界条件
已经有6人回复
- 如何快速提高自己的计算机编程能力。。
已经有5人回复
- 模型中有多个压力出口边界怎么设置
已经有5人回复
- elsevier自动生成pdf问题
已经有12人回复
- 如何恢复这个专家意见
已经有9人回复
- JPD无法生成PDF
已经有9人回复
- pajek生成的图片怎么放在word里面呀?
已经有11人回复
- 卤代烃与羧酸钠反应生成酯的酯化反应
已经有14人回复
- 羧基能与-O-CH=CH2反应生成缩醛基不
已经有3人回复
- 质量流量入口边界中湍流的设定？
已经有4人回复
- .net+ArcEngine“尝试读取或写入受保护的内存”错误该如何处理
已经有7人回复
- Vb.net+ArcEngine生成点状图层的速度太慢了该怎么办？
已经有10人回复
- Vb.net+ArcEngine生成的点状图层不显示？
已经有10人回复
- 【求助】ArcEngine二次开发如何生成等值线？
已经有14人回复
点击这里搜索更多相关资源科研从小木虫开始，人人为我，我为人人
50