MapForums

The more i code the more im thinking this is not possible..

what i want to do is make a route in mappoint. set a dozen waypoint. and i want to know if a car is following the road or not..

if its a straight line i can manage.. but what if my road as curves.. i want to be able to place pins along those curve so that i can know if the car is near the route to follow..

ex:

if mycarloc.findnearbypins(1miles radius) = false then
the car is too far from the road..


i tried a lot of different approach so far. but nothing seems to work. direction is pretty useless and waypoint cant work if theres too much space between them. even if the calculated route is perfect.

anybody can tell me if i can manually follow a route from beginning to end in code.. (its drawn perfectly. why cant i follow the route miles by miles in code.?)

thanks for reading my rambling.


EDIT: i just found the ideal thing for my application.. when doing findnearby inside mappoint and selecting a route.. the road is selected with a radius of 1km.. is there a way to do the same using the vb component.?

Hi,
i've had the same problem, but the solution is very simple.

unfortunately the programming language we use (CenturaTeamDeveloper)
differs from VisualBasic, but if you take a look at the code
you shure will find out what happens here.

Greetings from Germany
Rainer


Actions
Call SalListClear( lbName )
Call ax1.PropSetItineraryVisible( FALSE )
Call ax1.PropGetActiveMap( Map )
Call Map.PropGetActiveRoute( MyRoute )
Call MyRoute.PropGetDirections( MyDirections )
Call MyDirections.FindNearby( 0.1, MyResults )
Call MyResults.PropGetCount( nRes )
Set nIt = 1
Loop Outer
If nIt <= nRes
Call vIt.SetNumber( nIt, VT_I2 )
Call MyResults.PropGetItem( vIt, MyDirections )
Call MyDirections.PropGetCount( nDirs )
Set nDir = 1
Loop Inner
If nDir <= nDirs
Call vDir.SetNumber( nDir, VT_I2 )
Call MyDirections.PropGetItem( vDir, MyDirection )
Call MyDirection.PropGetLocation( MyLoc )
Call MyLoc.PropGetName( sName )
Call SalListAdd( lbName, sName )
Set nDir = nDir + 1
Else
Break Inner
Set nIt = nIt + 1
Else
Break Outer

Hi, it's me again
i'm Sorry i've sent you rubbish in my last mail
this is the right code...

Greetings from Germany
Rainer


Actions

Call SalListClear( lbName )
Call ax1.PropGetActiveMap( Map )
Call Map.PropGetActiveRoute( MyRoute )
Call MyRoute.PropGetDirections( MyDirections )
Call MyDirections.FindNearby( 0.1, MyResults )
Call MyResults.PropGetCount( nRes )
Set nIt = 1
Loop Outer
If nIt <= nRes
Call vIt.SetNumber( nIt, VT_I2 )
Call MyResults.PropGetItem( vIt, MyLoc )
Call MyLoc.PropGetName( sName )
Call SalListAdd( lbName, sName )
Set nIt = nIt + 1
Else
Break Outer