地信开发实习报告VIP免费

地理信息系统开发与应用实习报告学生姓名翟德坤专业年级09级空间班级班组一班实习日期2011.12.12-2011.12.16指导教师董超山东农业大学《ArcGIS二次开发》教学实习一、目的意义通过实习使学生进一步理解地理信息系统的开发模式，熟悉ArcGIS二次开发环境，能够自行定制用户界面，对AO中的主要对象模型，包括Map、Element、MapGrid、Style、Symbol和Geodatabase等对象模型简单应用。进一步巩固和深化理论知识，并利用AO中的MapControl控件结合实际案例进行开发，锻炼学生理论与实践相结合的能力。培养学生的应用能力和创新能力，培养学生严肃认真、实事求是、吃苦耐劳、团结协作的精神。要求学生必须参加每一个实习环节，协作完成实习任务，独立完成实习报告。二、实习内容：1、熟悉地理信息系统软件二次开发环境；2、利用地理信息系统软件或开发平台，进行简单的二次开发；3、利用MapControl控件制作相对鹰眼程序。三、时间安排时间任务周一上午实习动员、熟悉开发环境，练习阅读OMD图。周一下午练习VBA开发实例。（见附件AO）周二上午练习VBA开发实例。（见附件AO）周二下午练习课件一、二中的例子。周三在二次开发环境中，练习第三章：地图是如何组成的实例。熟悉Map等对象模型。周四练习第五章：AE地图的显示中的实例，熟悉symbol等对象。周五练习MapControl控件的使用。结合实际，利用MapControl控件制作鹰眼程序。最后总结完成实习报告。四、实习内容及成果（一）熟悉开发环境ArcMap是ArcGIS家族的成员之一，它内置了一种集成编程环境―VBA（VisaulBasicforApllications）。通过VBA编程，用户不但可以扩展ArcMap的菜单、工具条等，而且可以完成大多数用户的特定需求。ArcMap中VBA编程的方法一般步骤如下：写VBA宏（直接在VBA编辑器中编辑函数和过程）1、如图1-1-1，单击菜单栏中的命令,选择的项,直接启动ArcMap的VBA编辑器；或者选择的项，进入如图1-1-2所示Macro对话框，在“MacroName”文本框中输入要创建的宏的名称，并点按钮，启动VBA编辑器。图1-1-1图1-1-22、在图1-1-3所示的窗口中，用户可以根据实际选择在Normal节点或者Project节点的ThisDocument、Forms、Modules中编写宏（函数或过程），Normal节点下所写的宏系统自动保存，除非用户删除，否则它将始终存在并在任何工程中都有效；而在Project节点下所写得宏随工程保存（如不保存工程，则宏也将不被保存），并只在工程中有效。图1-1-33、运行VBA宏在VBA编辑器中写好VBA代码后，有两种方式运行：第一，点击VBA编辑器工具条中的（运行）按钮，可立即运行写好的代码；第二，退出VBA编辑器，重新启动Macro对话框，如图2，选择要运行的VBA宏名称，点击按钮即可运行相应的VBA宏。（二）练习VBA开发实例。1.实例一功能：1.显示当前地图名称代码：SubZDKmacros()DimpMxDocumentAsIMxDocumentSetpMxDocument=Application.DocumentMsgBoxpMxDocument.FocusMap.NameEndSub结果：2.实例二功能：1.显示地图集中第一幅地图的地图名称代码：SubZDKmacros2()DimpMxDocumentAsIMxDocumentDimpMapsAsIMapsDimpMapAsIMapSetpMxDocument=Application.DocumentSetpMaps=pMxDocument.MapsIfpMaps.Count>1SetpMap=pMaps.Item(0)MsgBoxpMap.NameEndIfEndSub结果：3.实例三功能：1.显示当前地图层要素层层数代码：SubZDKmacros3()DimpMxDocumentAsIMxDocumentDimpMapAsIMapDimlCountAsLongDimlIndexAsLongSetpMxDocument=Application.DocumentSetpMap=pMxDocument.FocusMaplCount=0ForlIndex=0To(pMap.LayerCount-1)IfTypeOfpMap.Layer(lIndex)IsIFeatureLayerThenlCount=lCount+1'计数器加1EndIfNextlIndexMsgBox"Numberofthefeaturelayers"&_"intheactivemap:"&lCountEndSub结果：4.实例四功能：1.显示地图集中第一幅地图的地图名称2.显示错误数和错误信息代码：SubZDKmacros4()DimpMxDocumentAsIMxDocumentDimpMapsAsIMapsDimpMapAsIMapOnErrorGoToSUB_ERRORSetpMxDocument=Application.DocumentSetpMaps=pMxDocument.MapsSetpMap=pMaps.Item(0)MsgBoxpMap.NameExitSubSUB_E...