资源描述：
《mapobjects图形的绘制》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、本科学生实验报告学号姓名学院专业、班级实验课程名称实用GIS开发教师及职称开课学期至学年第二学期填报时间2011年5月16日云南师范大学教务处编印9实验序号2实验名称图形的绘制实验时间2011-5-16实验室一．实验预习1．实验目的通过此实验，了解Mo的图形绘制功能，学会使用DRAWSHAPE方法在地图上显示一个图形（点，线，面）。2．实验原理、实验流程或装置示意图MO虽然不是绘图软件，但是经常要用到在地图上画点标明位置，画矩形或多边形标明地图查找范围等操作，因此就需要用到一些简单的绘图功能！MO的绘图就是在MAP上产
2、生图形对象的过程。图形对象主要有：point(点),点集（points）,线（line）,矩形（rectangle）,多边形（polygon）和椭圆（Ellipse）。绘图时，先创建一个图形对象，给它赋值【dim（声明），set(赋值)】，再在symbol对象中定义显示的方式，最后用drawshape方法在地图上显示这个图形。定义symbol对象，不仅可以设置对象类型（symboltype），填充方式（style），尺寸（size）,颜色（color）和字体（font），还可以画出各种预定义符号（点的style中设定）
3、。除了使用drawshape方法绘图外，还可以用addevent方法在动态图层上画动态图形对象(GeoEvent)。93．实验设备及材料硬件：电脑软件：VisualBasic6.0和MO4．保证实验成功的关键问题仔细认真，了解每步实验进行的顺序。9二．实验内容1．实验现象与结果使用drawshape方法Drawshape的语法如下：Object.Drawshapeshape,symbol㈠：使用drawshape绘制点代码如下OptionExplicitDimPtsAsMapObjects2.PointsDimpAsP
4、ointDimsymAsNewSymbolPrivateSubMap1_AfterTrackingLayerDraw(ByValhDCAsstdole.OLE_HANDLE)【在AfterTrackingLayerDraw事件下驱动DrawShape】sym.Color=moRedsym.SymbolType=moPointSymbol’symboltype表示要绘制的对象类型sym.Size=5IfNotPtsIsNothingThenMap1.DrawShapePts,sym’使用drawshape绘点EndIfE
5、ndSubPrivateSubMap1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SetPts=NewMapObjects2.PointsSetp=Map1.ToMapPoint(X,Y)’获取屏幕点坐标Pts.AddpMap1.TrackingLayer.RefreshTrue’与map1建立连接EndSub9运行结果如下㈡：使用drawshape绘制线代码如下OptionExplicitDimg_LineAsMapObjects2.Li
6、ne’声明线对象DimPtsAsMapObjects2.Points’声明点集对象PrivateSubCommand1_Click()’点击command1清空图像Setg_Line=NothingSetPts=NothingMap1.RefreshSetg_Line=NewMapObjects2.LineEndSubPrivateSubMap1_AfterTrackingLayerDraw(ByValhDCAsstdole.OLE_HANDLE)DimsymAsNewSymbolIfNotg_LineIsNothin
7、gThen’判断线sym.Color=moBlackMap1.DrawShapePts,sym’使用drawshape画点IfPts.Count>1Then’判断点>1才能构成线sym.Color=moRed9Map1.DrawShapeg_Line,sym’使用drawshape画线EndIfEndIfEndSubPrivateSubMap1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)DimpAsPointIfButton=1ThenIf
8、g_LineIsNothingThenSetg_Line=NewMapObjects2.LineEndIfIfPtsIsNothingThenSetPts=NewMapObjects2.PointsEndIfSetp=Map1.ToMapPoint(X,Y)Pts.Addp’将点加入点集IfPts.Count=1Theng_Lin
