MapForums

uspickle · #1 (**permalink**) 01-07-2004

I have 800 push pins that I need to draw radii around. Is there a way to do it in one swoop? I tried importing an excel file with two columns: zip code and radius. When importing, I tried to use the radius value as the metropolitan area, but that did not produce the results I needed. Basically I need to map out locations and then highlight each location with a 60 mile radius so I can visually determine coverages in regions. Any help would be appreciated. Thanks.

Mossoft · #2 (**permalink**) 01-12-2004

Call something like this after you have imported your data:

Code:

Sub DrawSplats(rds As MapPoint.DataSet, rdblRadius As Double)

   Dim rs      As MapPoint.Recordset
   Dim shp     As MapPoint.Shape
   
   If rds.RecordCount > 0 Then
      Set rs = rds.QueryAllRecords
      rs.MoveFirst
      Do
         Set shp = rds.Parent.Parent.Shapes.AddShape(geoShapeRadius, rs.Pushpin.Location, rdblRadius*2, rdblRadius*2)
         
         With shp
            .Fill.ForeColor = vbRed
            .Line.ForeColor = .Fill.ForeColor
            .SizeVisible = False
            .Fill.Visible = True
            .ZOrder geoSendBehindRoads
         End With
         rs.MoveNext
      Loop While Not rs.EOF
      Set rs = Nothing
   End If
End Sub

HTH

M.

uspickle · #3 (**permalink**) 01-13-2004

Thank you very very much!

uspickle · #4 (**permalink**) 01-13-2004

Unfortunately I could not find how to call the function. Where do I go to do this? Thanks.

uspickle · #5 (**permalink**) 01-21-2004

hey I have all the code figured out except what to use as the first parameter in the function call.

I have map point open, the pushpins to encircle loaded onto the map, and have the code compiled
into a com add-in, which is added to map point via the [tools]==>[com add-in].

how do I reference the "MapPoint.DataSet" of the currently loaded map?

some code...

Call DrawSplats( <<<< first parameter >>>>>, 5)

my best guess for <<<< first parameter >>>>> is...

MapPoint.Application.ActiveMap.DataSets.AddPushpin Set("hello")

via

Dim objApp As New MapPoint.Application
objApp.ActiveMap.DataSets.AddPushpinSet("hello")

...

any suggestions?

plank · #6 (**permalink**) 01-22-2004

Can anyone point me i the direction of where to use this code?? do i need MP2004??

I have been trying to do this for ages.... i am soon going to have to draw 119 radiuses on a map - PLEASE HELP!!

TIA

Dan

Mossoft · #7 (**permalink**) 01-22-2004

After you have imported the data, in the legend there will probably be a representation of the dataset along with its name.
So, call the code using something like>

DrawSplats MapPoint.Application.ActiveMap.DataSets("<the dataset name as shown in the legend>"), 5

The default name is "My Pushpins" but your dataset may be called something completely different.

M.

plank · #8 (**permalink**) 01-22-2004

please can you help me by telling me how to use this code?? is it VB?? or what is it??

Mossoft · #9 (**permalink**) 01-23-2004

OK guys.

I have thrown together a COM Add-in which you can download from this site by clicking on this link http://www.mp2kmag.com/downloads/DrawSplats.zip

Zip file includes the code as well, so feel free to tweak. No guarantee implied or given!!

Good luck.

M.

plank · #10 (**permalink**) 01-23-2004

You are an absolute star....... thank you ever so much - i hope it didnt take you too long.

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
Radius of a Circle	Gianmaria	MapPoint 2006/2009 Discussion	1	07-14-2006 01:32 PM
radius to altitude	sharkbait	MapPoint 2006/2009 Discussion	1	06-23-2004 10:22 AM
New to GIS. Radius?	tallcotton64	MapPoint 2006/2009 Discussion	4	02-12-2004 10:05 AM
Radius around all pushpins	Terry	MapPoint 2006/2009 Discussion	0	05-20-2003 12:54 AM
Multi-radius	Anonymous	MapPoint 2006/2009 Discussion	1	02-26-2003 09:07 AM

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

MapForums

Radius

Radius

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

Similar Threads