spacer1
spacer2 1_1 1_2
2_1
 Subscribe
 The MP2K Update!
 
 
 
 Magazine
Front Cover
What's New
Articles
News
Sample Data
Gallery
Advertise
About
 Features
MapPoint 2013
Press Releases
MapPoint Forums
Companies
Link to MP2Kmag
Wish List
MapPoint Trial
Authors
 Earlier Content
Past News Items
Past What's New Announcements
 Sponsors
 Order

MapPoint 2013

Programming MapPoint in .NET

MapPoint Book

  Spatial Community
SVG Tutorials
MapPoint

Map Visitors

  ARTICLES  


Merging Multiple Routes

In this article, Chip Pearson demonstrates a method to merge several MapPoint files in to a single "Master" route programmatically with VBA.

I had the situation in which I wanted to merge the routes from each of several MapPoint files in to a single "master" route. I had taken an 8 day driving trip through New Mexico and Colorado, and had each day's route in a separate file. I wanted to create a single Map that described my entire trip.

So, being a VBA junkie, I wrote some VBA code to automate the process. The VBA consists of two modules. The first, a standard code module called modRouteMerge contains the code that does the actual work. The second, a class module called CWayPointX, defines the "holding" object in which we store information about each way point.

As the various maps are read, each waypoint's information is stored in an instance of CWayPointX, and each instance of CWayPointX is stored in a collection. The individual map routes are read by a procedure called GetRoutes. Then, a new blank map is created, and a route is created by looping the collection object, pulling information from each CWayPointX object stored in the collection. This is done by the procedure called CreateNewMapRoute.

The CWayPointX class contains a procedure called CalcPos, written by Gilles Kohl, which I got from this web site, in the article "A More Compact Method For Obtaining Lat/Long" (18-July-2001). This procedure calculates the latitude and longitude from a Location object.

The CWayPointX class preserves only the Name, latitude, and longitude of the original WayPoint object. Other properties (e.g., Overnights) are not preserved. However, the source code provides detailed instructions about how one can modify the class to preserve any WayPoint property.

The code was developed the code under Excel 2002, but it does not use any Excel-specific features, and therefore should work under any "host" application that supports VBA (e.g., Excel, Word or PowerPoint). Any VBA-enabled host application can run the code. The user will have to set a reference to the MapPoint 2002 (version 9) object library. I have not tested this code under any version of MapPoint prior to 2002, but doubt it will work.

The code is very completely commented, and can easily be customized by anyone with a basic understanding of VBA.

To use the code, simply import the two modules in to any application that supports VBA (e.g., Excel or Word), change the file names in the GetRoutes procedure to the files you want to merge, and execute GetRoutes. The builds the collection of WayPoints. Then, execute CreateNewRouteMap to build a new map with the "merged" route. The original files are not modified in any way.

The code is explicitly granted to the Public Domain.

Discuss this story in the forum.

Author: Chip Pearson
Email: chip(AT)cpearson.com
URL: http://www.cpearson.com
Chip Pearson is an independent software developer, specializing in applications written on the Microsoft Excel platform. He has been awarded the Most Valuable Professional (MVP) award from Microsoft for each of the last 4 years. Prior to working in the Excel world, Chip was a consultant to Tandem Computers in Cupertino, CA. He has a degree in mathematics from the University Of Kansas, and currently lives in Kansas City with his cat, Sadie.



Google
 
MP2Kmag Internet


 Recent Discussion
-AutoColor
-SolidThinking Inspire v2016.1.5559 x64-BEAN (17/8)
-Auto FX PhotoGraphic Edges Ultimate Bundle Gen2 v9.6.0 (17/8)
-Mentor Graphics FloEFD 14.2-SSQ (17/8)
-Dlubal RFEM 5.06 (x64) Multilanguage (17/8)
-Bluebeam Revu eXtreme 2018.1 v18.x Multilingual (17/8)
-Autodesk Maya 2018.4 (17/8)
-Adobe Bridge CC 2018 (v8.1) x86-x64 Multilingual Update 2 (17/8)
-Simufact.Welding 4.0.1 (17/8)
-ANSYS Discovery Enterprise 19.1.1 (17/8)
-Aurora SPARK3D v2018
-ANSYS Electromagnetics Suite 17.1 (17/8)
-Solidthinking Inspire v2018.3.0.10526 Multilingual (x64) (17/8)
-Adobe Acrobat Pro DC 2018.011.20058 Multilingual (17/8)
-ANSYS Electromagnetics Suite 17.0 (x64) (17/8)
-GibbsCAM 12.0.29.0 (x64) Multilingual (17/8)
-Autodesk Autocad Mechanical 2019.1 by m0nkrus (17/8)
-Adobe Bridge CC 2018 v8.1 (x86/x64) Update 2 Multilingual (17/8)
-Autodesk AutoCAD Electrical 2019.1 (17/8)
-DS V5R22 CATIA-DELMIA-ENOVIA last hotfixes for all SP (17/8)
-VMware Fusion Pro 10.1.3 Build 9472307 (17/8)
-MAGIX Fotostory easy 2.0.0.35 Germany + English (17/8)
-Ds Simulia Abaqus v6.14-4 (17/8)
-Paragon Drive Copy 15 Professional 10.1.25.779 (x86/x64) (17/8)
-ARCHICAD 21 Build 3005 with Addons
 Resources
Browse GIS books and periodicals
Find a MapPoint Partner or Consultant
Real Estate Thornbrook Subdivision


Want Your Site To Appear Here?

   © 1999-2012 MP2K. Questions and comments to: website@mp2kmag.com
  Microsoft and MapPoint 2002/2004/2006/2009/2010/2011/2013 are either trademarks or registered trademarks of Microsoft.