ArcObject开发第一讲.pptVIP

AO编程第一讲：ArcObjects简介（Introduction to ArcObject) Lesson overview AO简介 ArcGIS中用户界面的定制 AO是什么？ ArcGis Overview ArcGIS中用户界面的定制 存储 your customizations 保存All customizations Normal 模板, Base 模板, or 当前文档 当前地图将越过任何的模板 Accessing your ustomizations ArcMap 有三种保存方法 在启动的时候模板将按顺序的加载 ArcCatalog 只使用Normal模板 4.选择File菜单下的close and return to ArcMap转回ArcMap. 5.选择tool菜单下的Macros下的Macros。 6.选择Module1.MyZoomIn宏并点击Run，可对显示内容进行放大。 向工具条中加入宏 选择Tools菜单下的Customize. 确定你新建的工具栏可见 选择Commands并在categories中选择Macros。 选择你所创建的宏并拖至新建工具条中。 如要改变它的属性，右击图标 在出现菜单中，可选择相应功能，如改变图标等。 关闭customize对话框 点击按钮运行宏。 直接激活VB editor 除了在Macros对话框中点击“create”创建外，可直接激活vB Editor,并创建相应过程函数产生宏。 例子：创建MyZoomOut宏来对地图进行缩小 按Alt+F11键，直接激活vb Editor 选择module1, 写一新过程MyZoomOut 将MyZoomIn内容剪贴至MyZoomOut 将pEnv.Expand 0.5,0.5,True改为pEnv.Expand 2,2,True 打开Macros对话框，可发现MyZoomOut宏。 调用内部命令(calling built-in commands) 我们所写的代码只是在arcgis丰富的功能基础上增加一些，常常在代码中我们会按顺序调用或组合 ARCGIS中的内部命令。 调用已有命令涉及到ArcID 模块。使用Find方法，可以找到ArcID模块中的命令的UID(unique identifier)。 Sub FullExtentPlus() Dim intAns As Integer Dim pItem As ICommandItem With ThisDocument.CommandBars Set pItem = .Find(arcid.PanZoom_FullExtent) pItem.Execute intAns = MsgBox(回返到以前内容吗？, vbYesNo) If intAns = vbYes Then Set pItem = .Find(arcid.PanZoom_ZoomToLastExtentBack) pItem.Execute End If End With End Sub 在VBA中创建命令(command) 命令类似于宏，但允许更多与用户的交互，并提示工具提示描述等等。一旦激发，command经常直接产生些行为而无须用户干预。 Command是UIControl的一种类型。 选择Tools菜单下的customize。 选择commands，并将save下拉的菜单项中选为你的文件名称。 在categories列表中，选择UIControls 点击New UIControl. 在出现的对话框中，选择UIButtonControl作为UIControl类型，点击“Create and Edit”. 为UIControl增加代码 1、在click事件中加入代码 Private Sub UIButtonControl1_Click() Dim pdoc As IMxDocument Set pdoc = ThisDocument pdoc.ActiveView.Extent = pdoc.ActiveView.FullExtent pdoc.ActiveView.Refresh End Sub 2、在过程中选择Message，并 加入下面代码 Private Function UIButtonControl1_Message() As String UIButtonControl1_Message = 将地图内容显示为全图内容 End Function 加入代码实现全图功能