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

 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

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.