add background imagery tile based on GPS coordinates

JasonTrook

Hi ArcPad Users,
Currently I'm creating ArcPad projects displaying only vector data and then a user has to manually add the correct NAIP imagery tile
based upon their location.  This is necessary because my survey areas are too large to do a bulk check out of my background
imagery (get low memory warnings on GPS device).  Has anyone written a script that, upon the click of a button, will add the correct background NAIP tile based on the GPS coordinates?  I'm thinking it could add the .tiff image from my SD card and remove all other
.tifs, if needed.  I have an index/fishnet that matches the .tif name so if GPS coordinates intersect feature 14 in the index then add
14.tif from SD card.  Just looking for a script I could modify or advice how to set this up. Thanks in advance for any help.
Jason

GarethWalters

Hi Jason,

Sorry for the delay. I see in your code that you actually need a couple of extra steps. The IsPointIn method works on a polygon layer but you need to have a polygon feature selected to run the test, otherwise you need to loop through and test the rule against every polygon.

In this instance I may have give you a bum steer as you are really need to use the GPS to find what is around you. In that case I would suggest you try the FindNearestXY method

//var objPoint = Map.Layers("Poles");
//var objPointRS = objPoint.Records;
//objPointRS.BookMark = Map.SelectionBookMark;


var objX = GPS.X; //objPointRS.Fields.Shape.X; 
var objY = GPS.Y; //objPointRS.Fields.Shape.Y;


var objPoly= Map.Layers("Parcel");
var objPolyRS = objPoly.Records;
var objPolyBookMark = objPolyRS.FindNearestXY(objX,objY,0)


if (objPolyBookMark != 0)
{
  //AddLayerFromFile routine
}

This way you will start at the GPS Position and find a polygon that is closest to it.

I hope this helps. Let me know how you get on.

Cheers,

Gareth

P.S. Here is cbScript version for you.

'Dim objPoint
'Set objPoint = Map.Layers("Poles")
'Dim objPointRS 
'Set objPointRS = objPoint.Records
'objPointRS.BookMark = Map.SelectionBookMark


Dim objX
objX = GPS.X 'objPointRS.Fields.Shape.X
Dim objY
objY = GPS.Y 'objPointRS.Fields.Shape.Y


Dim objPoly
Set objPoly = Map.Layers("Parcel")
Dim objPolyRS
Set objPolyRS = objPoly.Records
Dim objPolyBookMark
objPolyBookMark = objPolyRS.FindNearestXY(objX,objY,0)


if objPolyBookMark <> 0 then
  Console.print objPolyBookMark
  'AddLayerFromFile routine
end if