GIS开发课件6.pptVIP

第3章. 地图图层及几何对象 主要内容： 介绍几何对象 创建新几何对象 几何对象的逻辑运算(交，差，并，异或) 几何对象： MapObjects2.Point 点 MapObjects2.Points 点集 MapObjects2.Line 线 MapObjects2.Polygon 多边形 MapObjects2.Rectangle 矩形 MapObjects2.Ellipse 椭圆 Parts 部件 3.6.1 点对象：MapObjects2.Point 点对象表示一种在地图坐标中具有X，Y值的几何图形 你可以通过属性X，Y，Z读取或设置一个点的位置. 使用方法DistanceTo ，你可以计算点到点、点到线、点到点集、点到多边形、及点与其它几何对象之间的距离。 你也可以执行其它几何运算，比如：求并（Union）,求交（Intersect）, 异或（ExclusiveOr）, 差（Difference）及基于点对象建立缓冲区（Buffer）. 语法: Dim pt As New MapObjects2.Point Shape文件中的MultiPoint要素类型与MapObjects中的Points 集合在概念上是一样的. 属性： shapeType: shapeTypeConstant 属性： X: Double Y: Double Z:Double Measure：double Measure(度) 用于表示一个可度量的要素在线性要素上的相对位置 Measures多数情况用于表示距离 ，但是也可以表示时间、成本或沿线段出现的其它事件 方法： Difference(substractshp: Object[,extent:Rectangle]): Object 求差 Intersect (intersectShape:Object [,extent:Rectangle]):Object 求交 Union (unionShape:Object [,extent:Rectangle]):Object 求并 Xor (xorShape:Object [,extent:Rectangle]):Object 异或 方法： DistanceTo(shp:Object): Double DistanceToSegment(pt1:Point,pt2:Point): Double Buffer(buferdst:double[,extent:Rectangle]): Object GetCrossings( shape):Points 返回一个Points 集合，其成员代表两个对象相交处的所有点. 方法： Get( X, Y, Z, Measure) 返回一个点的 X, Y, Z, Measure属性 Dim dblX As Double, dblY As Double, dblZ As Double, dblM As Double pPoint.Get dblX, dblY, dblZ, dblM Set( X, Y, [Z], [Measure]) 设置一个点的 X,Y,以及Z和Measur属性 实例3.6.1：建立点对象的缓冲区 Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Dim pt As New MapObjects2.Point Dim buffPt As New MapObjects2.Polygon Dim rect1 As New MapObjects2.Rectangle Set pt = Map1.ToMapPoint(x, y) Map1.TrackingLayer.AddEvent pt, 1 Set rect1 = Map1.FullExtent rect1.ScaleRectangle (1.6) Set buffPt = pt.Buffer(Text1.Text, rect1) Map1.TrackingLayer.AddEvent buffPt, 1 End Sub 3.6.2 点集对象：Mapobjects2.Points Points 表示一系列点在空间上的分布. Points 对象是Point对象的集合, 使用它可以在一个单独的几何对象中存储一系列相关的点 语法 Dim pts As New MapObjects2.Points 属性 shapeType: shapeTypeConstant