GIS设计与实现实验报告.pdfVIP

GIS 设计与实现 西北师范大学学生实验报告 学院 地环学院 专业 地理信息系统 年级、班 08 级 学号 ******* 姓名 ******** 同组者 课程名称 GIS 设计与实现 实验题目 ArcGIS Desktop 开发方式 成绩 一、实验目的： 熟练掌握 ArcGIS Desktop 开发方式。 二、实验准备： 学习 ArcGIS Desktop 定制步骤；熟悉 VBA 编程环境、Active DLL 和 Active EXE 开发一 般过程。 三、实验内容： （1）描述在ArcGIS Desktop 环境下定制窗体界面的一般步骤；（2 ）在VBA 环境下编写 宏，实现图层视图放大 1 倍功能；（3 ）描述创建按钮、工具、编辑框、组合框的一般步骤，并 实现可任意缩放图层视图的工具；（4 ）描述创建可在ArcGIS Desktop 中使用的Active DLL 一 般步骤；（5 ）描述创建包含MapControl 控件 EXE 文件一般步骤。 四、实验过程及步骤： （包括程序界面设计、控件属性说明、程序代码和程序运行四部分） 1 ArcGIS Desktop环境下的定制窗体为我们提 供了很多方便快捷的订制项，通过 ArcGIS Desktop 给自己订制自己的“地理信息系统”工 具条，步骤如下： ① 打开 arcmap 选择工具（tool ）订制菜单 在工具条选项卡中选择新建按钮，如图所示： ② 确定后选择命令选项卡在相应的目录下选择对应的命令菜单，并将该命令添加到工具条 上 ③ 在订制的工具条中修改相应的参数：右键单击工具条上要修改的命令项，此时可以将该命 令删除，重制，修改其显示，修改图标类型等操作。如图所示 （2 ）①打开arcmap 选择工具（tool ）宏菜单在宏对话框中输入自己所要新建宏的名称， 1 GIS 设计与实现 选择创建命令（create ）后系统将自动进入VBA 编程环境（或者在 arcmap 环境下直接压下 Alt+F11 也会进入到 VBA 环境中， ②编写程序代码：Sub 放大() Dim pDoc As IMxDocument Dim pEnv As IEnvelope Set pDoc = ThisDocument Set pEnv = pDoc.ActiveView.Extent’接口的实现 pEnv.Expand 0.5, 0.5, True’将窗口的显示变为原来的 0.5 倍 pDoc.ActiveView.Extent = pEnv pDoc.ActiveView.Refresh End Sub ③编写好程序后回到 arcmap 窗口中选择工具菜单选择订制选项在命令选项卡中找到宏 目录，在宏里面找到刚才的放大工程添加到工具栏或者自己订制的工具条中，最后视图如： ④测试运行程序：加载一个文件，点击此命令可将图放大。 （3 ）、按钮、工具、编辑框、组合框等都是通过UICotrols 完成的 ① 按路径执行下列命令 toolcustomize 选择命令（command ）选项卡在左侧的catagorie 中选 择 UIControls ，并执行新建UIControls （NEW UIControls ）弹出 NEW UIControls 对话框如图 所示。