gis二次开发试验报告

《gis二次开发试验报告》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、GIS二次开发程序设计实习报告实验课程：GIS二次开发程序设计     实验名称：设计程序完成图像基本操作 班级：      地信101          学号：      1022062011         姓名：     汪翔实验日期：   2013 年  4  月  5  日GIS二次开发程序设计实习报告1一．选题名称3二．研究现状3三．研究思路与方法3四．编程与实现4Arcmap下实现4vb代码.......................................................................

2、.........................4实现结果..........................................................................................12VS下实现.........................................................................................13C#代码.....................................................

3、.........................................14五．结果与分析21一．选题名称本次GIS二次程序设计实习中我所研究的是空间信息量算分析中的延伸率分析。二．研究现状GIS的发展引领着空间分析也在迅速的走向成熟，因为空间分析作为GIS的核心技术，同时也是区别于其它信息系统的主要特征，能够根据地理对象的位置和形态特征等采用相关分析模型对其进行综合性的分析、预测乃至决策和支持。本文针对空间分析在城市发展建设中的作用以及具体内容进行了探讨研究。我所研究的延伸率是反应城市空间离散程度的一个重要指标，它的计算公式为：延伸

4、率=L/L’L为区域最长轴的长度，L’为区域最短轴的长度三．研究思路与方法当把城市当作单个面状目标看待时，可以直接使用面状目标的形状系数，如延伸率，形状比，紧凑度，圆形率等。这些指标计算较简单，反应一个抽象的形状。当把城市看成是面状目标的几何，可以使用放射状指数，标准面积指数等较为复杂的指标来计算。反应了城市内部的具体联系。根据这些指标，可以为政府决策，商业运行，旅游开发等一系列经济文化活动带来较为科学的评价指标和行为指导。在本次实习中，我所研究的方向是利用延伸率来研究城市的空间。延伸率反应城市空间的带状延伸程度，带状延伸越明显则城市延伸率越大

5、，反应城市的离散程度越大。四．编程与实现本次实习中主要利用的平台有ArcMap以及VisualStudio,用于实现的语言有C#及VB,我在老师的指导和查阅书籍的情况下，分别用两种语言实现延伸率的量算，现将结果展示如下：1）在ArcMap下利用VB进行实现：1．创建一个UI按钮控件，重命名为延伸率，打开代码编辑窗口。2．编写代码如下：PrivateSubUIButtonControl1_Click()DimpDocAsIMxDocumentDimpMapAsIMapDimpGraphicAsIGraphicsContainerDimpLayer

6、AsILayerDimpFeatLyrAsIFeatureLayerDimpFeatClsAsIFeatureClassDimpFeatCurAsIFeatureCursorDimpFeatAsIFeatureDimpFldAsIFieldDimpFldEditAsIFieldEditDimiFldIDAsIntegerDimpPlgAsIPolygonDimpCollAsNewCollectionDimdMinWAsDoubleDimdMaxWAsDoubleSetpDoc=ThisDocumentSetpMap=pDoc.FocusMapS

7、etpLayer=pDoc.SelectedLayerSetpGraphic=pMapIfpLayerIsNothingThenMsgBox"没有选中图层"EndIfIfNotTypeOfpLayerIsIFeatureLayerThenExitSubEndIfSetpFeatLyr=pLayerSetpFeatCls=pFeatLyr.FeatureClassiFldID=pFeatCls.FindField("shapeR")IfiFldID=-1ThenSetpFld=NewFieldSetpFldEdit=pFldWithpFldEdi

8、t.Name="shapeR".Type=esriFieldTypeDouble.Precision=6.Scale=2EndWithpFeatCls