Как выставить базовый масштаб

Question

Програмно загружаю слои с аркмапа в  mapcontrol.В аркмапе установлен базовый масштаб.Соответственно надписи масштабированные под аркмап неправильно масштабируются в mapcontrol.Как мне выставить базовый масштаб в mapcontrol и как сделать програмно чтоб при масштабе меньше какого то слой не отображался.

Answer 1

Sub SetMapScale(MapDisp As MapObjects2.map, NewScale As Long)
   '------------------------ Ul.MK -------------------  03.11.2005 17:18:38
   Const INCH2FEET = 12
   Const INCH2METERS = 39.37
   Const INCH2DEGREES = 4322893.46
   
   Dim mapExtentWidth As Double
   Dim convFactor As Double, rect As MapObjects2.Rectangle, k As Double

   If MapDisp.Layers.Count = 0 Then Exit Sub
   convFactor = INCH2METERS
  
   mapExtentWidth = ((NewScale / KK) * MapDisp.Width) / (convFactor * 1440)
   Set rect = MapDisp.Extent
   k = mapExtentWidth / rect.Width
   rect.ScaleRectangle k
   MapDisp.Extent = rect
   'MapDisp.Refresh
End Sub

Private Sub Map1_BeforeLayerDraw(ByVal Index As Integer, ByVal hdc As stdole.OLE_HANDLE)
   Dim b As Boolean
   On Error Resume Next
   mScale = MapScale(Map1)
   b = mScale < 100000
   If Not Map1.Layers("grey") Is Nothing Then Map1.Layers("grey").Visible    If Not Map1.Layers("streets") Is Nothing Then Map1.Layers("streets").Visible = (mScale < 50000)
   On Error GoTo 0
End Sub

Answer 2

:) Из примера не понятно чему равен коэффициент KK.

Хочу перевести этот код на C#

Answer 3

какая у тя задача?Потому что когда  решал свою задачу, я просто подогнал массштаб и обошелся без этих кодов.Там есть метод  типа scale,посмотри его.