Help: Trying to Add points to shapefile

CraigGraham — Mon, 28 Oct 2013 12:43:45 GMT

Good Morning,
I'm trying to add points to a shapefile in ArcPad. I found this script example that does it from the position of the mouse pointer....

Set objPoint = Application.CreateAppObject("Point") Set objRS = Map.Layers(???<<Layer Name>>???).Records Call objRS.AddNew objPoint.X = Map.PointerX objPoint.Y = Map.PointerY Set objRS.Fields.Shape = objPoint objRS.Fields ???<<Field Name>>???).Value = CStr(???<<Information or Variable>>???) objRS.Update

I made some alterations to it so that it is looking at the X and Y values from photos in a folder.

' Snipped is a bunch of code creates a shp, then in a loop... opens the image, reads the lat/long and projects it to the current map's projection. Set pPoint= Application.CreateAppObject("Point") Set rs = Map.Layers(sPhotoSHPLayerName).Records Call rs.AddNew pPoint.X = dProjectedX pPoint.Y = dProjectedY Set rs.Fields.Shape = pPoint rs.Fields "PhotoName").Value = CStr(file.name) rs.Fields "Long").Value = CDbl(dLong) rs.Fields "Lat").Value = CDbl(dLat) rs.Update

I keep getting a very unhelpful error message at "Set rs.Fields.Shape = pPoint". It says something like "Unavailable". Does anyone know what I'm missing.

I have messaged boxed dProjectedX and dProjectedY and they are valid coordinates that make sense for the study area. The reference to sPhotoSHPLayerName seems correct.

I feel like this is the one little step I need to finish to get this project over with. At this point all suggestions will be tried. Thanks in advance for any help.

Take care,
Craig

Re: Help: Trying to Add points to shapefile

CraigGraham — Mon, 28 Oct 2013 23:33:56 GMT

So the example on the ArcScripts site is likely out of date. With 10.1 the following works great.

Set pPoint= Application.CreateAppObject("Point") Set rs = Map.Layers(sPhotoSHPLayerName).Records pPoint.X = dProjectedX pPoint.Y = dProjectedY rs.AddNew pPoint rs.Fields "PhotoName").Value = CStr(file.name) rs.Fields "Long").Value = CDbl(dLong) rs.Fields "Lat").Value = CDbl(dLat) rs.Update

Have a good day.

topic Re: Help: Trying to Add points to shapefile in ArcPad Questions

Help: Trying to Add points to shapefile

Re: Help: Trying to Add points to shapefile