MapForums

Phil Holt · #1 (**permalink**) 01-23-2006

I need to add a number of radii as an additional layer over existing (point) data.

I know how to draw a radius and fix the diameter manually, but I want to be able to run a macro which does this for a number of centroids. I will have the co-ordinates of the centroids each time.

I am guessing that if I plot these centroids as points (using linked data); there might be a way of plotting a circle over each point? Ideally this would be as a transparent layer (below my other data, but above all other data including streets).

Any help much appreciated

**Eric Frost** · #2 (**permalink**) 01-24-2006

You are correct. Take a look at the object model. There are Draw object methods which you can use to take a lat/lon and generate a circle.
Eric

I.T. · #3 (**permalink**) 02-05-2006

The following draws a series of circles around given locations. The locations have been included just for demo purposes.

Code:

    Dim oMap As MapPoint.Map
    Dim locpin(1 To 5) As MapPoint.Location
    Dim iRad, c As Integer
    Set oMap = GetObject(, "MapPoint.Application.EU.11").ActiveMap
    oMap.Application.Units = geoKm

    Set locpin(1) = oMap.FindResults("Buckingham Palace, London, UK")(1)
    Set locpin(2) = oMap.FindResults("Northolt, London, UK")(1)
    Set locpin(3) = oMap.FindResults("Greenwitch, London, UK")(1)
    Set locpin(4) = oMap.FindResults("Crystal Palace, London, UK")(1)
    Set locpin(5) = oMap.FindResults("Wimbledon Common, London, UK")(1)

    oMap.FindResults("London, UK")(1).GoTo

    iRad = 3    ' sets the radius of the circle to 3km
    For c = 1 To 5
        oMap.Shapes.AddShape(geoShapeRadius, locpin(c), iRad * 2, iRad * 2).Name = "Loc No." & CStr(c)
    Next c

This draws circles around each location. This could be extended to account for each location in your dataset and by adjusting the "iRad" value you could easily make the size of each circle represent a value associated with the location.

Hope this helps

I.T.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Mission Impossible? Intersection of Multiple Circles	The Lone Turtle	MapPoint 2006/2009 Discussion	4	03-05-2006 12:59 PM
How to change the size of the sized circles	Anonymous	MapPoint 2006/2009 Discussion	0	11-10-2004 03:54 AM
Circles	Anonymous	MapPoint 2006/2009 Discussion	3	12-08-2003 11:35 PM
Hello - I'm plotting point locations over MapPoin....	Anonymous	MapPoint 2006/2009 Discussion	1	10-11-2001 10:18 AM
When using the shaded circles to plot a sum of net....	Anonymous	MapPoint 2006/2009 Discussion	1	09-05-2001 06:08 AM

MapForums

Map Point VBA - Plotting circles

Map Point VBA - Plotting circles

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Similar Threads

MapForums

Map Point VBA - Plotting circles

Map Point VBA - Plotting circles

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Similar Threads