24小时热门版块排行榜

返回列表

zzahkj

木虫 (著名写手)

龙

应助: 42 (小学生)
金币: 1923.7
散金: 2554
红花: 30
帖子: 1517
在线: 465.1小时
虫号: 964751
注册: 2010-03-08
性别: GG
专业: 地理信息系统

[交流] 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

回复此楼