arcengine 放大到选择集,Zoom to selected features using ArcObject

In ArcMap you can zoom to the selected features for a layer by
right-clicking the layer and selecting Selection > Zoom to Selected
Features. This article shows how to do this task using VBA and
ArcObjects.

 

Procedure

  1. Start ArcMap.
  2. Create a new UIButtonControl.

  3. Right-click the UIButtonControl and select View Source.
  4. Copy this code into the
    <!– <br />
    <br />
    Code highlighting produced by Actipro CodeHighlighter (freeware)<br />
    http://www.CodeHighlighter.com/<br />
    <br />
    –>Private
     
    Sub UIButtonControl1_Click()
    Sub
     UIButtonControl1_Click()

      

    Dim
     pDoc 
    As
     IMxDocument

      

    Set
     pDoc 
    =
     ThisDocument

      

    Dim
     pMap 
    As
     IMap

      

    Set
     pMap 
    =
     pDoc.FocusMap


      

    Dim
     pLayer 
    As
     IFeatureLayer

      

    Dim
     pFSel 
    As
     IFeatureSelection

      

    Set
     pLayer 
    =
     pMap.Layer(
    0
    )

      

    Set
     pFSel 
    =
     pLayer


      


    Get the selected features


      
    Dim
     pSelSet 
    As
     ISelectionSet

      

    Set
     pSelSet 
    =
     pFSel.SelectionSet


      

    Dim
     pEnumGeom 
    As
     IEnumGeometry

      

    Dim
     pEnumGeomBind 
    As
     IEnumGeometryBind


      

    Set
     pEnumGeom 
    =
     
    New
     EnumFeatureGeometry

      

    Set
     pEnumGeomBind 
    =
     pEnumGeom

      pEnumGeomBind.BindGeometrySource 

    Nothing
    , pSelSet


      

    Dim
     pGeomFactory 
    As
     IGeometryFactory

      

    Set
     pGeomFactory 
    =
     
    New
     GeometryEnvironment


      

    Dim
     pGeom 
    As
     IGeometry

      

    Set
     pGeom 
    =
     pGeomFactory.CreateGeometryFromEnumerator(pEnumGeom)


      pDoc.ActiveView.Extent 

    =
     pGeom.Envelope

      pDoc.ActiveView.Refresh


    End Sub

    ‘s click event.

转载自:https://blog.csdn.net/liqiangcskm/article/details/83532514

You may also like...