Add XYZ+ applet values and Averaging

deleted-user-63-Y0oM5x2K4 — Thu, 11 Jul 2013 20:02:58 GMT

Hi there,

I am running ArcPad 10.0.4 on a Juno T41 (Windows 6.5) using an SXBlue II GNSS receiver (communicating through bluetooth).

For a current project I am setting up the receiver at a fixed location (tripod) and recording a point location with Averaging enabled (500 points). Other settings include using DGPS only, and max PDOP of 4.

I am using the Add XYZ+ applet created by Jeff LeProwse to add meaningful information to the resulting shapefile.

My question is that with this applet, the X, Y, and Z values are added for the resulting location (averaged from 500 points), but the other values (PDOP, HPE, etc) that are being written into the shapefile, I am not sure if they the 'average' values from the 500 locations, or are they values from the first or last recorded point for averaging?

The part of the script that I am concerned with are from GPS.Properties. I have added an excerpt from the script below (not formatted).

Sub FeatAdded
Dim MyCoordSys, objRS, f
Set MyCoordSys = Application.Map.CoordinateSystem
Set objRS = Map.Selectionlayer.Records
objRS.Bookmark = Map.SelectionBookmark
If Right(objRS.Fields.ShapeType, 1) = 1 Then
If MyCoordSys.GeographicName = "GCS_North_American_1983" Then
For Each f in objRS.Fields
   Select Case Ucase(f.name)
    Case "X"
     f.Value = objRS.Fields.Shape.Y
    Case "Y"
     f.Value = objRS.Fields.Shape.X
    Case "LATITUDE"
     f.Value = objRS.Fields.Shape.Y
    Case "LONGITUDE"
     f.Value = objRS.Fields.Shape.X
    Case "Z"
     f.Value = GPS.Z
    Case "ALTITUDE"
     f.Value = GPS.ALtitude
    Case "PDOP"
     f.Value = GPS.Properties("PDOP")
    Case "NUM_SATS"
     f.Value = GPS.Properties("SATS_USED")
    Case "GPS_TIME"
     f.Value = FormatDateTime(GPS.Properties ("UTC"), vbShortTime)
    Case "GPS_DATE"
     f.Value =FormatDateTime(GPS.Properties ("UTC"), vbShortDate)
    Case "QUALITY"
     f.Value = GPS.Properties("QUALITY")
    Case "DGPS_ID"
     f.Value = GPS.Properties("DIFF_ID")
    Case "DIFF_AGE"
     f.Value = GPS.Properties("DIFF_AGE")
    Case "HDOP"
     f.Value = GPS.Properties("HDOP")
    Case "EPE"
     f.Value = GPS.Properties("EPE")
    Case "HPE"
     f.Value = GPS.Properties("HPE")
   End Select
Next
End If
objRS.Update
Map.Refresh(True)

End Sub

Sub FeatChanged

End sub

I cannot find documentation about this anywhere.

Help would be greatly appreciated!

topic Add XYZ+ applet values and Averaging in ArcPad Questions

Add XYZ+ applet values and Averaging