操作方法：使用 ArcObjects 缩放至所选要素

摘要

注意： 本文适用于 ArcGIS 8.x 版本。 更高版本的 ArcGIS 可能包含不同的功能，对于菜单、命令和地理处理工具，可能具有不同的名称和位置。

在 ArcMap 中，通过右键单击图层并选择“选择”>“缩放至所选要素”，可以缩放至图层的所选要素。 本文将介绍如何使用 VBA 和 ArcObjects 来执行此任务。

注： 对于 ArcMap 和 ArcCatalog 的 Visual Basic for Applications (VBA) 支持在 ArcGIS 10.2.2 版本中终止，并且自 10.5 版本起，Esri 已不包含 VBA 兼容性设置。 请参阅：ArcGIS Desktop 和 VBA 向前迈进

过程

1. 启动 ArcMap。
2. 创建新的 UIButtonControl：操作方法：创建新的 UIButtonControl

注： 有关创建 UIControl 的详细信息，请参阅 ArcGIS Desktop 帮助文章：“使用 VBA 和 UI 控件创建自定义命令”

3. 右键单击 UIButtonControl 并选择查看源。
4. 将以下代码复制到 UIButtonControl 的单击事件中：

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