Avoided property

Returns or sets whether a route avoids intersections within the specified shape. The AutoShapeType property of the Shape object must be geoShapeRectangle. Read/write Boolean.

Applies to

Objects: Shape

Syntax

object.Avoided

Parameters

Part

Description

object

Required. An expression that returns a Shape object.

Example

  Sub RouteAroundAvoidedArea()

  Dim objApp As New MapPoint.Application
  Dim objMap As MapPoint.Map
  Dim objRoute As MapPoint.Route
  Dim objLoc As MapPoint.Location
  Dim objShape As MapPoint.Shape

  'Set up the application
  Set objMap = objApp.ActiveMap
  Set objRoute = objMap.ActiveRoute
  objApp.Visible = True
  objApp.UserControl = True

  'Create a rectangle to avoid
  Set objLoc = objMap.GetLocation(47.64, -122.25675)
  Set objShape = objMap.Shapes.AddShape(geoShapeRectangle, objLoc, 5, 2)
  objShape.Avoided = True

  'Add two waypoints and calculate. Note that route goes around area.
  objRoute.Waypoints.Add objMap.FindResults("Seattle, WA").Item(1)
  objRoute.Waypoints.Add objMap.FindResults("Redmond, WA").Item(1)
  objRoute.Calculate

  End Sub

Note   This sample code is specific for use in MapPoint North America; it is for illustration purposes only.

Show: