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

最新推荐文章于 2025-05-24 08:59:12 发布

syasz

最新推荐文章于 2025-05-24 08:59:12 发布

阅读量4.3k

点赞数

CC 4.0 BY-SA版权

分类专栏： ArcGIS 文章标签： features

本文链接：https://blog.youkuaiyun.com/syasz/article/details/629846

ArcGIS 专栏收录该内容

8 篇文章

订阅专栏

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

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

如何对整个地图：

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