Mapobjecs图形的绘制.docVIP

PAGE PAGE 1 本科学生实验报告 学号 姓名 学院 专业、班级 实验课程名称 实用GIS开发 教师及职称 开课学期 至 学年 第二学期 填报时间 2011 年 5 月 16 云南师范大学教务处编印 实验序号 2 实验名称 图形的绘制 实验时间 201 实验室 一．实验预习 1．实验目的 通过此实验，了解Mo的图形绘制功能，学会使用DRAWSHAPE方法在地图上显示一个图形（点，线，面）。 2．实验原理、实验流程或装置示意图 MO虽然不是绘图软件，但是经常要用到在地图上画点标明位置，画矩形或多边形标明地图查找范围等操作，因此就需要用到一些简单的绘图功能！ MO的绘图就是在MAP上产生图形对象的过程。图形对象主要有：point(点),点集（points）,线（line）,矩形（rectangle）,多边形（polygon）和椭圆（Ellipse）。 绘图时，先创建一个图形对象，给它赋值【dim（声明），set(赋值)】，再在symbol对象中定义显示的方式，最后用drawshape方法在地图上显示这个图形。 定义symbol对象，不仅可以设置对象类型（symboltype），填充方式（style），尺寸（size）,颜色（color）和字体（font），还可以画出各种预定义符号（点的style中设定）。 除了使用drawshape方法绘图外，还可以用addevent方法在动态图层上画动态图形对象(GeoEvent)。 实验设备及材料 硬件：电脑 软件：Visual Basic 6.0和MO 4．保证实验成功的关键问题 仔细认真，了解每步实验进行的顺序。 二．实验内容 实验现象与结果 使用drawshape方法 Drawshape的语法如下： Object.Drawshape shape,symbol ㈠：使用drawshape绘制点 代码如下 Option Explicit Dim Pts As MapObjects2.Points Dim p As Point Dim sym As New Symbol Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE) 【在AfterTrackingLayerDraw事件下驱动DrawShape】 sym.Color = moRed sym.SymbolType = moPointSymbol ’symboltype表示要绘制的对象类型 sym.Size = 5 If Not Pts Is Nothing Then Map1.DrawShape Pts, sym ’使用drawshape绘点 End If End Sub Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Set Pts = New MapObjects2.Points Set p = Map1.ToMapPoint(X, Y) ’获取屏幕点坐标 Pts.Add p Map1.TrackingLayer.Refresh True ’与map1建立连接 End Sub 运行结果如下 ㈡：使用drawshape绘制线 代码如下 Option Explicit Dim g_Line As MapObjects2.Line ’声明线对象 Dim Pts As MapObjects2.Points ’声明点集对象 Private Sub Command1_Click() ’点击command1清空图像 Set g_Line = Nothing Set Pts = Nothing Map1.Refresh Set g_Line = New MapObjects2.Line End Sub Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE) Dim sym As New Symbol If Not g_Line Is Nothing Then ’判断线 sym.Color = moBlack Map1.Draw