- 1、本文档共19页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第五讲 MO图形绘制
第五讲 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方法就可以画出一条线段来。
文档评论(0)