Field Calculator处理图形操作问题浅析.docVIP

Field Calculator处理图形操作问题浅析 Tsonghua /文 在ESRI用AO框架搭建起应用程序范例-- ArcGIS Desktop中可以用许多编程语言对其进行二次开发，相应的资料可以参考安装Desktop安装盘里的SDK For ..（VBA、Java、.net..）后Developer Help里的 .. Developer Help。其中在提供了完善的代码编写调试运行环境VBE（Visual Basic Editor）里可以用细颗粒搭建适合自己需求的应用工具，参考资料有上面提到的 VBA Developer Help，还有ArcMap.VBA_ArcGISBook.doc（中文） 等经典范例。 除了VBE，在Field Calculator中同样可以使用VBA操作AO底层细颗粒来实现属性、图形的操作。但是Field Calculator中没有调试环境，所以建议借用VBE环境来编写调试所写代码（脚本），以提高代码效率与正确率。 我们知道，Field Calculator在执行的时候，会自动遍历要素集的每一个要素进行运算处理，所以在VBE环境下写的处理过程需要遍历要素集的，转为Field Calculator脚本时取循环里面的部分即可，循环体外部省略；如果需要多次遍历要素集，可以用IFeatureClass.Search()实现；如果不需循环只需要执行一次，在Field Calculator中加上一个标志（比如Flag），在执行一次后让flag值变化达到不浪费地每次执行的目的。 eg1.Field Calculator中的遍历（执行自动遍历每个要素） Dim pGeoCol As IGeometryCollection Set pGeoCol = [Shape] 这是获取每个要素的图形，在Field Calculator执行时，自动遍历 eg2.在Field Calculator中再次使用遍历（同VBE中写法） Dim pMxdoc As IMxDocument Dim pMap As IMap Set pMxdoc = ThisDocument Set pMap = pMxdoc.FocusMap Dim pFeatLayer As IFeatureLayer Set pFeatLayer = pMap.Layer(0) Dim pFeatClass As IFeatureClass Set pFeatClass = pFeatLayer.FeatureClass Dim pFeatCursor As IFeatureCursor Set pFeatCursor = pFeatClass.Search(pSF, True) 用IFeatureClass.Search()来遍历（可以设置图属过滤条件） Dim pFeatureSelected As IFeature Set pFeatureSelected = pFeatCursor.NextFeature Do Until pFeatureSelected Is Nothing … Set pFeatureSelected = pFeatCursor.NextFeature Loop eg3.加标志使得Field Calculator中不做不必要的多次执行 static flag as Boolean 这一步是关键，定义的flag需要为全局变量 if flag = false then 限制 flag 为 false才执行下面的代码 …(处理过程) flag = true 这里在处理完后标志变为true，field calculator不再执行if中过程 end if 下面列举几个范例加以解释。 [范例1]如何求多边形质心到多边形边界最远的距离 思路（将问题分解为小问题）： 1.取得面的质心点 pPointCenter2.遍历面的节点（pVerticePoint），求每个节点到质心点距离，求得最长距离 dblMaxDis3.把质心点和最长距离点生成线，写在线层中i = 0 to pPointCol.PointCount – 1 方式对其遍历，用每个点和面质心点求距离 3. esriGeometry.ILine.PutCoords将质心点和最长距离节点作为起止点组成线，添加到线层 代码（具体编写、调试代码）： ----------------------------- @Tsonghua----------------------------- Dim dblMaxDis As Double dblMaxDis = 0 Dim intIdx As Integer intIdx = 0 Dim pArea As IArea Set pA