vba13-6.txt

AO的原代码,都是以TXT的文件写的,对你肯定有帮助的.这些都是 我的心血啊.

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