GIS二次开发23.pptVIP

Adv_GIS ArcObjects - 1 (L23) 2007.6.18 杨克诚 9.2 ArcMap 定制开发 宿主型二次开发 指基于GIS 平台软件进行应用系统开发。 大多数GIS 平台软件都提供了可供用户进行二次开发的脚本语言，如ESRI 的ArcView 提供了Avenue 语言，MapInfo 公司的MapInfo Professional提供了MapBasic 语言等等。 ArcMap是ArcGIS家族的成员之一，它内置了一种集成编程环境―VBA（Visaul Basic for Apllications）。通过VBA编程，用户不但可以扩展ArcMap的菜单、工具条等，而且可以完成大多数用户的特定需求。 ArcMap中VBA编程的方法有两种,一种是写VBA宏,另一种是创建UIControl并在其事件中写入实现用户需求的代码。 ArcMap VBA定制开发主要基于ArcObjects进行开发 Visual Basic for Application (VBA) ArcObjects ArcGIS 9 中，有3986个接口，3051个组件类。 ArcOBJECTS 是构成ArcGIS软件的基础，也是进行二次开发的基础组件。 基于VBA可对ArcGIS Desktop应用程序 (ArcView, ArcEditor, and ArcInfo)进行定制开发，实质还是使用ArcObjects。 要使用VBA进行基于ArcGIS的二次开发必须安装ArcGIS Desktop Developer Kit Application 对象是应用程序ArcMap和ArcCatalog中的核心对象 。 这个对象表示应用程序(ArcMap或ArcCatalog)自身，并且是获取其它对象的起始点 。 Application 对象的主接口是IApplication。这个接口提供了存取 Document 对象, Extensions(扩展模块), StatusBar 对象, Templates(模板) 对象, 当前工具, 及 Visual Basic Editor的途径. Sub GetFeatureLayers() Dim pMxDocument As IMxDocument Dim pMap As IMap Dim pEnumLayer As IEnumLayer Dim pLayer As ILayer Dim pId As New UID Set pMxDocument = Application.Document Set pMap = pMxDocument.FocusMap pId = {E156D7E5-22AF-11D3-9F99-00C04F6BC78E} Set pEnumLayer = pMap.Layers(pId, True) pEnumLayer.Reset Set pLayer = pEnumLayer.Next Do While Not pLayer Is Nothing MsgBox pLayer.Name Set pLayer = pEnumLayer.Next Loop End Sub 用户界面定制－菜单定制 菜单定制 Sub Msg() MsgBox 欢迎使用本系统 End Sub 用户界面定制－工具栏定制 在VBA中编写宏 Macros Code window Sub MyZoomIn() macro; MyRoomIn Dim pDoc As IMxDocument Dim pEnv As IEnvelope Set pDoc = ThisDocument Set pEnv = pDoc.ActiveView.Extent pEnv.Expand 0.5, 0.5, True pDoc.ActiveView.Extent = pEnv pDoc.ActiveView.Refresh End Sub Envelopes are the rectangular window that contain a specific element.? All Geometry objects have an envelope defined by the XMin, XMax, YMin, and YMax of the object.? Envelopes can also serve as the viewing area for a particular view screen or data frame. Sub MyZoomIn() macro; MyRoomIn Dim pDoc As IMxDo