This is a tool prepared by request and is similar to the download at
Drawing Radii (Circles)
but works off a list of lat/lon's instead of address.

Enjoy and let me know if you have any questions or other requests!

Eric

I just tried the Radii with a list of Lat/Lons and it worked great!

Adding the lat/long option to the drive times would be a great addition as well.

Done!

Drawing Drivetime Zones Around a List of Lat/Lon's

Eric

Hey Eric...

Iwe had a go with this new tool of ours, and I dosent work for me..
What Iwe found is that is might be what the cords I am using are based on the UTM32 EUREF89 system, where as urs is prob based on the GEO WGS84 system...

Can u rewrite it to be able to use the UTM32 system? Otherwise I have to look up 600+ adresses to finde their respective GEO WGS84 cords, and thats not my first option

Greetings
René.

You'll have to find some tool to convert UTM32 EUREF89 to lat/lon.

Search "UTM32 EUREF89" or just "UTM EUREF89". I wonder if the franson.com Coordtrans product can do it?

Eric

Hi Eric..

Iwe worked out the conversion probs, but it seems there still a prob with the "miles" conversion..

When I google how much 600m is in miles, it give me 0,372822715 miles, when I input that into Mappoint, it displays aorund 375 meters...??

Is it a bug in ur coding?

Best Regards
René

I noticed a change in behaviour with the latest version or versions of MapPoint.. I think the radius used to actually be the circumference or vice versa. I'm not sure in what version this changed. Is it off just by a factor of 2x?

Hi Eric...

I dont really know how much its off, but at input 1 mile, its displays 1 km.
According to verious google searches, it should be 1 mile = 1,609 km..

Iwe been trying to compare it to the ealier files u have uploaded, but I cant find any other changes whan this one:

In the new Lat/Lon file is says:
objMap.Shapes.AddShape geoShapeRadius, objLoc, fRadius * 2, fRadius * 2

Wheres the old files say:
objMap.Shapes.AddShape geoShapeRadius, objLoc, fRadius, fRadius

When deleting the *2 from the code, its displays 1 mile, as 500 meters.

Could that be the problem?

Oh - not sure how that got messed up. I think it might save your Units setting in the registry. You may be able to just go to Tools | Options and change the units and then run again.

To change the Units in code, see the Units property of the Application object in the Help File. Here's the sample code --

Code:

  Sub ToggleUnits()
  Dim objApp As MapPoint.Application
 
  'Create the Application object
  Set objApp = New MapPoint.Application
 
  'Toggle the units
  If objApp.Units = geoMiles Then
    objApp.Units = geoKm
  Else
    objApp.Units = geoMiles
  End If
 
  End Sub