POST
|
Good Afternoon All, I have a Mapbook (using Data Driven Pages) project that is based on different Polygon scales. Does anyone have a solution to have multiple Measured Grids in my layout view that could be switched on and off based on the scale that the map is at? For Example: Map 1 has a scale at 1:10,000, therefore the measured grid would be set to 1000 Intervals Map 2 has a scale at 1:50:000, therefore the measured grid would be set to 5000 intervals and so on. Any help would be great Many thanks Andrew
... View more
06-02-2011
04:35 PM
|
0
|
7
|
2112
|
POST
|
Good Morning All, I was wondering if someone has created code that does the following: Explode a Polygon that doesnt touch Merge polygons that do touch The First Image is an example of a polygon that doesnt touch and needs to be exploded The Second Image is a collection on polygons that have different attributes but been to be merged together. I am dealing with over 1 million polygons and would like to do this programmatically. Many thanks and look forward to your replies Regards
... View more
06-02-2011
11:49 AM
|
0
|
0
|
522
|
POST
|
Good Afternoon, I was wondering, would it be possible to calculate the width and height of a polygon in ArcGIS 10 to eliminate slithers of polygons as the width should be smaller than the height of a polygon possibly. Would be great to hear from you regard this... Regards
... View more
06-01-2011
05:58 PM
|
0
|
0
|
870
|
IDEA
|
Hi All, I did a quick search and didnt find anything on this yet. I find it very fraustrating: for text boxes that when you want if you want your text to be on multiple lines you have to manually add line breaks. For Labels it is fraustrating when your label exceeds the bounds of your polygon. It would really great to have several options: Textboxes: The ability to have something similar to Textboxes in Visual Basic Editor where you have options to set it to a multi-line textbox. The ability to change the size of the textbox without changing the size of the text And some basic formatting options in the Textbox dialog box. Labels: The ability to set a length limiter on labels (for example, if text length = 20, go to the nearest “space” then create a line break The ability to have a setting that limits the label to the polygon I think these changes would be extremely useful. Cheers Andrew
... View more
08-10-2010
06:26 PM
|
8
|
3
|
785
|
POST
|
I figured out a quick and easy solution: Sub InitialiseGPSID
'Do any form initialization in this sub
Dim objEFPageOneControls, objEditForm
Set objEditForm = ThisEvent.Object
Set objEFPageOneControls = objEditForm.Pages("PAGE1").Controls
'Initialization for form in any mode
'Disable the GPS ID edit box
objEFPageOneControls("txt_GPSID").Enabled = False
'Initialization for form when adding new records
If objEditForm.Mode = 3 Then ' Mode 3 is used when creating a new feature.
'Get the Fence Points layer's recordset (to pass into the ReturnNextID function)
Dim objUniqueID
Set objUniqueID = Layer.Records
if ReturnNextID (objUniqueID, "USERNUMBER") = 1 then
'Update the Tree ID
objEFPageOneControls("txt_GPSID").Value = ReturnNextID (objUniqueID, "USERNUMBER") + 10000
objEFPageOneControls("txt_AssetID").Value = ReturnNextID (objUniqueID, "USERNUMBER") + 10000
else
objEFPageOneControls("txt_GPSID").Value = ReturnNextID (objUniqueID, "USERNUMBER")
objEFPageOneControls("txt_AssetID").Value = ReturnNextID (objUniqueID, "USERNUMBER")
end if
End If
'Free objects
Set objEFPageOneControls = Nothing
Set objEditForm = Nothing
Set objUniqueID = Nothing
End Sub
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'Also write the function ReturnNextID that is called by InitializeForm.
Function ReturnNextID (objRS, strFieldName)
Dim intMax
'Get the first record
objRS.MoveFirst
'Initialize the max value to the first record
intMax = CInt(objRS.Fields(strFieldName).Value)
'Loop through the records, updating the max value if necessary
Dim intCurrVal
While Not objRS.EOF
intCurrVal = CInt(objRS.Fields(strFieldName).Value)
If (intCurrVal > intMax) Then
intMax = intCurrVal
End If
objRS.MoveNext
Wend
ReturnNextID = intMax + 1
End Function
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ The text in the yellow links to a invisible text box in the form then saves the value to the field in the Shapefile. not a clear work around but does for now. Cheers
... View more
06-29-2010
06:14 PM
|
0
|
0
|
162
|
POST
|
Hi All, I am working on a project in ArcPad 8 SP3. I have a Shapefile with to fields UserNumber (Long Integer) UserText3 (Text Field) Below is my Code that i have created to autogenerate a Unique ID and my Text_box that it relates to will store that value that is returned to UserNumber. How would I go about adding that value directly to the Attribute table for UserText3?
Sub InitialiseGPSID
'Do any form initialization in this sub
Dim objEFPageOneControls, objEditForm
Set objEditForm = ThisEvent.Object
Set objEFPageOneControls = objEditForm.Pages("PAGE1").Controls
'Initialization for form in any mode
'Disable the GPS ID edit box
objEFPageOneControls("txt_GPSID").Enabled = False
'Initialization for form when adding new records
If objEditForm.Mode = 3 Then ' Mode 3 is used when creating a new feature.
'Get the Fence Points layer's recordset (to pass into the ReturnNextID function)
Dim objUniqueID
Set objUniqueID = Layer.Records
if ReturnNextID (objUniqueID, "USERNUMBER") = 1 then
'Update the Tree ID
objEFPageOneControls("txt_GPSID").Value = ReturnNextID (objUniqueID, "USERNUMBER") + 10000
else
objEFPageOneControls("txt_GPSID").Value = ReturnNextID (objUniqueID, "USERNUMBER")
end if
End If
'Free objects
Set objEFPageOneControls = Nothing
Set objEditForm = Nothing
Set objUniqueID = Nothing
End Sub
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'Also write the function ReturnNextID that is called by InitializeForm.
Function ReturnNextID (objRS, strFieldName)
Dim intMax
'Get the first record
objRS.MoveFirst
'Initialize the max value to the first record
intMax = CInt(objRS.Fields(strFieldName).Value)
'Loop through the records, updating the max value if necessary
Dim intCurrVal
While Not objRS.EOF
intCurrVal = CInt(objRS.Fields(strFieldName).Value)
If (intCurrVal > intMax) Then
intMax = intCurrVal
End If
objRS.MoveNext
Wend
ReturnNextID = intMax + 1
End Function
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
... View more
06-24-2010
03:44 PM
|
0
|
1
|
1914
|
POST
|
Good Afternoon All, Imagine this.... You are capturing a fenceline using capture GPS vertex in ArcPad 8, when you stumble across a a hole in the fence and you now need to capture this point of interest. 1) Are you able to pause the line capture process to capture that POI 2)If not would it be better to capture the fenceline as Points so that when i come across said hole I can capture that information? Our end user does not want to capture the fenceline then walk all the way back to the hole in the fenceline. Any help would be great Cheers Andrew Keywords: Fenceline, Points of Interest, ArcPad
... View more
06-21-2010
08:15 PM
|
0
|
4
|
594
|
POST
|
Good Afternoon All, I have a dilemma. we have an application for collection of GPS data for Crossings and Gates. What we have is existing locations with x amount of attribute data. What needs to happen is either to update the X & Y location or Attribute Data, or a combination of both. Does anyone know a way of how to do this through VB code? Any assistance would be grateful. Many thanks Andrew
... View more
06-20-2010
08:02 PM
|
0
|
0
|
351
|
POST
|
Hi there, Was this script only for Points or could it be applied to a line feature. Could you also post the full script please? Regards Andrew
... View more
06-13-2010
03:20 PM
|
0
|
0
|
231
|
POST
|
Hi there, I have copied your script to VB Editior in ArcGIS but can not get it to work. I need to create sqaure buffers for a river feature (line feautre). I was hoping to use your code. could you please expand on your instructions for use of this code please? regards Andrew
... View more
06-13-2010
03:09 PM
|
0
|
0
|
1586
|