ArcGIS基础代码（1）——如何遍历Select Features

最新推荐文章于 2026-06-14 15:23:43 发布

原创最新推荐文章于 2026-06-14 15:23:43 发布 · 4.4k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#features

收录于

ArcGIS 专栏收录该内容

8 篇文章

订阅专栏

本文介绍如何使用ArcGIS API在VBScript环境中进行地图的特征层选择及遍历操作，包括对整个地图和特定图层的选择流程，并通过实例展示了如何获取所选特征的具体属性。

如何对整个地图：

Sub mm4()
    Dim md As IMxDocument
    Dim tt As IMap

    Dim pFL As IFeatureLayer
dim pEF as IEnumFeature

    Dim pF As IFeature
    Set md = ThisDocument

    Set tt = md.FocusMap
    set pEF=tt.FeatureSelection
    Set pF = pEF.Next
    Debug.Print pF.Value(4)
End Sub

如果对某个图层：

Sub mm4()
    Dim md As IMxDocument
    Dim tt As IMap

    Dim pFL As IFeatureLayer
    Dim pFS As IFeatureSelection
    Dim pSelSet As ISelectionSet
    Dim pFCS As IFeatureCursor

    Dim pF As IFeature
    Set md = ThisDocument

    Set tt = md.FocusMap

    Set pFL = tt.Layer(2)
    Set pFS = pFL
    Set pSelSet = pFS.SelectionSet '''flayer
    pSelSet.Search Nothing, True, pFCS
    Set pF = pFCS.NextFeature
    Debug.Print pF.Value(4)
End Sub