GIS二次开发试验报告.docVIP

? ? GIS二次开发程序设计实习报告 实验课程：GIS二次开发程序设计 ????? 实验名称：设计程序完成图像基本操作? 班级：??????地信101? ?????? ??? 学号：??????1022062011??????? ? ? 姓名：?????汪翔 实验日期：???2013?年??4??月??5??日 GIS二次开发程序设计实习报告 1 一．选题名称 3 二．研究现状 3 三．研究思路与方法 3 四．编程与实现 4 Arcmap下实现 4 vb代码4 实现结果12 VS下实现13 C#代码14 五．结果与分析 21  一．选题名称 本次GIS二次程序设计实习中我所研究的是空间信息量算分析中的延伸率分析。 二．研究现状 GIS的发展引领着空间分析也在迅速的走向成熟，因为空间分析作为GIS的核心技术，同时也是区别于其它信息系统的主要特征，能够根据地理对象的位置和形态特征等采用相关分析模型对其进行综合性的分析、预测乃至决策和支持。本文针对空间分析在城市发展建设中的作用以及具体内容进行了探讨研究。 我所研究的延伸率是反应城市空间离散程度的一个重要指标，它的计算公式为：延伸率=L/L’ L为区域最长轴的长度，L’为区域最短轴的长度 三．研究思路与方法 当把城市当作单个面状目标看待时，可以直接使用面状目标的形状系数，如延伸率，形状比，紧凑度，圆形率等。这些指标计算较简单，反应一个抽象的形状。当把城市看成是面状目标的几何，可以使用放射状指数，标准面积指数等较为复杂的指标来计算。反应了城市内部的具体联系。根据这些指标，可以为政府决策，商业运行，旅游开发等一系列经济文化活动带来较为科学的评价指标和行为指导。在本次实习中，我所研究的方向是利用延伸率来研究城市的空间。 延伸率反应城市空间的带状延伸程度，带状延伸越明显则城市延伸率越大，反应城市的离散程度越大。 四．编程与实现 本次实习中主要利用的平台有ArcMap 以及Visual Studio,用于实现的语言有C#及VB,我在老师的指导和查阅书籍的情况下，分别用两种语言实现延伸率的量算，现将结果展示如下： 1）在ArcMap下利用VB进行实现： 1．创建一个UI按钮控件，重命名为延伸率，打开代码编辑窗口。 2．编写代码如下： Private Sub UIButtonControl1_Click() Dim pDoc As IMxDocument Dim pMap As IMap Dim pGraphic As IGraphicsContainer Dim pLayer As ILayer Dim pFeatLyr As IFeatureLayer Dim pFeatCls As IFeatureClass Dim pFeatCur As IFeatureCursor Dim pFeat As IFeature Dim pFld As IField Dim pFldEdit As IFieldEdit Dim iFldID As Integer Dim pPlg As IPolygon Dim pColl As New Collection Dim dMinW As Double Dim dMaxW As Double Set pDoc = ThisDocument Set pMap = pDoc.FocusMap Set pLayer = pDoc.SelectedLayer Set pGraphic = pMap If pLayer Is Nothing Then MsgBox 没有选中图层 End If If Not TypeOf pLayer Is IFeatureLayer Then Exit Sub End If Set pFeatLyr = pLayer Set pFeatCls = pFeatLyr.FeatureClass iFldID = pFeatCls.FindField(shapeR) If iFldID = -1 Then Set pFld = New Field Set pFldEdit = pFld With pFldEdit .Name = shapeR .Type = esriFieldTypeDouble .Precision = 6 .Scale = 2 End With pFeatCls.AddField pFld End If iFldID = pFeatCls.FindField(shapeR) Set pFeatCur = pFeatCls.Update(Nothing, False)