GIS二次开发试验报告.docx

GIS二次开发程序设计实习报告

试验课程：GIS二次开发程序设计试验名称：设计程序完成图像根本操作

班级： 地信101

学号： 1022062023

姓名：汪翔

试验日期：2023年4月5日

\l“_TOC_250004“GIS二次开发程序设计实习报告 1

\l“_TOC_250003“一．选题名称 3

\l“_TOC_250002“二．争论现状 3

\l“_TOC_250001“三．争论思路与方法 3

\l“_TOC_250000“四．编程与实现 4

Arcmap下实现 4

vb代码 4

实现结果 12

VS下实现 13

C#代码 14

五．结果与分析 21

一．选题名称

本次GIS二次程序设计实习中我所争论的是空间信息量算分析中的延长率分析。

二．争论现状

GIS的进展引领着空间分析也在快速的走向成熟，由于空间分析作为GIS的核心技术，同时也是区分于其它信息系统的主要特征，能够依据地理对象的位置和形态特征等承受相关分析模型对其进展综合性的分析、推测乃至决策和支持。本文针对空间分析在城市进展建设中的作用以及具体内容进展了探讨争论。

我所争论的延长率是反响城市空间离散程度的一个重要指标，它的计算公式为：延长率=L/L’

L为区域最长轴的长度，L’为区域最短轴的长度

三．争论思路与方法

当把城市当作单个面状目标对待时，可以直接使用面状目标的外形系数，如延长率，外形比，紧凑度，圆形率等。这些指标计算较简洁，反响一个抽象的外形。当把城市看成是面状目标的几何，可以使用放射状指数，标准面积指数等较为简单的指标来计算。反响了城市内部的具体联系。依据这些指标，可以为政府决策，商业运行，旅游

开发等一系列经济文化活动带来较为科学的评价指标和行为指导。在本次实习中，我所争论的方向是利用延长率来争论城市的空间。

延长率反响城市空间的带状延长程度，带状延长越明显则城市延

伸率越大，反响城市的离散程度越大。

四．编程与实现

本次实习中主要利用的平台有ArcMap以及VisualStudio,用于实现的语言有C#及VB,我在教师的指导和查阅书籍的状况下，分别用两种语言实现延长率的量算，现将结果展现如下：

在ArcMap下利用VB进展实现：

创立一个UI按钮控件，重命名为延长率，翻开代码编辑窗口。

编写代码如下：

PrivateSubUIButtonControl1_ClickDimpDocAsIMxDocument

DimpMapAsIMap

DimpGraphicAsIGraphicsContainerDimpLayerAsILayer

DimpFeatLyrAsIFeatureLayerDimpFeatClsAsIFeatureClassDimpFeatCurAsIFeatureCursorDimpFeatAsIFeature

DimpFldAsIField

DimpFldEditAsIFieldEdit

DimiFldIDAsIntegerDimpPlgAsIPolygon

DimpCollAsNewCollectionDimdMinWAsDouble

DimdMaxWAsDouble

SetpDoc=ThisDocumentSetpMap=pDoc.FocusMap

SetpLayer=pDoc.SelectedLayerSetpGraphic=pMap

IfpLayerIsNothingThenMsgBox“没有选中图层“EndIf

IfNotTypeOfpLayerIsIFeatureLayerThenExitSub

EndIf

SetpFeatLyr=pLayer

SetpFeatCls=pFeatLyr.FeatureClassiFldID=pFeatCls.FindField(“shapeR“)IfiFldID=-1Then

SetpFld=NewFieldSetpFldEdit=pFld

WithpFldEdit

.Name=“shapeR“

.Type=esriFieldTypeDouble

.Precision=6

.Scale=2EndWith

pFeatCls.AddFieldpFldEndIf

iFldID=pFeatCls.FindField(“shapeR“)

SetpFeatCur=pFeatCls.Update(Nothing,False)SetpFeat=pF