Re: [Maptitude] Tagging Overlapping Selections

[armando]

Maptitude - http://research.umbc.edu/~roswell/maptitude.html

Ooopss.

Here is the code.

Armando

--------------------------------

Macro "multitags"

// ----------- Variables
     // search
     search_distance = 10

     // layer names
     polys="polys"
     points="points"

     //fields to use for tagging
     point_field="ID"
     poly_field="field_1"

     // string to separate point data in polygon tag
     separator=" - "
// ----------------------

     SetLayer (polys)
     vp=GetLayer()
     myset=CreateSet("dummy")

     SetLayer (points)
     rh=GetFirstrecord(,)

     while rh<>null do

       tag=points.(point_field)

       c=GetPoint(rh2id(rh))

       setLayer(polys)

       n_selected = SelectByCircle(myset, "Several", Circle(c,search_distance))

       rh2=GetFirstRecord(myset,)

       while rh2<>null do
                vp.(poly_field)= vp.(poly_field)+separator+r2s(tag)
                rh2=GetNextRecord(myset,rh2,)
       end

     SetLayer (points)
     rh=GetNextRecord(,rh,)
     end

endMAcro


______________________________________________________________________
To unsubscribe, write to [EMAIL PROTECTED]