テーブル結合したフィーチャ群を取得

投稿日:2016/9/1 (木) 更新日:

Public Sub GetFeatures()
    Dim pMxDocument As IMxDocument
    Set pMxDocument = ThisDocument
     
    Dim pDisplayTable As IDisplayTable
    Set pDisplayTable = pMxDoc.FocusMap.Layer(0)
     
    Dim pSelectionSet As ISelectionSet
    Set pSelectionSet = pDisplayTable.DisplaySelectionSet
     
    Dim pFeatureCursor As IFeatureCursor
    pSelectionSet.Search Nothing, False, pFCursor
     
    Dim pFeature As IFeature
    Set pFeature = pFCursor.NextFeature
End Sub

関連記事

-プログラミング, ArcGIS
-, ,

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.