Community of MapPoint and Bing Maps Users and Developers
This is a discussion on Selected Area within the MapPoint Desktop Discussion forums, part of the Map Forums category; Lets say i have selected an area and in the area that i selected there are pushpins. Is there anyway ...
| |||||||
| Today's Posts | Twitter Feed | Register | Blogs | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read |
| ||||
|
No.. as you're probably aware, working interactively you can do it with right-click / Export to Excel.. MapPoint does not offer this programmatically. If you're ambitious, you could export the polygon and points ( http://www.mp2kmag.com/importersub01.asp ) for processing in a GIS or your own alghorithm ( search for the for "point-in-polygon alghorithm ).
__________________ |
| ||||
|
Give this a try, I think it will do what your asking. I'm just counting the number of pushpins in the selected area (the rectangle made when holding the left mouse button and dragging) but you could get there name/location or whatever you need.. BTW, If you did not select an area it will just exit sub. Private Sub Command1_Click() On Error GoTo error: Dim objmap As MapPointctl.Map Set objmap = MappointControl1.ActiveMap Dim sa As MapPointctl.SelectedArea Set sa = objmap.SelectedArea Dim objDataSet As MapPointctl.DataSet Dim objRecords As MapPointctl.Recordset Dim objLocs(1 To 5) As MapPoint.Location Set objLocs(1) = objmap.XYToLocation(sa.Left, sa.Top) Set objLocs(2) = objmap.XYToLocation(sa.Left + sa.Width, sa.Top) Set objLocs(3) = objmap.XYToLocation(sa.Left + sa.Width, sa.Top + sa.Height) Set objLocs(4) = objmap.XYToLocation(sa.Left, sa.Top + sa.Height) Set objLocs(5) = objmap.XYToLocation(sa.Left, sa.Top) 'Remove the comment from the next line to see the polygon being queried 'objmap.Shapes.AddPolyline objLocs lngCount = 0 For Each objDataSet In objmap.DataSets Set objRecords = objDataSet.QueryPolygon(objLocs) objRecords.MoveFirst Do While Not objRecords.EOF lngCount = lngCount + 1 objRecords.MoveNext Loop Next MsgBox "Number of records in polygon: " & lngCount Exit Sub error: MsgBox Err.Description End Sub
__________________ John http://www.support-pc.com Order MapPoint 2006 Here https://secure.mp2kmag.com/?refer=support-PC |
| |||
|
John, I was playing with something like the code below and sometimes all the records fall in and sometimes i lose one or two points but your solution seems to work better so thank you. P.S. i wouldn't mind if you tell me why my code lost those points. Dim objshape As MapPoint.Shape Set objshape = objMap.Shapes.AddShape(geoShapeRectangle, objMap.SelectedArea.Location, objMap.SelectedArea.Width / 100, objMap.SelectedArea.Height / 100) objshape.Select For Each objDataSet In objMap.DataSets If InStr(objDataSet.Name, "My Pushpins") Then Set objRecordset = objDataSet.QueryShape(objshape) Do Until objRecordset.EOF objRecordset.Pushpin.Highlight = True objRecordset.MoveNext Loop End If Next objshape.Delete |
| ||||
|
Amanuel, Your welcome. One thing my code does it check every dataset. Your code has the if statment so only looks at the "My Pushpins" dataset. If you have more than one dataset, that could explain it. Another thing you could try is run both peices of code but don't delete the shapes, see if they are covering different locations?
__________________ John http://www.support-pc.com Order MapPoint 2006 Here https://secure.mp2kmag.com/?refer=support-PC |
![]() |
| Tags |
| area, selected |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
| Thread Tools | |
| Display Modes | |
| |
| ||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| find streets in a selected area | Anonymous | MapPoint Desktop Discussion | 1 | 01-11-2009 07:05 PM |
| CopyMap AND Keep Selected Area | Anonymous | MapPoint Desktop Discussion | 1 | 04-15-2005 02:58 PM |
| How to get selected vertex in a polyline | Anonymous | MapPoint Desktop Discussion | 2 | 07-11-2004 10:10 AM |
| reading each pinpoint with a selected area of the map | Anonymous | MapPoint Desktop Discussion | 1 | 10-18-2003 05:28 PM |
| Determining what has been selected? | Anonymous | MapPoint Desktop Discussion | 1 | 04-06-2003 08:34 PM |