MapForums

Anonymous · #1 (**permalink**) 09-09-2003

I'm currently using the following code:-

Set objLoc = objMap.SelectedArea.Location
If Not objLoc Is Nothing Then
If Type Of objLoc Is Location Then
Set objShape = objMap.Shapes.AddShape(geoShapeRectangle, objLoc, 5, 5)
objShape.Avoided = True
End If
End If

This has been bugging me... How can I make the area to be avoided be the exact shape I've actually drawn? At the moment, I'm hard coding a distance of 5 x 5 miles. Surely there must be a simple way to use the Selected Areas distance?

Thanks

Martel · #2 (**permalink**) 09-25-2003

If you're selecting area on the map and want the avoidance area to be the same size, try storing the selected area height and width before doing anything else. Or am I misreading your question?

Code:

Dim selWidth as long
Dim selHeight as long

selWidth = objMap.SelectedArea.Width
selHeight = objMap.SelectedArea.Height
..
..

Set objShape = objMap.Shapes.AddShape(geoShapeRectangle, objLoc, selWidth, selHeight)
..
..

fill in the rest of your code then substitute the height and width for your current values.

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
Surface Area	Dazzer	MapPoint 2006/2009 Discussion	9	01-05-2006 04:13 AM
is an address within an area?	Anonymous	MapPoint 2006/2009 Discussion	4	02-23-2005 01:51 PM
Mappoint fails calculating the fastest route with avoided zo	Anonymous	MapPoint 2006/2009 Discussion	4	06-08-2004 06:27 AM
How to get the 4 map area coordinates ?	Anonymous	MapPoint 2006/2009 Discussion	1	01-22-2004 01:44 PM
Selected Area	amanuel	MapPoint 2006/2009 Discussion	4	08-22-2002 01:23 PM

MapForums

Avoided Area?

Avoided Area?

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

Similar Threads