MapForums

Hello all,
In "interactive" Mappoint you can draw a shape, select it and then 'zoom to selection'. I would like to do this in VB with a shape I am creating but the zooming methods seem limited. I would also like to do it without changing the contents or ordering of the current route. Any thoughts on how to do this?

The code:
'waypoints have been added and the route has been optimized
' now add a circle of diam 0.75 miles on the second stop
Set objShape = MPMap.Shapes.AddShape(geoShapeRadius,_
MPMap.ActiveRoute.Waypoints.Item(2).Location, 0.75, 0.75)
' now query contents of circle, select circle and zoom on circle:
Set objRecordset = objDataSet.QueryShape(objShape)
objShape.Select
???

many thanks,
sthurlock

Dont think you need to select shape, just use objRecordset.ZoomTo

M.

That actually doesn't work. According the programming guide, ZoomTo only applies to DataSets, but this is a RecordSet. I tried it and it gives a "method not found". Any other thoughts?

Ooops.

Try:

objShape.Location.GoTo

M.

That is very close to what I'm looking for! I'd like to be able to control the closeness of the zoom by drawing a circle of radius r, zooming to it, then removing the circle and printing a map. In 'interactive' mode, drawing a circle with r=0.75, selecting the circle and then zooming 'to selected' gives a certain zoom. Going to a circle with r=0.5 gives a closer zoom, r=0.25 is closer still. Really, I'm trying to work around the fact that the .zoomIn and .zoomOut methods have very large steps in their zoom. More thoughts?

sthurlock

Instead of using ZoomIn and ZoomOut, try using the Altitude property of the map:

objApp.ActiveMap.Altitude = <a number suitable for the size of circle>

M.

Brilliant! That appears to do exactly what I'm looking for! I need to play around a little to get the exact right altitude. Thank you very much for your help!!

sthurlock