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 6--多边形重心Y VBA部分: 同上 赋值部分: pPoint.Y 7--Polyline长度 VBA部分:
Dim pGeo As IGeometry Set pGeo = [Shape] Dim pPolyline As IPolyline Set pPolyline = pGeo Dim pCurve As IPolycurve Set pCurve = pPolyline 赋值部分:
pCurve.Length 8--表示点坐标X 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 9--表示点坐标Y VBA部分: 同上 赋值部分: pPoint.Y
坐标值为On the Fly显示的坐标,不是文件存储的固有坐标 10--连续编号 VBA部分:
Static lCount as long lCount=lCount+1 赋值部分: lCount (从1开始) lCount-1 (从0开始) 计算面的中点 Dim Output As Double Dim pArea As IArea Set pArea = [Shape]
Output = pArea.Centroid.X（或y）
当然这是很老的方法了，现在arcgis9.2以后都不需要用VBA啦，右键属性表字段然后直接选择 Caculate Geometry就可以实现比如面积计算，X,Y坐标等的属性赋值了咯。 43. 在同一图层如何对同一要素的不同部分以不同的符号表示 （注：要实现这种渲染需要两段具有不同的属性） 44.自己做arcMAP的图例
在Symbol property Editor中进行制作了
1）、先在Style Manager中的左侧列表中，选择相应的Style文件，ArcGIS默认的符号库文件是ESRI.Style文件，当然也给出了C:\\Documents and Settings\\........................................目录下用于用户自定义的Style文件
2）、展开Style文件，选择要创建Symbol的类型，如：Fill Symbol（面填充）、Line Symbol（线）、Marker Symbol（点） 然后在右侧的列表中鼠标右键->New
3）、在弹出的Symbol Property Editor窗体中，进一步选择Marker Symbol的类型，如：Simple Marker Symbol、Picture Marker Symbol等等
4）、这个时候就要根据需要开始设计符号的各种属性了，由于不同种类的Marker Symbol有不同的属性，因此，属性也会不尽相同。
5）、另外介绍一个经常需要或比较使用的步骤，我们需要设计的符号可以由ESRI提供的现有符号组合而成，那么我们则需要添加2个Symbol Layer，然后进行2个Symbol Layer的叠加
6）、分别设置上述2个Symbol Layer的中的Symbol的属性，之后确认保存，这样会在Style Manager中看到我们新制作的符号 45.计算属性中相同的字段个数
选择要计算的字段然后右键选择Summarize根据相应的要求设置参数即可实现。功能示意如下图： 46.自动提取面的中点并加点
Arctoolbox->Feature-> Feature to Point 47.合并属性相同的相邻图斑 使用Dissolve
当选择了create multipart feature时，所有具有相同属性的图斑将链接在一起做为一个图斑。 48.提取图斑转折点坐标
如果没有伪节点那么，选中一个线或者面，打开sketch Properties，就可以看到节点坐标。 还有一种方法就是：通过toolbox-datamanagement-feature-FeatureVerticesToPoints得到转折点的图层然后Add XY Coordinates,该点图层的属性表中就包含了X，Y字段，将其导出，就得到转折点坐标了。