| 查看: 1668 | 回复: 14 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[交流]
【求助】ArcEngine二次开发如何生成等值线？ 已有3人参与
|
||
| ArcEngine二次开发如何生成等值线？给点思路或者代码？最好是VB.net语言的！非常感谢！ |
回复此楼
蓝色天空2380
至尊木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 10877.1
- 散金: 25
- 红花: 2
- 沙发: 1
- 帖子: 58
- 在线: 35.6小时
- 虫号: 635989
- 注册: 2008-10-25
- 性别: GG
- 专业: 地理信息系统
14楼2011-04-16 16:15:20
xiangling1
金虫 (正式写手)
- 应助: 2 (幼儿园)
- 金币: 709.2
- 红花: 7
- 帖子: 339
- 在线: 80.9小时
- 虫号: 1234309
- 注册: 2011-03-15
- 性别: GG
- 专业: 地理信息系统
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
xuliforever(金币+1): 欢迎常来地学版交流。 2011-04-12 22:33:54
小木虫(金币+0.5):给个红包，谢谢回帖交流
xuliforever(金币+1): 欢迎常来地学版交流。 2011-04-12 22:33:54
|
一下是Raster生成等高线的例子，希望对你有用： Dim pRasterLayer As ESRI.ArcGIS.Carto.IRasterLayer = New ESRI.ArcGIS.Carto.RasterLayer() pRasterLayer = AxMapControl1.Map.Layer(ComboBox1.SelectedIndex) //选择Raster图层 Dim pIRaster As ESRI.ArcGIS.Geodatabase.IRaster = pRasterLayer.Raster Dim pSurfaceOp As ESRI.ArcGIS.GeoAnalyst.ISurfaceOp = New ESRI.ArcGIS.GeoAnalyst.RasterSurfaceOp() Dim pGeoDataset As ESRI.ArcGIS.Geodatabase.IGeoDataset pGeoDataset = pSurfaceOp.Contour(pIRaster, 50.0) //是获取等高线数据，50位等高线的间距。 Dim pFeatureLayer As ESRI.ArcGIS.Carto.IFeatureLayer = New ESRI.ArcGIS.Carto.FeatureLayer() Dim pFeatureClass As ESRI.ArcGIS.Geodatabase.IFeatureClass pFeatureClass = pGeoDataset pFeatureLayer.Name = "等高线" pFeatureLayer.FeatureClass = pFeatureClass AxMapControl1.Map.AddLayer(pFeatureLayer) |
2楼2011-04-11 18:50:32
|
谢谢你的回答，我用你的代码试了一下，我只改了这句pRasterLayer = Main.AxMapControl1.Map.Layer(0)而出现以下错误时怎么回事啊？ 无法将类型为“System.__ComObject”的 COM 对象强制转换为接口类型“ESRI.ArcGIS.Carto.IRasterLayer”。此操作失败的原因是对 IID 为“{D02371C7-35F7-11D2-B1F2-00C04F8EDEFF}”的接口的 COM 组件调用 QueryInterface 因以下错误而失败: 不支持此接口 (异常来自 HRESULT:0x80004002 (E_NOINTERFACE))。 |
3楼2011-04-11 21:57:32
xiangling1
金虫 (正式写手)
- 应助: 2 (幼儿园)
- 金币: 709.2
- 红花: 7
- 帖子: 339
- 在线: 80.9小时
- 虫号: 1234309
- 注册: 2011-03-15
- 性别: GG
- 专业: 地理信息系统
4楼2011-04-12 01:00:39
10