MapObejcts组件应用设计(地图绘图输出).doc

地图绘图输出使用Map控件提供的属性和方法，学习本节前请先熟悉Map控件，重点掌握它的绘图属性和方法。2.8.1坐标系1 Map控件窗口坐标系Map控件窗口使用直角坐标系，以控件窗口的左上角为原点，向右是X轴，向下是Y轴。坐标系默认的度量单位是缇(twip),缇是固定长度单位，1缇等于1/1440英寸(inch)。Map 控件的鼠标事件函数使用这一坐标系。 在VB中，Form.ScaleMode属性设置窗体的坐标度量单位，在VB 6.0版中，可以设置7种度量单位。ScaleMode默认值指定窗体的度量单位是缇。窗体上的所有控件在默认情下使用Form.ScaleMode属性指定的度量单位，因此Map控件窗口的默认度量单位是缇。本书样例程序中使用的坐标长度单位是缇，本节中特别指定的程序例外。Map控件窗口使用Form的坐标度量单位，因此可以用Form.ScaleMode设置Map控件窗口的坐标度量单位,然而设置的度量单位对Map控件本身的函数和方法不起作用，如果不使用Windows API函数，不应更改Form.ScaeMode的默认值，以免引起错误。Map控件窗口坐标系由开发语言的编译器定义，同一种语言编译器若来自不同的厂家，窗口坐标系可能有差异。不同的语言定义的窗口坐标系也有差异。2 Map控件窗口数据坐标系Map.CoordinateSystem属性指定的坐标系,坐标系的定义方法与图层数据坐标系相同。在程序中若没有用语句给Map.CoordinateSystem赋值，则它的值是Nothing。此时Map控件窗口数据坐标系使用图层数据坐标系。3 图层数据坐标系文件中的地图数据使用笛卡儿直角坐标系。坐标系及其坐标单位在投影元文件中描述。地图数据是点、线、面等图形要数的(X,Y)坐标值。(1) 矢量地图数据的坐标单位若地图已经投影，则地图数据坐标使用长度单位，我国最常用的长度单位是米，小比例尺地图常用用千米。若地图未经投影，则地图数据坐标单位使用十进制度，X坐标表示经度，Y坐标表示纬度。坐标(123.5,43.2)表示经度是123.5度、纬度是43.2度的一点。地图不进行投影，用地理坐标记录地图数据是地理信息系统中数据最优表示方案。我国国家基本比例尺地形图数据库采用这一方案。(2) 栅格地图数据的坐标单位用栅格像元在地面对应矩形的长和宽表示坐标单位，像元所在的列号为X坐标，行号为Y坐标。栅格数据坐标系与设备坐标系一致。多数情况下栅格像元是正方形，也可以是矩形。4 设备坐标系输出设备具有自己的坐标系，用行、列表示坐标，用像素(pixel)作为坐标度量单位。像素是输出设备在介质上能描绘的最小图形，无论是图象、图形还是文字，任何输出都转换成像素在设备上输出。在打印机或绘图仪的说明书上常使用dot,就是指像素，用每英寸点数(dot per inch也称dpi )表示分辨率。设备上的点以像素(dot)尺寸为度量单位，以点所在的列为X坐标，以点所在的行为Y坐标。如此定义的坐标系称为设备坐标系，设备坐标系的原点在左上角，向右是X轴方向，向下是Y轴方向。不难看出，如果坐标长度单位用Pixel, Map控件坐标就是设备坐标系。因此设备坐标系是控件坐标系的一种特例。多数设备的像素是正方形，也有是长方形的。有些设备绘图的最小像素尺寸可以通过软件或硬件设置。打印机、绘图仪、显示器是常见的输出设备，可以根据说明书设置分辨率。有些设备的分辨率是固定的，不能进行设置。设备坐标系在对设备直接编程控制时使用，在Windows操作系统下，可以调用设备驱动程序控制设备，设备驱动程序及Windows API函数使用设备坐标系。VB的预定义对象实例Printer和Screen提供了TwipsPerPixelX与TwipsPerPixelY属性，可用于像素与坐标单位之间的转换。5 绘图显示过程中的坐标变换Map1窗口显示地图的坐标变换过程如下：If Map1.CoordinateSystem = Nothing将图层坐标数据变换成Map1窗口坐标系数据用Map1窗口坐标系数据绘图Else将图层坐标数据变换成Map1控件数据坐标系数据将Map1控件数据坐标系数据变换成Map1窗口坐标系数据用Map1窗口坐标系数据绘图End If用Map1窗口坐标系数据绘图经过两步完成：将窗口坐标系数据变换成设备坐标系数据用设备坐标系数据调用Windows的API函数绘图用打印机绘图的坐标变换过程也是如此。6 Map.Extent属性及Map事件函数中使用的坐标系Map1.Extent属性中的坐标数据使用地图数据坐标系。Map1.Extent属性各分量名称注释Map1.Extent.WidthMap1窗口的宽度Map1.Extent.HeightMap1窗口的高度Map1.Extent.TopMap1窗口的顶部边线Y坐标Map1.Extent.LeftMap1窗口的左部边线X坐标Map1.Extent属性的各分量Map1事件函数中使用Map控件坐标系,如Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Map1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)等函数中的X、Y表示鼠标当前位置在Map1控件窗口坐标系下的坐标，坐标单位是缇。参见MapExtent目录中的程序运行结果。例1 计算Map1 窗口中的一点在4种坐标系下的坐标(完整程序参见样例目录Coordinate)Map1.CoordinateSystem = Map1.Layers.Item(0).CoordinateSystem.GeoCoordSysPrivate Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim DevX, DevY As SingleLabel1.Caption = Map 控件窗口坐标系 X = & X & Y = & Y计算Map控件设备坐标系坐标：DevX = Form1.ScaleX(X, Form1.ScaleMode, vbPixels)DevY = Form1.ScaleY(Y, Form1.ScaleMode, vbPixels)Label2.Caption = Map 控件设备坐标系 X = & DevX & Y = & DevY计算Map控件数据坐标系坐标：Dim aPoint As New MapObjects2.PointDim TwipsX, TwipsY As LongIf Form1.ScaleMode vbTwips ThenTwipsX = ScaleX(X, Form1.ScaleMode, vbTwips)TwipsY = ScaleY(Y, Form1.ScaleMode, vbTwips)ElseTwipsX = XTwipsY = YEnd IfSet aPoint = Map1.ToMapPoint(TwipsX, TwipsY)Label3.Caption = Map 控件数据坐标系 X = & aPoint.X & Y = & aPoint.Y计算Map1图层坐标系坐标：Dim thePrj As MapObjects2.ProjCoordSysDim bPoint As MapObjects2.PointSet thePrj = Map1.Layers.Item(0).CoordinateSystemSet bPoint = thePrj.Transform(Map1.CoordinateSystem, aPoint)Label4.Caption = Map 控件图层坐标系 X = & bPoint.X & Y = & bPoint.YEnd Sub习题1 运行例题1程序，观察Map1窗口中点的坐标值变化规律，总结出4种坐标系的定义。2 交互式改变Map1.CoordinateSystem及Form1. ScaleMode的值，设计程序实现例题1的功能。2.8.2 Map控件的绘图属性和方法1 hWnd 属性hWnd As OLE_HANDLE OLE_HANDLE是long数据类型的别名 , 因此hWnd的数据类型是long型。Windows操作系统在屏幕上绘图时，并不需要使用屏幕整个显示区域，而只向屏幕的一个矩形区域发送数据，这种区域称为窗口。桌面上运行的每一个应用程序都有一个窗口，Windows操作系统为了管理窗口，给每个窗口赋予一个唯一编号，称为窗口句柄(Handle)。对窗口进行操作时使用窗口句柄。在Windows许多API（Application Programming Interface,应用程序编程接口）函数中，经常使用窗口句柄，且用专用的名称hWnd表示，在其它场合，也常用hWnd表示窗口句柄，hWnd已经成了窗口句柄的专用名称。API提供了丰富的窗口操作函数，利用Map.hWnd属性可以增加地图窗口的显示内容，扩充Map控件的功能。在Visaul Basic的Objects Browser（对象浏览器）中，定位到Map.hWd按F1键可以看到样例程序。2 输出图像或图形文件在Map控件中绘制的地图可以形成栅格结构图像或矢量结构图形保存到文件中，也可保存到剪贴板中，供其它软件使用。有四个方法实现这项功能。ExportMap、ExportMap1、ExportMap2三个方法作用相同。(1) Sub ExportMap(exportType As ExportMapConstants, outputFile As String, scaleFactor As Double)将Map1窗口中可见范围的地图输出到BMP或EMF格式的文件中，也可保存在剪贴板中。输出数据格式和数据存放位置由exportType 参数指定，含义如下表。exportType 值数据格式存放位置moExportEMF 0EMF文件中moExportBMP 1BMP文件中moExportClipboardEMF 2EMF剪贴板moExportClipboardBMP 3BMP剪贴板exportType参数值表outputFile参数指定输出文件名称。scaleFactor参数指定像元个数放大系数，X,Y两个方向使用同一系数。例如，Map1窗口中每行有110个像元，scaleFactor的值是3,则输出的图像每行有330个像元。(2) Sub ExportMap2(exportType As ExportMapConstants, outputFile As String, scaleFactor As Double, useSourceDepth)在ExprotMap的接口参数中增加useSourceDepth参数形成ExportMap2。当Map控件窗口中含有影像图层时使用ExportMap2方法。useSourceDepth参数是Boolean 型，缺省值是False,。指定在输出的图像中是否采用影像图层的调色板(Pallete)。若useSourceDepth取值为True，则输出影像采用原图像层的调色板，即目标影像与原影像的位层面数相同,影像色彩保真。(3) Sub ExportMap3(formatType As ExportMapConstants, formatData, scaleFactor As Double = 1, scaleSymbology As ExportSymbologyScaleConstants = moLineSymbolsNotScaled, exportDepth As ExportDepthConstants = moExport8BitDepth, palette As ExportPaletteConstants = moDefaultPalette)这个方法在ExportMap的接口参数中增加三个参数，可为输出影像进行更多参数设置,含义如下：1) ExportSymbology指定输出影像中的符号是否按scaleFactor因子进行比例拉伸，取值的含义如下表。ExportSymbology 参数值含义moNoSymbologyScaled 0符号尺寸不变moLineSymbolsNotScaled 1线的宽度不变，符号的其它尺寸乘以scaleFactormoAllSymbologyScaled 2符号尺寸乘以scaleFactorExportSymbologyScaleConstants枚举常量值表2) exportDepth 参数指定输出影像的位平面数，取值的含义如下表。exportDepth 参数值输出影像的位平面数moExport8BitDepth 0 8 bit ， palette参数有效moExportSourceDepth 1 24 bit ,若Map1中有24 bit图像。否则8 bitmoExport24BitDepth 2 24 bit ExportDepthConstants枚举常量值表3) palette 当输出8bit位图时，指定输出位图的调色板，取值含义如下表所示。palette 参数值输出位图采用的调色板moDefaultPalette 0 Windows操作系统的缺省调色板moHalfTonePalette 1 与Map1最接近的半色调调色板moWebSafePalette 2 与Map1最接近的网络上用的调色板moGraysWithSystemColorsPalette 3 8 bit颜色映射成灰度值调色板，ExportPaletteConstant枚举常量值表(4) Sub ExportMapToJpeg(outputFile As String, percentQuality As Long = 85, isProgressive As Boolean = False, scaleFactor As Double = 1, scaleSymbology As ExportSymbologyScaleConstants = moLineSymbolsNotScaled)这个方法输出JPEG格式图像，有两个参数前文未加说明：1) percentQuality 取值0到100之间，指定输出图像的质量。值越大，质量越高，但图像文件也越大。2) isProgressive 指定输出的图像是否使用改进的JPEG格式。3 PrintMap方法Sub PrintMap(docName As String, outputFile As String, landscapeOrientation As Boolean)将Map1窗口中的地图输出到打印机，也可存为一个打印文件。打印时自动将地图尺寸调整到打印纸的大小。1) docName 打印文档名称，可以任意命名，打印时在打印机的打印任务队列中可以看到您给的名字。2) outputFile若将打印结果保存到文件中，可在此指定文件名,否则用空字符串。3) landscape 指定地图在纸张上的打印方向。值为True表示纵向打印，否则横向打印。4 将地图复印到hDC标识的设备上。(1) Sub OutputMap(hDC As OLE_HANDLE)将地图窗口中显示的全部内容复印到hDC标识的设备上。hDC long型参数(OLE_HANDLE 是long型的别称)，用于指定输出设备。hDC是Windows操作系统API函数参数的专用名词之一，称为设备描述表句柄(Handle of device context)，本质上是标识设备参数表及其驱动程序的编号，Windows操作系统中设备输入输出API函数用hDC作为参数。在Visual Basic中， Form窗体、Picture图片框，Printer实例等有hDC属性。例1复制地图到控件。将Map1窗口中的全部显示内容复印到图片控件Picture1的窗口中(参见OutMap目录中的OutMap程序窗口上的按钮 复制地图到控件 对应的代码)。Private Sub Command1_Click() 将Map1中的地图复印到Picture1控件窗口中Map1.OutputMap Picture1.hDCEnd SubOutputMap方法也可以将地图窗口中的内容硬拷贝输出到打印机。例2 打印地图。 将Map1窗口中的地图输出到打印机。Private Sub Command4_Click() 打印地图Printer.Print 初始化打印机Map1.OutputMap Printer.hDC 打印地图Printer.EndDoc 结束打印End Sub (2) Sub OutputMap2(hDC As OLE_HANDLE, X As Long, Y As Long, Width As Long, Height As Long, DrawFlags)将地图窗口中显示的全部内容复印到hDC标识的设备上。X 设备坐标系下目标设备绘图矩形区左上角的 X坐标Y 设备坐标系下目标设备绘图矩形区左上角的 Y坐标width 设备坐标系下目标设备绘图矩形区的宽度height 设备坐标系下目标设备绘图矩形区的高度drawFlags一个数值型常数，指定如何绘图，含义如下表：drawFlags 的值说明moNoBackground1不复印背景矩形边框moClipToExtent 2只复印Map1.Extent以内的内容drawFlags参数取值例3 打印组合地图。将Map1中的地图复印到打印纸右上四分之一区域及右下四分之一区域，组合成一张地图。Private Sub Command5_Click() 打印组合地图Dim pixHeight As LongDim PixWidth As LongPrinter.Print 初始化打印页 将页面尺寸转换成像元数.pixHeight = Printer.ScaleHeight / Printer.TwipsPerPixelYPixWidth = Printer.ScaleWidth / Printer.TwipsPerPixelX 打印地图Map1.OutputMap2 Printer.hDC, PixWidth / 2, 0, PixWidth / 2, pixHeight / 2Map1.OutputMap2 Printer.hDC, PixWidth / 2, pixHeight / 2, PixWidth / 2, pixHeight / 2Printer.EndDoc 打印文档结束，输出当前打印页，结束打印End SubOutputMap与OutputMap2必需参数hDC，如果不知道hDC，但知道窗口的hWnd,可以用API函数获取hDC。下段程序获得当前FORM窗体的hDC：Private Declare Function GetDC Lib user32 (ByVal hWnd As Long) As Long API函数Private Sub Command1_Click()Dim GethDC As LongGethDC = GetDC(Me.hWnd) 用API函数获取窗口的hDCEnd Sub5 CopyMap方法Sub CopyMap(scaleFactor As Double)将Map1窗口中地图复制到剪贴板上，用EMF（enhanced metafile format，Windows增强元文件格式）和WMF（standard metafile format,Windows标准元文件格式）格式表示。scaleFactor 地图输出缩放因子。样例参见OutMap目录中程序的复制地图到剪贴板 命令按钮对应的代码。习题1 编写程序实现例1、例2、例3的功能2 用Map1.CopyMap方法将地图复制到剪贴板，用你熟悉的图象处理软件提取剪贴板中的地图。2.8.3地图绘图输出1 窗体和控件上的绘图输出Map控件中的地图可以输出到窗体，也可以输出到控件。窗体和控件都是Windows操作系统的窗口，Map控件底层的函数绘图是在窗口上实现的，因此两者绘输出编程原理相同。Map.OutputMap或Map.OutputMap2方法可以实现这两项功能。例1复制地图到另一个窗体。将Form1窗体上Map1中的地图复制到窗体ShowMap上(参见OutMap2目录中的程序)。1) 在命令按钮复制地图到另一个窗体 中显示ShowMap窗体Private Sub Command2_Click()ShowMap.ShowEnd Sub2) 在ShowMap窗体的Paint事件中复制地图Private Sub Form_Paint()Form1.Map1.OutputMap Me.hDCEnd Sub例2 地图组合。将Map1中的地图分别复制到Picture1图片框上的右半部上下两个区域(见OutMap2目录中程序的地图组合 命令按钮对应的代码)。Private Sub Command3_Click()With Me.Picture1Map1.OutputMap2 .hDC, .ScaleWidth / 2, 0, .ScaleWidth / 2, .ScaleHeight / 2Map1.OutputMap2 .hDC, .ScaleWidth /2, .ScaleHeight /2, .ScaleWidth/2, .ScaleHeight /2End WithEnd SubMap1.OutputMap2方法中的坐标参数使用设备坐标系，应将Me.Picture1.ScaleMode属性值设置成Pixel,这样，Picture1的控件坐标系与设备坐标系一致。2 打印机绘图输出Map.PrintMap或Map.OutputMap方法可将Map窗口中的地图复印到打印机，输出图范围是整个地图窗口，并调整地图的输出比例尺，尽可能获得较大的输出地图。Map.PrintMap方法一个语句就可以打印一页地图，不必使用打印机初始化及打印文档结束语句。Map.OutputMap2方法可以指定输出地图的尺寸及其在纸张上的位置，可以输出组合地图。3 比例尺计算（1）比例尺的定义 若两地物在地面上的实际距离是L,图面上的距离是M,比值BB = L/M则注记1:B称为地图的比例尺。(2) 计算B值在MapObjects2中，地图输出函数Map1.OutputMap Map1.OutPutMap2 Map1.PrintMap Map1.CopyMap输出地图的范围是Map1窗口中显示的地图矩形区域，可用矩形区在地面上的尺寸和打印尺寸计算B值。1) 确定L的值 MappObjects2中，若投影元数据完整，Map1.Extent中的数据记录的是地图窗口矩形在地面上的实际尺寸，据此可以获得L值，若地图数据是经过投影的，从Map1,CoordinateSystem.Unit.Type可以确定确定L值的长度单位，若地图数据未经投影，则L值的长度单位是经纬度，这时需经投影计算获得地面矩形的实际尺寸。2) 确定M的值 Printer.ScaleWidth Printer.Scal