ArcGIS与VB的联合开发.docVIP

ArcMap的定制与开发 单击Tools—Customizes…命令，打开定制对话框后，可以对ARCMAP 中的工具条，菜单项，进行定制，可以加载用户自定义的宏、 VBA程序、 DLL命令等。 定制VBA程序。Tools—Visual Basic Editor...打开编辑器： 在Project（NewMap.mxd）下插入一个新的UserForm1。并在新建的窗体中添加一个命令按钮，Caption为VB窗体示例。 双击命令按钮为其添加点击事件程序。 Tools—Macros…打开宏对话框。并新建一个名为MyMacro的宏，其中加载宏（A）中选择Project(NewMap.mxd)。并在VBA编辑器中为该宏编写代码。其中宏MyMacro1直接运行上面的VBA窗体 D、打开Customize 对话框 ，选择Commands栏。通过New UIcontrol，用户可以定制4类命令，按钮、编辑框、工具命令、组合框。 在此先创建一个NewToolbar： 将刚才的宏拖到新建的工具条即可。 E、编写VB的DLL动态链接库。 上面介绍的定制方法必须在ARCMAP 环境下进行，离不开环境，且代码随文档保存，难以进行深层次开发，代码解释执行，效率差，保密性差，但相对容易些，ARCMAP已经提供了现成的对象与接口。下面开始介绍通过DLL操作ArcObjects 定制ARCGIS命令。这种开发模式，最好通过改写已做好的示例程序来实现，不必要自己编写所有的代码。 建议用VB编写DLL，其他语言也可，但范例代码少。 打开VB，新建ActiveX DLL工程。 在工程菜单下打开引用对话框，为该工程添加ESRI的库文件。其中ESRI Object library项一定要引用。 工程中加入一VB窗体frmresources，放置一图片框，图片框内容为一个图标。 加入一类模块，该模块包含了ARCOBJECTS接口ICOMMAND。接口是 ARCGIS定制与开发的关键，通过引用不同的接口，类可以实现不同的功能，不同的功能组成了ARCGIS的程序框架。类的实现代码如下： Option Explicit Implements ICommand Private m_pApp As IApplication Private Property Get ICommand_BitMap() As esriSystem.OLE_HANDLE ICommand_BitMap = frmResources.Picture1.Picture End Property Private Property Get iCommand_Caption() As String iCommand_Caption = VB Soultion End Property Private Property Get iCommand_Category() As String iCommand_Category = MyVBSolution End Property Private Property Get ICommand_Checked() As Boolean ICommand_Checked = False End Property Private Property Get ICommand_Enabled() As Boolean ICommand_Enabled = True End Property Private Property Get ICommand_HelpContextID() As Long 该命令的帮助索引 End Property Private Property Get ICommand_HelpFile() As String 该命令的帮助文档 End Property Private Property Get ICommand_Message() As String ICommand_Message = 这是地信实习程序示例 End Property Private Property Get ICommand_Name() As String ICommand_Name = test End Property Private Sub ICommand_OnClick() m_pApp.Caption = 地理信息系统实习 Dim pMxDocument As IMxDocument Set pMxDocument = m_pApp.Document Dim pMap As IMap Set pMap = pMxDocume