ArcGIS点滴.docVIP

地理信息系统(GIS)是以地理信息空间数据库为基础在计算机硬软件的支持下对空间相关数据进行采集管理操作分析模拟和显示并采用地理模型分析方法适时提供多种空间和动态的地理信息为地理研究和地理决策服务而建立起来的计算机技术系统[2] 地理信息系统具有以下三个方面的特点(1)具有采集管理分析和输出各种地理空间信息的能力(2)以地下研究和地理决策为目的以地理模型方法为手段具有空间分析和多要素综合分析和动态预测的能力并能产生高层的地理信息(3)由计算机系统支持进行空间地理数据管理并由计算机模拟常规的或是专门的地理分析方法作用于空间数据产生有用信息计算机的支持是GIS的重要特征使GIS得到快速精确综合地对复杂的地理系统进行空间定位和动态分析 在shp文件数据库中加入多边形面积： 添加AREA字段，然后右键点击字段列，然后点击CALCULATE; ---选择ADVANCE－－》把下面的代码输入，然后在最下面=处写OUTPUT。点击OK就OK了。 1．面积 Dim Output as double Dim parea as Iarea Set parea = [shape] Output = parea.area 2．计算长度 同上添加LENGTH字段，然后右键点击字段列，然后点击CALCULATE VALUES; ---选择ADVANCED－－》把下面的代码输入，然后在最下面=处写OUTPUT。点击OK就OK了。 Dim Output as double Dim pcurve as ICurve Set pcurve = [shape] Output = pcurve.Length 3．点坐标X（Y） Dim pGeo As IGeometry Set pGeo = [Shape] Dim pPoint As IPoint Set pPoint = pGeo 赋值部分: pPoint.X 或 pPoint.Y 4．多边形周长 Dim pGeo As IGeometry Set pGeo = [Shape] Dim pPolygon As IPolygon Set pPolygon = pGeo 赋值部分: pPolygon.Length 5．多边形重心X或Y Dim pGeo As IGeometry Set pGeo = [Shape] Dim pPolygon As IPolygon Set pPolygon = pGeo Dim pArea As IArea Set pArea = pPolygon Dim pPoint As IPoint Set pPoint = pArea.Centroid 赋值部分: pPoint.X 或 pPoint.Y 6．表示点坐标X或Y VBA部分: Dim pDoc As IMxDocument Set pDoc = ThisDocument Dim pSpRef As ISpatialReference Set pSpRef = pDoc.FocusMap.SpatialReference Dim pClone As IClone Set pClone = [Shape] Dim pGeo As IGeometry Set pGeo = pClone.Clone Dim pPoint as IPoint Set pPoint = pGeo pGeo.Project pSpRef 赋值部分: pPoint.X 或 pPoint.Y 坐标值为On the Fly显示的坐标,不是文件存储的固有坐标 7．连续编号 VBA部分: Static lCount as long lCount=lCount+1 赋值部分: lCount (从1开始) lCount-1 (从0开始) 一、生成孤岛多边形： 1、绘制大多形和小多边形： 2、选中小多边形后选择Editor-clip即可 二、公共边、点的修改： 1、Editor-More editing tools-Topology- Topology editing tools工具 2、选中公共边，即可修改： 三、计算点到线的最短距离： 我有两个图层，一个是点图层，一个是几条河流的图层，我想得到每个点到河流的最短距离，不知道在ArcGIS哪里计算？最好是不用编程就能作到，非常感谢 Spatial-distance 四、如何在arcgis中如何建立拓扑关系 这个主要通过GeoDatabase模型来实现。方法为： 1：新建立个人数据库或者SDE空间数据库，利用Arccatalog实现。 2：建立个数据集(GeodataSet),在数据库中New一个就可以了，不过要设置相应的空间坐标系统参数。 3：将数据加载到数据集中，方式可以直接用c