Welcome to MapForums!

Register, sign in, or use Facebook Connect above to join in and participate in the forum.

When you are signed in, this message, the ads in this row, and the red-underlined link ads all go away.

Subscribe to receive our newsletter.
Subscribe Unsubscribe
Results 1 to 2 of 2

Selecting a prviously drawn shape

This is a discussion on Selecting a prviously drawn shape within the MapPoint Desktop Discussion forums, part of the Map Forums category; Hello Everyone. I have been searching for an answer to this question for hours, hopefully someone will have the solution ...

  1. #1
    CSG
    CSG is offline Junior Member White Belt
    Join Date
    Mar 2004
    Location
    Dover, PA
    Posts
    9

    Selecting a prviously drawn shape

    Hello Everyone.

    I have been searching for an answer to this question for hours, hopefully someone will have the solution for me.

    I have created a map, selected a location and then created a series of circles 2.5 miles in radius from the location. Each circle(shape) has a name, ie zone1, zone2, zone3 etc. i now wish to be able to select each shape and perform series of searches for that area(shape).

    Here is my problem:

    I can not figure out how to programaticly refer to the shape and make it the selected shape.

    here is the same code:

    Dim objmap As MapPoint.map
    Set objmap = Forms!csgmAP.csgmAP.ActiveMap
    Dim objloc As MapPoint.Location
    Dim addy As String
    Set objloc = objmap.FindResults(Forms!popplot.Scaddy).Item(1)
    Set objPushPin = objmap.AddPushpin(objloc, Forms!popplot.Scaddy)
    objPushPin.Name = Forms![popplot]![mapschools].Form![Name]
    objPushPin.Note = Forms![popplot]![mapschools].Form![id]
    objPushPin.BalloonState = geoDisplayBalloon
    objPushPin.symbol = Forms![popplot]![mapschools].Form![symbol]
    objPushPin.Highlight = True
    Dim objroute As MapPoint.route
    Set objroute = objmap.ActiveRoute
    objmap.ActiveRoute.Waypoints.Add objloc
    objloc.Goto


    Dim x As Integer
    Dim mapshape As MapPoint.Shape
    Dim dblRadSize As Integer
    Dim c As Double
    x = 50
    c = 14872316

    ' Create circles from 5 to 25 miles
    Dim iRad, i As Double
    iRad = 25.02
    For i = 1 To 5

    Set mapshape = objmap.Shapes.AddShape(geoShapeRadius, objloc, iRad, iRad)
    mapshape.Line.Weight = 0
    mapshape.Name = "Zone" & CStr(i)
    mapshape.Line.Visible = True
    mapshape.Fill.Visible = True
    mapshape.Fill.ForeColor = c
    mapshape.ZOrder (geoSendBehindRoads)
    mapshape.SizeVisible = True
    'creates a unique color for each circle
    c = c - (i * 825)
    iRad = iRad - 5
    MsgBox "Name of shape: " + mapshape.Name
    mapshape.Select
    Next i

    objmap.Altitude = objmap.Altitude * 20


    Your help would be very much appreciated

    Thanks
    Randye
    (CSG)

  2. #2
    CSG
    CSG is offline Junior Member White Belt
    Join Date
    Mar 2004
    Location
    Dover, PA
    Posts
    9

    previously drawn shape

    Doesn't make ya feel silly when you figure it out right after posting the question...


    objmap.shapes.Item("zone3").Select


    Thanks anyway

    Randye
    (CSG)

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Does an object reside in my Shape or Shape boundaries?
    By hotrdd in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 08-04-2005, 10:51 PM
  2. Selecting and deleting the push pin
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 02-10-2005, 08:01 AM
  3. Selecting cities in drivetime
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 5
    Last Post: 02-02-2005, 05:21 PM
  4. Selecting Shape Based on Name
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 09-07-2004, 11:01 AM
  5. Selecting pushpins within a shape
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 09-26-2002, 09:11 AM

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96