如何用代码设置图层在特定比例尺下显示-优快云博客

本文介绍了一个用于ArcGIS的自定义命令实现，该命令能够根据子类型设置地图图层的最大和最小比例尺阈值，或者移除这些阈值。通过三种不同的子类型操作，可以灵活地控制地图上图层的可见性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Option Explicit

Implements ICommand
Implements ICommandSubType

Private m_pHookHelper As IHookHelper
Private m_pMapControl As IMapControl3
Private m_lSubType As Long

Private Sub Class_Initialize()

  Set m_pHookHelper = New HookHelper

End Sub

Private Sub Class_Terminate()

  Set m_pHookHelper = Nothing

End Sub

Private Property Get ICommand_Enabled() As Boolean

  Dim bEnabled As Boolean
  bEnabled = True

Dim pLayer As ILayer
Set pLayer = m_pMapControl.CustomProperty

  If (m_lSubType = 3) Then
    If (pLayer.MaximumScale = 0) And (pLayer.MinimumScale = 0) Then bEnabled = False
  End If

  ICommand_Enabled = bEnabled

End Property

Private Property Get ICommand_Checked() As Boolean

  ICommand_Checked = False

End Property

Private Property Get ICommand_Name() As String

  ICommand_Name = "ScaleThresholds"

End Property

Private Property Get ICommand_Caption() As String

  If (m_lSubType = 1) Then
    ICommand_Caption = "Set Maximum Scale"
  ElseIf (m_lSubType = 2) Then
    ICommand_Caption = "Set Minimum Scale"
  Else
    ICommand_Caption = "Remove Scale Thresholds"
  End If

End Property

Private Property Get ICommand_Tooltip() As String

  'Not implemented

End Property

Private Property Get ICommand_Message() As String

  'Not implemented

End Property

Private Property Get ICommand_HelpFile() As String

  'Not implemented

End Property

Private Property Get ICommand_HelpContextID() As Long

  'Not implemented

End Property

Private Property Get ICommand_Bitmap() As esriSystem.OLE_HANDLE

  'Not implemented

End Property

Private Property Get ICommand_Category() As String

  'Not implemented

End Property

Private Sub ICommand_OnCreate(ByVal hook As Object)

  Set m_pHookHelper.hook = hook
  Set m_pMapControl = m_pHookHelper.hook

End Sub

Private Sub ICommand_OnClick()

  Dim pLayer As ILayer
  Set pLayer = m_pMapControl.CustomProperty
  If (m_lSubType = 1) Then pLayer.MaximumScale = m_pMapControl.MapScale
  If (m_lSubType = 2) Then pLayer.MinimumScale = m_pMapControl.MapScale
  If (m_lSubType = 3) Then
    pLayer.MaximumScale = 0
    pLayer.MinimumScale = 0
  End If
  m_pMapControl.Refresh esriViewDrawPhase.esriViewGeography

End Sub

Private Sub ICommandSubType_SetSubType(ByVal SubType As Long)

m_lSubType = SubType

End Sub

Private Function ICommandSubType_GetCount() As Long

ICommandSubType_GetCount = 3

End Function