MapForums
Community of VE/MapPoint Users and Developers
Map Point VBA - Plotting circles
This is a discussion on Map Point VBA - Plotting circles within the MapPoint 2006/2009 Discussion forums, part of the Map Forums category; I need to add a number of radii as an additional layer over existing (point) data. I know how to ...
| |||||||
| Register | Blogs | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read |
01-23-2006
| |||
| |||
| Map Point VBA - Plotting circles 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
__________________ I never knew it could do that         |
|
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
__________________ |
|
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
Hope this helps I.T. |
 |
| Tags |
| circles, map, plotting, point, vba |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
| Thread Tools | |
| Display Modes | |
Linear Mode
| |
| ||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Mission Impossible? Intersection of Multiple Circles | The Lone Turtle | MapPoint 2006/2009 Discussion | 4 | 03-05-2006 01:59 PM |
| How to change the size of the sized circles | Anonymous | MapPoint 2006/2009 Discussion | 0 | 11-10-2004 04:54 AM |
| Circles | Anonymous | MapPoint 2006/2009 Discussion | 3 | 12-09-2003 12:35 AM |
| Hello - I'm plotting point locations over MapPoin.... | Anonymous | MapPoint 2006/2009 Discussion | 1 | 10-11-2001 11:18 AM |
| When using the shaded circles to plot a sum of net.... | Anonymous | MapPoint 2006/2009 Discussion | 1 | 09-05-2001 07:08 AM |
All times are GMT -5. The time now is 01:03 PM.
