vba13-6.txt

来自「本书给出了AO的常用的VAB代码 可能是初学者很好的一本参考书」· 文本 代码 · 共 24 行

Private Sub SelectParcels(pBufferGeometry As IGeometry)
    ' Select the parcels that intersect the buffer
    ' except for the original parcel.
    Dim pMxDocument As IMxDocument
    Dim pActiveView As IActiveView
    Dim pMap As IMap
    Set pMxDocument = Application.Document
    Set pActiveView = pMxDocument.FocusMap
    pActiveView.PartialRefresh esriViewGeoSelection, _
    Nothing, Nothing
    Set pMap = pMxDocument.FocusMap
    
    Dim pSelectionEnvironment As ISelectionEnvironment
    Set pSelectionEnvironment = New SelectionEnvironment
    pSelectionEnvironment.AreaSelectionMethod = _
    esriSpatialRelIntersects
    pSelectionEnvironment.CombinationMethod = _
    esriSelectionResultXOR
    pMap.SelectByShape pBufferGeometry, _
    pSelectionEnvironment, False
    pActiveView.PartialRefresh esriViewGeoSelection, _
    Nothing, Nothing
End Sub