Zoom to selected features using ArcObjects

最新推荐文章于 2023-03-20 19:39:24 发布

weixin_34233679

最新推荐文章于 2023-03-20 19:39:24 发布

阅读量196

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/iswszheng/archive/2009/05/15/1457598.html

本文介绍如何利用VBA和ArcObjects在ArcMap中实现对选定图层特征的缩放操作。通过右键点击图层并选择“缩放到所选特征”可以轻松完成此过程。对于希望深入了解这一自动化过程的用户，我们提供了一个示例代码，展示如何创建按钮来触发这一功能。

Summary

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

Start ArcMap.
Create a new UIButtonControl.
Right-click the UIButtonControl and select View Source.
Copy this code into the
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.