AE+VB.NET 实现IDW插值

楼主^#

更多发布于：2008-09-26 01:37

AE+VB.NET插值 
Public Sub CreateContourListFromShapefile() 
'用反距离IDW插值生成的栅格图像 Dim pInterpolationOp As IInterpolationOp 
pInterpolationOp = New RasterInterpolationOp ' Create the input point
object
 Dim pFeatureClass As IFeatureClass Dim pFeaturelayer As
IFeatureLayer pFeaturelayer =
Me.AxMapControl1.Map.Layer(0) pFeatureClass =
pFeaturelayer.FeatureClass
 ' Define the search radius Dim pRadius As
IRasterRadius pRadius = New RasterRadiusClass() 
pRadius.SetVariable(12)
 'Create FeatureClassDescriptor using a value field Dim
pFCDescriptor As IFeatureClassDescriptor pFCDescriptor = New
FeatureClassDescriptor pFCDescriptor.Create(pFeatureClass, Nothing,
"GRADE")
 'Set cellsize for output raster in the environment Dim
dCellSize As Object = 50 Dim pEnv As
IRasterAnalysisEnvironment pEnv = New RasterAnalysis pEnv
= pInterpolationOp 
pEnv.SetCellSize(esriRasterEnvSettingEnum.esriRasterEnvValue, dCellSize)
 'Perform the interpolation Dim rasDataset As
IGeoDataset rasDataset = pInterpolationOp.IDW(pFCDescriptor, 2,
pRadius) Dim pOutRaster As IRaster pOutRaster =
rasDataset
 'Add output into ArcMap as a raster layer Dim pOutRasLayer
As IRasterLayer pOutRasLayer = New RasterLayerClass 
pOutRasLayer.CreateFromRaster(pOutRaster) 
Me.AxMapControl1.AddLayer(pOutRasLayer)
 UsingRasterClassifyColorRampRenderer()
 End Sub
Private Sub UsingRasterClassifyColorRampRenderer() '分级渲染 'Get
Map
 Dim pMap As IMap pMap = Me.AxMapControl1.Map
 'Get raster input from layer Dim pRLayer As
IRasterLayer pRLayer = pMap.Layer(0) Dim pRaster As
IRaster pRaster = pRLayer.Raster
 'Create classfy renderer and QI RasterRenderer interface 
Dim pClassRen As IRasterClassifyColorRampRenderer pClassRen = New
RasterClassifyColorRampRenderer Dim pRasRen As
IRasterRenderer pRasRen = pClassRen
 'Set raster for the render and update pRasRen.Raster =
pRaster pClassRen.ClassCount = 10 pRasRen.Update()
 'Create a color ramp to use Dim pRamp As
IAlgorithmicColorRamp pRamp = New AlgorithmicColorRamp 
pRamp.FromColor = getRGB(255, 255, 128) pRamp.ToColor = getRGB(135,
42, 8) pRamp.Size = 10 pRamp.CreateRamp(True)
 'Create symbol for the classes Dim pFSymbol As
IFillSymbol pFSymbol = New SimpleFillSymbol
 'loop through the classes and apply the color and label 
Dim I As Integer For I = 0 To pClassRen.ClassCount - 1 
pFSymbol.Color = pRamp.Color(I) pClassRen.Symbol(I) =
pFSymbol pClassRen.Label(I) = "等级" ; CStr(I + 1) 
Next I
 'Update the renderer and plug into layer 
pRasRen.Update() pRLayer.Renderer = pClassRen 
Me.AxMapControl1.ActiveView.Refresh() 
Me.AxMapControl1.Update() Me.AxTOCControl1.Update()
 'Release memeory
 pMap = Nothing pRLayer = Nothing pRaster =
Nothing pRasRen = Nothing pClassRen = Nothing 
pRamp = Nothing pFSymbol = Nothing End Sub可不可以帮我翻译成AE+C#的谢谢了。

喜欢0 评分0

举报回复

dukeyongwang

路人甲

注册日期2008-08-25
发帖数8
QQ
铜币132枚
威望0点
贡献值0点
银元0个

加关注写私信

1楼^#

发布于：2008-09-26 01:44

object objectMaxDistance = null; object objectbarrier = null; IInterpolationOp pInterpolationOp; pInterpolationOp = new RasterInterpolationOpClass(); IFeatureClass pFeatureClass; IFeatureLayer pFeaturelayer; pFeaturelayer = (IFeatureLayer)axMapControl1.get_Layer(0); pFeatureClass = pFeaturelayer.FeatureClass; IRasterRadius pRadius; pRadius = new RasterRadiusClass(); pRadius.SetVariable(12,ref objectMaxDistance); IFeatureClassDescriptor pFCDescriptor; pFCDescriptor = new FeatureClassDescriptorClass(); pFCDescriptor.Create(pFeatureClass,null,"GARDE"); object dCellSize = 50; IRasterAnalysisEnvironment pEnv; pEnv = new RasterAnalysisClass(); pEnv = (IRasterAnalysisEnvironment)pInterpolationOp; pEnv.SetCellSize(esriRasterEnvSettingEnum.esriRasterEnvValue,ref dCellSize); IGeoDataset rasDataset; rasDataset = pInterpolationOp.IDW((IGeoDataset)pFCDescriptor, 2, pRadius, ref objectbarrier); IRaster pOutRaster; pOutRaster = (IRaster)rasDataset; IRasterLayer pOutRasLayer; pOutRasLayer=new RasterLayerClass(); pOutRasLayer.CreateFromRaster(pOutRaster); axMapControl1.AddLayer(pOutRasLayer); UsingRasterClassifyColorRampRenderer(); } private void UsingRasterClassifyColorRampRenderer() { IMap pMap; pMap= axMapControl1.Map; bool test = true; IRasterLayer pRLayer; pRLayer = (IRasterLayer)pMap.get_Layer(0); IRaster pRaster; pRaster=pRLayer.Raster; IRasterClassifyColorRampRenderer pClassRen; pClassRen = new RasterClassifyColorRampRendererClass(); IRasterRenderer pRasRen; pRasRen = (IRasterRenderer)pClassRen; pRasRen.Raster=pRaster; pClassRen.ClassCount=10; pRasRen.Update(); IAlgorithmicColorRamp pRamp; pRamp=new AlgorithmicColorRampClass(); pRamp.FromColor=getRGB(255,255,128); //有问题，说没有getRGB这个名称 pRamp.ToColor=getRGB(135,42,8); pRamp.Size=10; pRamp.CreateRamp(out test); IFillSymbol pFSymbol; pFSymbol = new SimpleFillSymbolClass(); int i; for (i = 0; i <= (pClassRen.ClassCount - 1); i++) { pFSymbol.Color = pRamp.get_Color(i); pClassRen.get_Symbol(i) = (ISymbol)pFSymbol; //有错误，左边不能是变量 pClassRen.get_Label(i) = "等级" + CStr(i + 1); //没有CStr这个名称 } pRasRen.Update(); pRLayer.Renderer=(IRasterRenderer)pClassRen; axMapControl1.ActiveView.Refresh(); axMapControl1.Update(); axTOCControl1.Update(); pMap=null; pRLayer=null; pRaster=null; pRasRen=null; pClassRen=null; pRamp=null; pFSymbol=null; } 这是我翻译的，可是却有很多的问题，问题在注释中写明了，我想知道IDW中的参考边界哪个参数实现(不知道这样说你们可明白？)。望各位朋友可以帮忙看看这个程序的错误？

举报回复喜欢评分

mouse1984dog

路人甲

注册日期2006-05-31
发帖数19
QQ
铜币224枚
威望0点
贡献值0点
银元0个

加关注写私信

2楼^#

发布于：2009-02-26 16:02

public void CreateContourListFromShapefile() { //用反距离IDW插值生成的栅格图像 IInterpolationOp pInterpolationOp; pInterpolationOp = new RasterInterpolationOpClass(); // Create the input point object
 IFeatureClass pFeatureClass; IFeatureLayer pFeaturelayer; pFeaturelayer = this.m_mapControl.Map.get_Layer(8) as IFeatureLayer;//这里我的数据在第八层 pFeatureClass = pFeaturelayer.FeatureClass;
 // Define the search radius IRasterRadius pRadius; pRadius = new RasterRadiusClass(); object maxDistance = Type.Missing; pRadius.SetVariable(12, ref maxDistance);
 //Create FeatureClassDescriptor using a value field IFeatureClassDescriptor pFCDescriptor; pFCDescriptor = new FeatureClassDescriptorClass(); pFCDescriptor.Create(pFeatureClass, null, "降雨量500");
 //set { cellsize for output raster in the environment object dCellSize = 0.013; IRasterAnalysisEnvironment pEnv; pEnv = new RasterAnalysis(); pEnv = pInterpolationOp as IRasterAnalysisEnvironment; pEnv.SetCellSize(esriRasterEnvSettingEnum.esriRasterEnvValue, ref dCellSize);
 object objectbarrier = Type.Missing; //Perform the interpolation IGeoDataset rasDataset; rasDataset = pInterpolationOp.IDW((IGeoDataset)pFCDescriptor, 2, pRadius, ref objectbarrier); IRaster pOutRaster; pOutRaster = rasDataset as IRaster;
 //Add output into ArcMap as a raster layer IRasterLayer pOutRasLayer; pOutRasLayer = new RasterLayerClass(); pOutRasLayer.CreateFromRaster(pOutRaster); this.m_mapControl.AddLayer(pOutRasLayer,0);
 UsingRasterClassifyColorRampRenderer();
 }
 public static IColor ConvertColorToIColor(Color color) {
 IColor pColor = new RgbColorClass(); pColor.RGB = (int)color.R | (int)(color.G) << 8 | (int)(color.B) << 16; return pColor; } private void UsingRasterClassifyColorRampRenderer() //分级渲染 { //get { Map
 IMap pMap; pMap = m_mapControl.Map;
 //get { raster input from layer IRasterLayer pRLayer; pRLayer = (IRasterLayer)pMap.get_Layer(0); IRaster pRaster; pRaster = pRLayer.Raster;
 //Create classfy renderer and QI RasterRenderer interface IRasterClassifyColorRampRenderer pClassRen; pClassRen = new RasterClassifyColorRampRenderer(); IRasterRenderer pRasRen; pRasRen = pClassRen as IRasterRenderer;
 //set { raster for the render and update pRasRen.Raster = pRaster; pClassRen.ClassCount = 10; pRasRen.Update();
 //Create a color ramp to use IAlgorithmicColorRamp pRamp; pRamp = new AlgorithmicColorRamp(); Color clr=new Color(); clr = Color.FromArgb(255,255,128); pRamp.FromColor = ConvertColorToIColor(clr); clr = Color.FromArgb(135, 42, 8); pRamp.ToColor = ConvertColorToIColor(clr); pRamp.Size = 10; bool flag = true; pRamp.CreateRamp(out flag);
 //Create symbol for the classes IFillSymbol pFSymbol; pFSymbol = new SimpleFillSymbol();
 //loop through the classes and apply the color and label int I; for (I = 0; I <= pClassRen.ClassCount - 1;I++ ) { pFSymbol.Color = pRamp.get_Color(I);// .Color(I); pClassRen.set_Symbol(I, pFSymbol as ISymbol); pClassRen.set_Label(I,"等级" + Convert.ToString(I + 1)); } // I
 //Update the renderer and plug into layer pRasRen.Update(); pRLayer.Renderer =(IRasterRenderer) pClassRen; m_mapControl.ActiveView.Refresh(); // m_mapControl; this.axTOCControl1.Update();
 //Release memeory
 pMap = null; pRLayer = null; pRaster = null; pRasRen = null; pClassRen = null; pRamp = null; pFSymbol = null; }

举报回复喜欢评分

您需要登录后才可以回帖，登录或者注册

AE+VB.NET 实现IDW插值

最新喜欢：