2.3 layout elements.pptVIP

2.3 Working with layout elements Lesson overview 增加框架元素到PageLayout 使用 graphics container 符号化回顾 Symbols Colors Elements 打印和输出布局 对象模型图 回顾: Elements 有一些可以创建的对象 图形元素包含 Line, polygon, marker Text and pictures 框架元素 在 PageLayout上 Map frames North arrows, legends, scale bars Table frames 框架元素FrameElements 属于 PageLayout 的附属 MapSurroundFrame elements MapSurrounds对象的容器 (e.g., Scalebars) 内容时动态更新的 例子: 在布局上引用MapFrames对象 打印一个a layout 多样的输出子类 EmfPrinter (增强的 meta-file) PsPrinter (支持打印机脚本) ArcPressPrinter Paper class 用来管理打印纸张设置 发送到打印机或者是文件 输出 layout对象 多样化的输出格式 Adobe Acrobat (*.pdf) JPEG ArcPress 使用的IActiveView方法StartExporting 输出聚焦的Map或PageLayout 例子: 把Layout输出到一个Jpg文件 例子: 把Layout输出到一个Jpg文件 考试题目 1、建立一个UIButtonControl，单击该按钮，加载磁盘上C:\USA\States.shp的 ShapeFile文件到ArcMap的地图中。 2、建立一个UIToolControl，使用该工具时，可以点选其中一个多边形对象，并把选择中记录的序号为6的字段值显示出来。 3、最后的结果是： Introduction to Programming ArcObjects with VBA Copyright ? 2001, 2002 ESRI. All rights reserved. Copyright ? 2001, 2002 ESRI. All rights reserved. Introduction to Programming ArcObjects with VBA ArcMap OMD MapSurroundFrame MapSurround Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument Dim pGC As IGraphicsContainer’枚举对象 Set pGC = pMxDoc.PageLayout pGC.Reset ‘移动到最前面 Dim pElem As IElement Set pElem = pGC.Next ‘取得第一个条目 Do Until pElem Is Nothing If (TypeOf pElem Is IMapFrame) Then ‘有多种类型 Dim pMapEnvelope As IEnvelope Dim intW As Integer, intH As Integer Set pMapEnvelope = pElem.Geometry.Envelope intW = pMapEnvelope.Width intH = pMapEnvelope.Height MsgBox Map Frame = intW by intH End If Set pElem = pGC.Next ‘取得下一个条目 Loop Private Sub Export(aLayout As IActiveView, aPath As String, DPI As Integer) Dim rectOut As tagRECT rectOut = aLayout.exportFrame Dim pExporter As IExporter Set pExporter = New JpegExporter Dim pEnv As IEnvelope Set pEnv = New Envelope pEnv.PutCoords rectOut.Left, rectOut.Top, rectOut.Right, rectOut.bottom pExporter.ExportFileN