Mapobjects图形的绘制.docVIP

本科学生实验报告 学号 姓名 学院 专业、班级 实验课程名称 实用GIS开发 教师及职称 开课学期 至 学年 第二学期 填报时间 2011 年 5 月 16 日 云南师范大学教务处编印 实验序号 2 实验名称 图形的绘制 实验时间 2011-5-16 实验室 一．实验预习 1．实验目的 通过此实验，了解Mo的图形绘制功能，学会使用DRAWSHAPE方法在地图上显示一个图形（点，线，面）。 2．实验原理、实验流程或装置示意图 MO虽然不是绘图软件，但是经常要用到在地图上画点标明位置，画矩形或多边形标明地图查找范围等操作，因此就需要用到一些简单的绘图功能！ MO的绘图就是在MAP上产生图形对象的过程。图形对象主要有：point(点),点集（points））））） 仔细认真，了解每步实验进行的顺序。 二．实验内容 实验现象与结果 使用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.DrawShape Pts, sym ’使用drawshape画点 If Pts.Count 1 Then ’判断点1才能构成线 sym.Color = moRed Map1.DrawShape g_Line, sym ’使用drawshape画线 End If End If End Sub Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim p As Point If Button = 1 Then If g_Line Is Nothin