第5讲MO图形的绘制.docVIP

第五讲 MO图形的绘制 ???? MO虽然不是绘图软件，但经常要用到在地图上画点标明位置，画矩形或多边形标明地图查询范围等操作，因此也需要用到一些基本的绘图功能。 MO的绘图就是在MAP上产生图形对象的过程，图形对象主要有：Point（点），Points（点集）、Line（线）、Rectangle（矩形）、Polygon（多边形）、Ellipse（椭圆）。 绘图时，先要创建一个绘图对象，给他赋值（位置和尺寸），再在Symbol对象中定义显示方式，最后用Drawshape方法在地图上显示这个图形。 定义Symbol对象，不仅可以设置线型、填充方式、尺寸、颜色和字体等，还可以画出多种预定义的符号。Drawshape方法绘图外，还可以用AddEvent方法在动态图层上画动态图形对象（GeoEvent）。另外还可以用DrawText方法在地图上写字。 一、DrawShape绘图方法 1、DrawShape定义 DrawShape方法的语法为： object.DrawShape shape, symbol 其中，object：为绘图目的对象，一般为Map对象； shape：为绘图内容，是图形对象（Point, Points, Line, Rectangle, Polygon or Ellipse）或记录集（Recordset）对象； symbol：是一个Symbol对象，说明绘图方式。 注意：调用DrawShape必须在LAYER或TrackingLayer的drawing事件中，即AfterTrackingLayerDraw，BeforeLayerDraw，BeforeTrackingLayerDraw，AfterLayerDraw事件过程中才有效。 如果指定一个Recordset作为DrawShape的参数，该数据集必须是从GeoDataset获取，而不是从一个Table对象获取，同时MO从shape字段的第一个特征值开始，到最后一个结束，然后又指向第一个记录。 2、画点 （1）预定义画点：可以用Point对象画一个点，也可以用Points对象画多个点。示例： Dim sym As New MapObjects2.Symbol Dim p As Point Dim pts As Points Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE) Set pts = New Points Set p = Map1.ToMapPoint(1000, 1000) pts.Add p是Points对象中的一个函数，功能是增加一个Point成员到Points对象内。 Set p = Map1.ToMapPoint(3000, 2000) pts.Add p sym.Color = moRed sym.SymbolType = moPointSymbol sym.Size = 3 Map1.DrawShape pts, sym End Sub （2）利用鼠标点击画点：通过鼠标点击屏幕获取点的坐标，进行画点操作。示例： Dim sym As New MapObjects2.Symbol Dim p As Point Dim pts As New Points Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE) If Not pts Is Nothing Then sym.Color = moRed sym.SymbolType = moPointSymbol sym.Size = 3 Map1.DrawShape pts, sym Map1.DrawShape pts, sym End If End Sub ? Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Set p = Map1.ToMapPoint(X, Y) pts.Add p Map1.TrackingLayer.Refresh True’ TrackingLayer对象是MAP控件中的一个图层，它描述位置可以动态改变的地理目标，Refresh是TrackingLayer对象的成员函数，强制刷新TrackingLayer对象。 End Sub 3、画线 MO中画线的基本原理是先设置两个点，将他们添加到一个Points对象中，再将Points对象放到一个Line对象中，使用DrawShape方法就可以画出一条线段来。如