| 查看: 427 | 回复: 0 | ||
zzahkj木虫 (著名写手)
龙
|
[交流]
Vb.net+ArcEngine通过插值生成的栅格图像是黑白渐变颜色的？
|
|
Vb.net+ArcEngine通过插值生成的栅格图像是黑白渐变颜色的？我想要彩色的，该如何去做？附上我的代码： Dim pFeatureLayer As IFeatureLayer = Main.AxMapControl1.get_Layer(0) Dim pOutRaster As IRaster = CreateRaster(pFeatureLayer) CreateContour(pOutRaster) Private Sub CreateContour(ByVal pOutRaster As IRaster) Dim pSurfaceOp As ISurfaceOp = New RasterSurfaceOp() Dim odbase As Object = 0 Dim pOutLineFC As IFeatureClass = pSurfaceOp.Contour(pOutRaster, 0.1, odbase) Dim pFLayercontour As IFeatureLayer = New FeatureLayerClass() pFLayercontour.FeatureClass = pOutLineFC pFLayercontour.Name = "等值线" Dim pLayercontour As ILayer = pFLayercontour Main.AxMapControl1.AddLayer(pLayercontour) End Sub Private Function CreateRaster(ByVal pFeatureLayer As IFeatureLayer) Dim pInterpolationOp As IInterpolationOp = New RasterInterpolationOpClass() Dim pInputDataset As IGeoDataset = pFeatureLayer.FeatureClass Dim pRadius As IRasterRadius = New RasterRadiusClass() Dim o1 As Object = Type.Missing pRadius.SetVariable(12, o1) ' 设置高程字段 Dim pFCDescriptor As IFeatureClassDescriptor = New FeatureClassDescriptor() pFCDescriptor.Create(pFeatureLayer.FeatureClass, Nothing, "温度"  Dim dCellSize As Double = 0.01364 '像元大小 Dim oCell As Object = dCellSize Dim pEnv As IRasterAnalysisEnvironment = pInterpolationOp pEnv.SetCellSize(esriRasterEnvSettingEnum.esriRasterEnvValue, oCell) Dim pOutRaster As IRaster = Nothing Dim o2 As Object = Type.Missing pOutRaster = pInterpolationOp.IDW(pFCDescriptor, 2, pRadius, o2) Dim pOutRasterLayer As IRasterLayer = New RasterLayerClass() pOutRasterLayer.CreateFromRaster(pOutRaster) pOutRasterLayer.Name = "栅格图像" Main.AxMapControl1.AddLayer(pOutRasterLayer) Main.AxMapControl1.Refresh() Return pOutRaster End Function |
回复此楼
找到一些相关的精华帖子，希望有用哦~
北京大学计算机研究所招聘图像/视频处理方向实习生（长期有效）
已经有54人回复
- 钛盐光度法测H2O2的方法中三价铁的颜色对分析方法的影响怎么去除？
已经有11人回复
- 图像处理与数字图像处理的区别
已经有3人回复
- 克里金方法插值-采样数据进行正态分布检验
已经有6人回复
- mtDNA图像检测不理想，求原因
已经有18人回复
- 【求助】zeiss显微镜CCD （型号为MRC）相应的图像采集卡
已经有5人回复
- Vb.net+ArcEngine生成点状图层的速度太慢了该怎么办？
已经有10人回复
- 服务器上计算，图形界面及图像处理问题思考
已经有19人回复
- Vb.net+ArcEngine生成的点状图层不显示？
已经有10人回复
- 【求助】栅格数据叠加分析
已经有13人回复
- 求：如何用简便方法把图像的边缘进行清晰处理
已经有16人回复
- 【求助】arcgis中，求多边形转栅格，加权平均
已经有19人回复
- 【求助】图像去噪是否可以作为博士研究的方向
已经有33人回复
点击这里搜索更多相关资源科研从小木虫开始，人人为我，我为人人
