MapForums

Anonymous · #1 (**permalink**) 01-22-2003

I want Mappoint to insert arrows between different points on the map. If I have the lat/long of each point, can I write a program to make Mappoint draw these arrows in automatically? I'm trying to avoid drawing 376 arrows by hand. Thanks

**John Meyer** · #2 (**permalink**) 01-25-2003

Vanja,

Here is a code sample to get you started. This example assumes VB6 using the ActiveX Control.

Code:

Dim objmap As MapPointCtl.Map
Set objmap = MappointControl1.ActiveMap
Dim objLoc1 As MapPointCtl.Location
Dim objLoc2 As MapPointCtl.Location
Dim objShape As MapPointCtl.Shape

Set objLoc1 = objmap.GetLocation(37.78, -122.42)
Set objLoc2 = objmap.GetLocation(38.9, -77.02)
Set objmap.Location = objLoc1

  'Add a Line from one location to the other
Set objShape = objmap.Shapes.AddLine(objLoc1, objLoc2)
objShape.Line.BeginArrowhead = True
objShape.Line.EndArrowhead = True
 'Ensure Visible
objmap.Union(Array(objLoc1, objLoc2)).GoTo

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
arrows disappear after zoom out	Gerhard Faber	MapPoint 2006/2009 Discussion	4	01-27-2006 03:00 AM
Flows in mappoint 02 or 04 (arrows depending on the size of	Anonymous	MapPoint 2006/2009 Discussion	3	11-19-2003 01:51 PM
joining recordsets with arrows (II)	Anonymous	MapPoint 2006/2009 Discussion	0	10-28-2003 06:37 AM
joining recordsets with arrows	Anonymous	MapPoint 2006/2009 Discussion	1	10-22-2003 07:54 AM
Need help with map scrolling arrows please!	Anonymous	MapPoint 2006/2009 Discussion	2	09-09-2003 10:29 AM

MapForums

Inserting Arrows

Inserting Arrows

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

Similar Threads

MapForums

Inserting Arrows

Inserting Arrows

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

Similar Threads