GIS~雲中飛鹏

摘要： 在鹰眼指示窗口中拖动方框 类模块dragfeedback定义 ' WinAPI function declarations and constants Private Declare Function GdiRectangle Lib "gdi32" Alias "Rectangle" (ByVal hdc As Long, ByVal X... 阅读全文

摘要： 第六讲 MO中的坐标和坐标系 一、坐标系对象 1、坐标对象概述 MO中提供了一系列坐标系对象（也称为投影对象）来控制和操作地图的坐标系统，如projcoordsys（投影坐标系统）、Geocoordsys（地理坐标系统）、Datum（基准面）、PrimeMeridian（本初子午线）、Projection（投影）、Spheroid（地球椭圆体）、Unit（单位）、Geotransformton（地... 阅读全文

摘要： 第五讲 MO图形的绘制 MO虽然不是绘图软件，但经常要用到在地图上画点标明位置，画矩形或多边形标明地图查询范围等操作，因此也需要用到一些基本的绘图功能。 MO的绘图就是在MAP上产生图形对象的过程，图形对象主要有：Point（点），Points（点集）、Line（线）、Rectangle（矩形）、Polygon（多边形）、Ellipse（椭圆）。 绘图时，先要创建一个绘图对象，给他赋值（... 阅读全文

摘要： 第四讲电子地图常用工具开发 一、使用指示图 1、在指示窗口中改变主窗口大小 使用如下示例代码，可以在小窗口中点击移动大窗口位置，还可以画方框改变大窗口的大小。 Private Sub Map2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim kuang As New MapObjects2.R... 阅读全文

摘要： 第三讲 图层标注、图层控制和电子地图常用工具开发 一、图层标注 利用MO的标注对象LabelRenderer，可以自动添加图层上对象的标注。 1、属性标注 属性标注的方法为： Set layer.Renderer = New LabelRenderer '设置标注对象 layer.Renderer.Field = "CNTRY_NAME" '指定要显示的字段 layer.Renderer.Al... 阅读全文

摘要： 第二讲 图层的基本功能开发 一、图层的加载操作 1、利用其他控件动态加载图层文件 所用控件包括Map 控件，Drive、Dir、File列表控件，和一个命令按钮，实现可选择性的图层文件加载，基本代码如下： Option Explicit Dim dc As New DataConnection Dim layer As New MapLayer Private Sub Command1_Cli... 阅读全文

摘要： 第一讲 MO概述及程序设计入门 一、概述 1、简介 MapObject是由美国的ESRI（Environment System Research Institute，环境系统研究所）开发，是当今流行的组件式GIS开发软件。MapObject是一组地图软件的组件（ActiveX控件），利用它可以在普通的编程语言（如VB、VC、Delphi）上实现主要的地理信息系统（其中主要的就是电子地图的功能... 阅读全文

摘要： '添加PageLayout中的浏览工具 sProgID = "esriControlTools.ControlsPageZoomInTool" ToolbarControl1.AddItem sProgID, , , True, , esriCommandStyleIconOnly sProgID = "esriControlTools.ControlsPageZoomOutTo... 阅读全文

摘要： 使用ArcGIS Engine来实现地图的点击查询并闪烁ArcGIS Engine没有提供在MapControl中点击查询的命令，只是提供了ReaderControl中的使用的点击查询的命令，下面的代码就是实现点击查询并闪烁的代码。 过程描述 Private Sub MapControl1_OnMouseDown(ByVal b... 阅读全文

摘要： 如何二维地图Map选择范围，加到三维ArcScene控件中显示、渲染（源代码） 一、 在arcMapControl_OnMouseDown事件中增加： Dim objEnvelope As IEnvelope Dim pScreenDisplay As IDisplay Dim pRubberband As IRub... 阅读全文

摘要： 基于AE的三维查询源代码 Public Type m_pObjArray iFeature As iFeature iLayerName As StringEnd TypePublic M_pFeatureArray() As m_pObjArrayPrivate Sub ArcSceneControl_OnMouseDown(ByVal Button As Long, ByV... 阅读全文

摘要： 利用ArcEngin进行空间分析的简单应用- - 一个简单的空间分析例子：vb实现在地图上画一个矩形或者圆后,计算出该区域内的要素的数目。 创建临时图层在临时图层上用程序或者让用户手动的创建一个矩形或者圆形然后使用空间过滤器,spatialfilter指定一下它的参数,进行查找就行了。具体的使用在帮助文档里有。 在地图... 阅读全文

摘要： ArcEngine 最短路径分析（源码） ... 阅读全文

摘要： ArcEngine 渲染的使用 1.Feature的基本渲染方法 Feature的常用的绘制方法包括： 1.简单绘制 2.唯一值绘制/多字段唯一值绘制 3.点密度/多字段点密度绘制 4.数据分级绘制 5.质量图(饼图/直方图) 6.按比例尺渲染 7.比例符号渲染 1.简单渲染 简单... 阅读全文

摘要： ArcEngine中拓扑的使用- - 拓扑(ITopology)的使用包括1.建立拓扑2.验证拓扑3.编辑过程中保证拓扑的正确4.查询系统中存在的拓扑1.首先 来看看建立拓扑Topology实现了ITopology这个接口 但是给类是不能用来创建对象的。必须要通过调用 ITopologyContainer::Create... 阅读全文

摘要： 基于AE删除选择的要素- - ' //Deletes all features selected on the current layer Public Sub DeleteAllSelectedFeatures(ByVal pFeatureCursor As... 阅读全文

摘要： 基于AE输出JPEG等格式的图片 以下是vb.net代码 Public Sub exportJPG(ByVal mapView As IActiveView) Try Dim strFilter As String = "JPEG文件(*.jpeg)|*.jpeg|BMP文件(*.bmp)|*.bmp" Dim pdlg As SaveFi... 阅读全文

摘要： 把.NET程序部署到没有安装.NET Framwork的机器上 摘要 本文讨论了如何使用Windows Installer技术发布.NET程序，以及如何使用native代码判断目标机器上是否安装有.NET Framework; 如果没有，将自动安装.NET Framework然后安装作者自己的.NET程序。 目录 本文内容 制作自己的安装程序 发布.NET Fra... 阅读全文