VBA之计算选中多边形的面积

最新推荐文章于 2022-05-12 16:48:06 发布

nj66666666

最新推荐文章于 2022-05-12 16:48:06 发布

阅读量950

点赞数

分类专栏： ArcGIS desktop

本文链接：https://blog.youkuaiyun.com/nj198624/article/details/8160411

版权

该博客介绍了如何通过VBA在ArcGIS环境中计算选定多边形图层的总面积。首先创建一个Button控件，然后利用IMxDocument、IGeoFeatureLayer IID等接口获取焦点图层，并遍历所有多边形特征，计算每个特征的Area，最后累加得到总面积并显示在消息框中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

准备工作与添加shape图形相同，创建一个Button控件。
添加代码如下：
Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument

Dim pUID As New UID
pUID = "{E156D7E5-22AF-11D3-9F99-00C04F6BC78E}" 'IGeoFeatureLayer IID

Dim pEnumLayer As IEnumLayer
Set pEnumLayer = pMxDoc.FocusMap.Layers(pUID, True)
pEnumLayer.Reset

Dim pFeatureLayer As IFeatureLayer
Dim pFeatureSelection As IFeatureSelection
Dim pFeatureCursor As IFeatureCursor
Dim pFeature As IFeature
Dim pArea As IArea
Dim dTotalArea As Double

Set pFeatureLayer = pEnumLayer.Next
Do Until (pFeatureLayer Is Nothing)
If (pFeatureLayer.FeatureClass.ShapeType = esriGeometryPolygon) Then
Set pFeatureSelection = pFeatureLayer

If (pFeatureSelection.SelectionSet.Count <> 0) Then
pFeatureSelection.SelectionSet.Search Nothing, Tru

最低0.47元/天解锁文章