• arcengine 跨屏幕画多边并计算面积


      //Color函数
            private IRgbColor GetRGBColor(int red, int green, int blue)
            {
                IRgbColor rgb = new RgbColorClass();
                rgb.Red = red;
                rgb.Green = green;
                rgb.Blue = blue;
                return rgb;
            }

            private IPolygon DrawPolygon()
            {
                IActiveView pActiveView;
                ISimpleFillSymbol pSimpleFillSymbol;

                IRubberBand pRubberBand;
                IPolygon pPolygon;

                pActiveView = (IActiveView)axMapControl1.Map;
                pSimpleFillSymbol = new SimpleFillSymbolClass();
                pSimpleFillSymbol.Color = GetRGBColor(255, 22, 11);
                pRubberBand = new RubberPolygonClass();
                //pPolygon =pRubberBand .TrackNew (pActiveView .ScreenDisplay ,(ISymbol )pSimpleFillSymbol );
                pPolygon = (IPolygon)pRubberBand.TrackNew(pActiveView.ScreenDisplay, (ISymbol)pSimpleFillSymbol);
                pActiveView.ScreenDisplay.StartDrawing(pActiveView.ScreenDisplay.hDC, (short)esriScreenCache.esriNoScreenCache);
                pActiveView.ScreenDisplay.SetSymbol((ISymbol)pSimpleFillSymbol);
                pActiveView.ScreenDisplay.DrawPolygon((IGeometry)pPolygon);
                pActiveView.ScreenDisplay.FinishDrawing();
                return pPolygon;
            }


            private Double MeasurePolygon(IPolygon pPolygon)
            {
                IArea pArea = (IArea)pPolygon;
                Double dArea = Math.Abs(pArea.Area);
                return dArea;
            }

           
          

            private void axMapControl1_OnMouseDown(object sender, IMapControlEvents2_OnMouseDownEvent e)
            {
                //if (boolAreaMeasure)
                {
                    IPolygon pPloygon;
                    Double dArea;
                    pPloygon = DrawPolygon();
                    dArea = MeasurePolygon(pPloygon);
                    MessageBox.Show(dArea.ToString());
                }

            }

  • 相关阅读:
    Dynamic Method Binding in Delphi 动态方法绑定
    Server Memory Server Configuration Options 服务器内存服务配置选项
    最大化系统并发连接数.Windows.reg
    js一行代码解决各种IE兼容问题
    [原创]如果软件在网络磁盘中或移动磁盘中运行时需要解决 exception C0000006 异常问题
    用 ghostscript 转化PDF文件为图片 的参数设置
    GhostScript应用一例:使用GhostScript强行修改加密PDF
    Win7 Win8 Win10取不到机器码的处理办法
    WCAG
    页面被iframe与无刷新更换url方法
  • 原文地址:https://www.cnblogs.com/gisoracle/p/1587647.html
Copyright © 2020-2023  润新知