MapForums

Sonicman_ · #1 (**permalink**) 02-16-2006

Is it possible to get the Location object of pushpins already on a map?

Let's say I have 3500 Pushpins saved on a file... I would like to get the Lat/Lon of those using the CalcPos routine (VBA)...

I have used the calcpos already with success (right after creating a pishpin), I just don't know how to get the location object of pushpins already present on a map...

Thanks all in advance for your support!

Sonicman

**Wilfried** · #2 (**permalink**) 02-17-2006

Hi,

This gets all pushpins on the map and their Location object:

Code:

            object o = 1;
            MapPoint.DataSet ds = mp.ActiveMap.DataSets.get_Item(ref o);
            Recordset rs = ds.QueryAllRecords();
            rs.MoveFirst();
            while (!rs.EOF) {
                Location loc = rs.Pushpin.Location;
                rs.MoveNext();
            }

Sonicman_ · #3 (**permalink**) 02-17-2006

Thanks for the code !

If I understand correctly, "loc" will be the location object I am looking for right ?

I have absolutely no experience with C# code.... VB is what I know..

Sonicman

**Wilfried** · #4 (**permalink**) 02-18-2006

Hi,

Quote:

"loc" will be the location object I am looking for right ?

Yes correct.

Quote:

VB is what I know..

Yes but reading other code should be no problem. Writing in it is something different of course. If you have other questions just fire them

Sonicman_ · #5 (**permalink**) 02-20-2006

Here's the working code in VB format for those interested (the following displays a msgbox for each pushpin name on a current map):

Code:

Private Sub Commande0_Click()

Dim objApp As MapPoint.Application
Dim objMap As MapPoint.Map
Dim objLoc As MapPoint.Location
Dim objRecordSet As MapPoint.Recordset
Dim objDataset As MapPoint.DataSet

Set objApp = GetObject(, "Mappoint.Application.NA")
Set objMap = objApp.ActiveMap
Set objDataset = objMap.DataSets.Item(1)
Set objRecordSet = objDataset.QueryAllRecords

objApp.Visible = True
objApp.UserControl = True

objRecordSet.MoveFirst

Do Until objRecordSet.EOF
    Set objLoc = objRecordSet.Pushpin.Location
    objRecordSet.MoveNext
    MsgBox objLoc.Name
Loop

End Sub

Thanks for your help Wilfried. It is much appreciated !

Sonicman

**Wilfried** · #6 (**permalink**) 02-20-2006

Hi,

I appreciate also your feedback. It will benefit lots of othr user. Glad your solution works

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
Some concerns about calcpos sub	lucci56	MapPoint 2006/2009 Discussion	5	07-18-2006 11:44 AM
Problems using CalcPos	Pete_ADL	MapPoint 2006/2009 Discussion	4	06-21-2006 04:12 PM
Looking for existing app to meet needs	Anonymous	MapPoint 2006/2009 Discussion	1	03-01-2004 12:44 PM
Confused with calcpos :s	Matrices	MapPoint 2006/2009 Discussion	4	09-25-2003 10:30 AM
Is it possible to add a new point to an existing p....	Anonymous	MapPoint 2006/2009 Discussion	1	09-17-2001 02:38 AM

MapForums

Use CalcPos on a map with EXISTING pushpins ??

Use CalcPos on a map with EXISTING pushpins ??

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

Similar Threads

MapForums

Use CalcPos on a map with EXISTING pushpins ??

Use CalcPos on a map with EXISTING pushpins ??

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

Similar Threads