第6章地图导出.docVIP

第六章：地图导出 GIS专业人员的一个主要任务就是制作地图。对制作地图的要求就是在一个印刷页面上介绍地理数据库里的信息。这些印刷的地图涉及到用于展览的大面积墙纸地区图，甚至用于总结的报道、杂志和教科书的小印刷体。ARCMAP对象通常用于展现数据以及在页面上的其他信息；OUTPUT对象通常用于将页面上的信息导出到一个输出设备或者文件。这一章所要讨论的问题就是怎么应用 OUTPUT类到硬件，比方说用于打印机或者输出到JPEG|、PostScript、Metafile 等格式的文件。两个主要的输出对象一个是支持输出大 硬件设备的打印机，另一个则是控制将输出到一个文件的输出接口。当需要将信息合并到一个新文档或网页是通常采用文件的形式操作。 6.1 印刷对象 6.1.1 Printer抽象类 三个printer objects是从Printer abstract class继承得来的，包括EmfPrinter、ArcPressPrinter、PsPrinterobject IPrinter 接口是通过所有的应刷类来实现的. paper成员根据应用启动的容错性应刷系统初始化。每使用一种不同的应刷机都得构建自己的paper object。?PrintToFile成员使得输出到文件变得可能。 DoesDriverSupportPrinter方法允许开发者决定那种特定的印刷机能和当前的驱动一起使用。使用StartPrinting方法能返回一个hdc变量，能被IActiveView::Output引用，输出致某打印设备。IPrinter::FinishPrinting用来定义发送至输出设备的各种信息流。 下边是一个 VBA代码利用EmfPrinter object输出的例子。 Public Sub PrintLayout () To test, add a layer to the map, and run procedure Dim pMxApp As IMxApplication Dim pMxDoc As IMxDocument Set pMxApp = Application Set pMxDoc = ThisDocument Dim pPrinter As IPrinter Dim pPaper As IPaper Dim pPageLayout As IPageLayout Set pPrinter = pMxApp.Printer Set pPrinter.Paper = pMxApp.Paper Set pPageLayout = pMxDoc.PageLayout Dim pActiveView As IActiveView Set pActiveView = pMxDoc.ActiveView Dim deviceframe As tagRECT Dim pDeviceFrame As IEnvelope Now set the printer object with the correct properties Set pDeviceFrame = New Envelope pPageLayout.Page.GetDeviceBounds pPrinter, 1, 0, pPrinter.Resolution, _ pDeviceFrame deviceframe.Left = pDeviceFrame.xmin deviceframe.top = pDeviceFrame.ymin deviceframe.Right = pDeviceFrame.XMax deviceframe.bottom = pDeviceFrame.YMax Get the Visible Bounds if we are in Page Layout View Dim pVisibleBounds As IEnvelope Dim pPageLayoutView As IActiveView Set pPageLayoutView = pPageLayout If TypeOf pActiveView Is IPageLayout Then Set pVisibleBounds = New Envelope pPageLayout.Page.GetPageBounds pPrinter, 0, 0, pVisibleBounds End If Dim pEmfPrinter As IEmfPrinter Set pEmfPrinter = pPrinter Need to offset deviceBounds by xmin and ymin margins only for EmfPrinter If TypeOf pPrinter