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!
