ThinkGeo.com    |     Documentation    |     Premium Support

How to set Scale Levels

Hi. I asked this question in a slightly different way for the web comonent but I have a similar question for the desktop component. I would like to be able to set the scales of the various ZoomLevels, on the map object preferably (I realize it may need to happen to each individual layer), manually as the default zoom levels do not zoom down far enough for certain parcel labels to render. Also, the maximum zoom level is much greater than we really need... I tried to acheive this with the following but it does not seem to work. What am I doing wrong? To note, the scales to get applied to the layers, but I am not getting the above desired results. The scales I picked are likely to change but I just picked these to see if it would work:                                 
                                Scales(19) = 90000
                                Scales(18) = 85500
                                Scales(17) = 81000
                                Scales(16) = 76500
                                Scales(15) = 72000
                                Scales(14) = 67500
                                Scales(13) = 63000
                                Scales(12) = 58500
                                Scales(11) = 54000
                                Scales(10) = 49500
                                Scales(9) = 45000
                                Scales(8) = 40500
                                Scales(7) = 36000
                                Scales(6) = 31500
                                Scales(5) = 27000
                                Scales(4) = 18000
                                Scales(3) = 13500
                                Scales(2) = 9000
                                Scales(1) = 4500
                                Scales(0) = 100


 


    Public Shared Sub SetScalesForLayer(ByVal layerToSet As Layer, ByVal Scales As Integer())
        If TypeOf layerToSet Is ShapeFileFeatureLayer Then
            Dim layerToSetSHP As ShapeFileFeatureLayer = layerToSet
            Dim X As Integer = 0

            For Each level As ZoomLevel In layerToSetSHP.ZoomLevelSet.GetZoomLevels
                level.Scale = Scales(X)
                X += 1
            Next
        End If
    End Sub



I didn't occur to me to try map.minimumscale. Thanks anyways



It’s great you make it, Nelson. :-)