GIS二次开发10.pptVIP

GIS二次开发－使用MapObjects(L10) 2007.4.16 5.2 矢量数据查询 5.2.1 根据要素查询属性 根据空间关系查询要素 根据距离查找 在查询结果记录集中查询记录属性 原理 地理信息系统的一个基本功能就是，通过与用户的交互，定位满足条件的地理空间要素，并返回相关的属性描述信息。 在MapObjects 如何查询各类几何对象（点，线段，多边形）所代表的地理要素的属性信息: 其原理是，根据用户在地图控件上点击的位置，先在指定的图层上通过空间分析的方法找到与指定位置最匹配的地理要素，将符合条件的记录生成一个结果记录集。通过结果记录集对象的相关属性和方法来获取各个记录的属性信息。 实现此功能相关的对象MapLayer SearchShape( shape, searchMethod, expression ) 创建的结果记录集，图层上的要素与shape参数所表示的几何图形对象在空间关系上符合参数searchMethod 所指定条件，逻辑条件符合表达式expression的要求。 表达式 expression是一个满足SQL语法的字符串。如果你要省略表达式,则使用一个空字符串 () SearchShape( shape, searchMethod, expression ) Shape:一个矢量图形（Shape）对象（可能是点、点集、线段、多边形等） searchMethod：一个用于指定空间查找规则的类型的整型数或MO常数。结果记录集中的要素与shape的关系必须满足所设参数指定的关系。 Expression： 一个构成SQL语句的 where 从句部分的字符串 。应当注意 MapObjects 遵遁 ANSI SQL标准, 而不是Jet Database Engine SQL标准. searchMethod查找方法常数： moPointInPolygon： 使用此参数要求Objmaplayer是一个多边形图层，shape 是一个点对象；判断一个点的坐标是否落在一个多边形要素中。 moEdgeTouchOrAreaIntersect：返回图层中的要素只要符合这样的条件之一：与要查找的对象接触; 完全或部分地处在要查找的几何对象中; 完全或部分地包含了要查找的几何对象 根据距离查找要素 方法：SearchByDistance( shape, tolerance, expression) 通过查找来创建一个记录集，这些记录集落在以shpe为中心tolerance为半径的范围内。 表达式 expression是一个满足SQL语法的字符串。如果你要省略表达式,则使用一个空字符串 (“”), 这个方法返回由符合空间查询条件的要素组成的记录集 对于Shape文件、ARC/INFO 图层数据，Shape也可以是一个记录集对象 (you cannot pass a Recordset derived from an SDE layer). 说明： 用于线要素和点要素的查询 语法： Set objRecset = Map1.Layers(index).SearchByDistance(shape, tolerance, expression) 参数说明： tolerance ：一个表示距离的数值表达式。在此方法中，用于确定在指定的容错范围内有哪些要素被选中 Private Const SEARCHTOLPIXELS = 3 （指定容错距离为3个像素） theTol = Map1.ToMapDistance(SEARCHTOLPIXELS * Screen.TwipsPerPixelX) （将地图控件上3个像素所表示的距离转换成地图单位表示的距离，以此确定容错距离） 其中Screen.TwipsPerPixelX是像素到缇的换算参数。(缇是一个与屏幕无关的单位，用来保证屏幕应用程序对屏幕元素的定位和比例在所有的显示系统上的一致性。1 Twip=1/20 Point=1/1440 Inch=1/567 cm（打印时的一英寸或一厘米所对应的屏幕上的长度）。 练习(5分钟)：将下面的代码粘贴到一个包含Map1控件的窗体中，通过设置Map1的属性增加一个多边形图层。按F5运行例子，看看有什么样的效果！ /csk/upload/gisdev/ex7.doc Option Explicit Dim MyCircle As New MapObjects2.Ellipse 程序代码 Private Sub Map1_MouseDown(…….) If Button = vbLeftButton Then Set MyCircle = Map1.TrackCircle Map1.Refresh