| 查看: 753 | 回复: 0 | |||
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边界，我该如何做？ |
回复此楼» 猜你喜欢
长江大学石油工程学院有调剂名额
已经有0人回复
-
地区已中，感谢虫友们！
已经有109人回复
-
地球化学论文润色/翻译怎么收费?
已经有264人回复
-
355 B区地质调剂
已经有1人回复
-
西南科技大学 调剂 绵阳
已经有10人回复
-
解锁青少年负责任决策的关键：基于PISA 2022全球数据的SEL维度研究成果发表
已经有1人回复
-
散金币，求基金中标！！
已经有42人回复
找到一些相关的精华帖子，希望有用哦~
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人回复
点击这里搜索更多相关资源科研从小木虫开始，人人为我，我为人人
10