地信开发实习报告.doc

地信开发实习报告.doc

ID:59170484

大小:1.35 MB

页数:30页

时间:2020-10-30

地信开发实习报告.doc_第1页
地信开发实习报告.doc_第2页
地信开发实习报告.doc_第3页
地信开发实习报告.doc_第4页
地信开发实习报告.doc_第5页
资源描述:

《地信开发实习报告.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、地理信息系统开发与应用实习报告学生姓名翟德坤专业年级09级空间班级班组一班实习日期2011.12.12-2011.12.16指导教师董超山东农业大学《ArcGIS二次开发》教学实习一、目的意义通过实习使学生进一步理解地理信息系统的开发模式,熟悉ArcGIS二次开发环境,能够自行定制用户界面,对AO中的主要对象模型,包括Map、Element、MapGrid、Style、Symbol和Geodatabase等对象模型简单应用。进一步巩固和深化理论知识,并利用AO中的MapControl控件结合实际案例进行开发,锻炼学生理论与实践相结合的能力。培养学生的应用能力和创新能力,培养学生严肃认真、实

2、事求是、吃苦耐劳、团结协作的精神。要求学生必须参加每一个实习环节,协作完成实习任务,独立完成实习报告。二、实习内容:1、熟悉地理信息系统软件二次开发环境;2、利用地理信息系统软件或开发平台,进行简单的二次开发;3、利用MapControl控件制作相对鹰眼程序。三、时间安排时  间任  务周一上午实习动员、熟悉开发环境,练习阅读OMD图。周一下午练习VBA开发实例。(见附件AO)周二上午练习VBA开发实例。(见附件AO)周二下午练习课件一、二中的例子。周三在二次开发环境中,练习第三章:地图是如何组成的实例。熟悉Map等对象模型。周四练习第五章:AE地图的显示中的实例,熟悉symbol等对象。

3、周五练习MapControl控件的使用。结合实际,利用MapControl控件制作鹰眼程序。最后总结完成实习报告。四、实习内容及成果(一)熟悉开发环境ArcMap是ArcGIS家族的成员之一,它内置了一种集成编程环境―VBA(VisaulBasicforApllications)。通过VBA编程,用户不但可以扩展ArcMap的菜单、工具条等,而且可以完成大多数用户的特定需求。ArcMap中VBA编程的方法一般步骤如下:写VBA宏(直接在VBA编辑器中编辑函数和过程)1、如图1-1-1,单击菜单栏中的命令,选择项,直接启动

4、ArcMap的VBA编辑器;或者选择项,进入如图1-1-2所示Macro对话框,在“MacroName”文本框中输入要创建的宏的名称,并点按钮,启动VBA编辑器。图1-1-1图1-1-22、在图1-1-3所示的窗口中,用户可以根据实际选择在Normal节点或者Project节点的ThisDocument、Forms、Modules中编写宏(函数或过程),Normal节点下所写的宏系统自动保存,除非用户删除,否则它将始终存在并在任何工程中都有效;而在Project节点下所写得宏随工程保存(如不保存工程,则宏也将不被保存),并只在工程中有效。图

5、1-1-33、运行VBA宏在VBA编辑器中写好VBA代码后,有两种方式运行:第一,点击VBA编辑器工具条中的(运行)按钮,可立即运行写好的代码;第二,退出VBA编辑器,重新启动Macro对话框,如图2,选择要运行的VBA宏名称,点击按钮即可运行相应的VBA宏。(二)练习VBA开发实例。1.实例一功能:1.显示当前地图名称代码:SubZDKmacros()DimpMxDocumentAsIMxDocumentSetpMxDocument=Application.DocumentMsgBoxpMxDocument.FocusMap.NameEndSub结果:2.实例二功能:1.显示地

6、图集中第一幅地图的地图名称代码:SubZDKmacros2()DimpMxDocumentAsIMxDocumentDimpMapsAsIMapsDimpMapAsIMapSetpMxDocument=Application.DocumentSetpMaps=pMxDocument.MapsIfpMaps.Count>1SetpMap=pMaps.Item(0)MsgBoxpMap.NameEndIfEndSub结果:3.实例三功能:1.显示当前地图层要素层层数代码:SubZDKmacros3()DimpMxDocumentAsIMxDocumentDimpMapAsIMapDimlCou

7、ntAsLongDimlIndexAsLongSetpMxDocument=Application.DocumentSetpMap=pMxDocument.FocusMaplCount=0ForlIndex=0To(pMap.LayerCount-1)IfTypeOfpMap.Layer(lIndex)IsIFeatureLayerThenlCount=lCount+1'计数器加1EndIfNextlIndexMsgBo

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。