Latest Contributions by RichardFairhurst

Excellent. Better than I could have hoped. I've created the lines as accurately as possible with the available data, but there's still plenty of room for error. Fortunately, there is stationing data associated with the line files that do have coordinates. Once I have those, everything should work out nicely. In theory. If you have known stationing you can use the Calibration tools to fix those measure values and interpolate the remaining measures for increased accruacy relative to your field data.  Anyway, you should look at the Linear Referencing help to get more information on what you can do. ... View more

I do not think you can do this through a label expression across multiple rows of features without using a summary tool or a cursor (python or .Net) and storing the result in a field for each row through a join to the summary or from the cursor processing.  If this involves a single feature only and multiple field columns that is different, but your description sounds like you have to accumulate multiple rows to get your answer. ... View more

Disclaimer: I have next to no experience with code, and I'm relatively new to ArcGIS, but I figure that my problem is such that learning to write a code would probably go faster than trying to do this manually. I'm in a particularly frustrating situation trying to locate sets of several hundred points, a few thousand total. The points were surveyed using the only prominent landmark; specifically, all I have to locate them is a distance measurement along the line, and a perpendicular distance from that point (I believe my life would be easier if either measurement was made at a regular distance, but this is not the case). They are, at least, all on the same side of the line. I'm assuming I would need to populate a table with said measurements and point identifiers, but beyond that... Fortunately, I have people in my life that will put up with my lack of knowledge, but I'm sure they would be more appreciative if I had snippets of code to get me started. Any ideas? I know there will be a cumulative error associated with line placement, but there isn't much that can be done about that. If you actually have a line feature you can use Linear Referencing to create the points from the table you create without any code.  You could use the Create Route tool to create a new feature class that would assign measure values along the line based on its length.  You would need to make the point data into a table.  The table would need a set of 3 fields to store the line's id value (a name or a number in a field of the line), a distance along the line, and a distance to the side of the line. When you have the Route and the table, right click the table and choose Create Route Events to match up the line as the Route feature class and the table as an event source.  Specify that you want points and fill in the fields for the measure and the side offset.  You may have to use the advanced settings to get the side offset on the correct side of the line (or just multiply the values by -1 to switch their side). ... View more

Here is an example add-in button that does the basics of what you want: Imports ESRI.ArcGIS.Carto Imports ESRI.ArcGIS.Geometry Imports ESRI.ArcGIS.Geodatabase Imports ESRI.ArcGIS.ArcMapUI Imports ESRI.ArcGIS.ADF Imports My Public Class MyClass ' Your real class name will appear here   Inherits ESRI.ArcGIS.Desktop.AddIns.Button   Public Sub New()   End Sub   Protected Overrides Sub OnClick()     Dim pMxDoc As IMxDocument     pMxDoc = CType(ArcMap.Application.Document, IMxDocument)     Dim pMap As IMap     pMap = pMxDoc.FocusMap     Dim pEnumLayer As IEnumLayer     pEnumLayer = pMap.Layers     pEnumLayer.Reset()     Dim pLayer As ILayer     pLayer = pEnumLayer.Next     Dim pFLayer As IFeatureLayer     Do While Not pLayer Is Nothing       If pLayer.Name = "MY_LAYER_NAME" And TypeOf pLayer Is IFeatureLayer Then ' Substitute your real layer name         pFLayer = TryCast(pLayer, IFeatureLayer)         Exit Do       End If       pLayer = pEnumLayer.Next     Loop         If pFLayer is Nothing Then       MsgBox("No Layer Found")       Exit Sub     End If     Dim pFSel As IFeatureSelection     pFSel = pFLayer     Dim pSelSet As ESRI.ArcGIS.Geodatabase.ISelectionSet2     pSelSet = pFSel.SelectionSet     If pSelSet.Count < 1 Then       MsgBox("No Features Selected")       Return     End If     Using comReleaser As ComReleaser = New ComReleaser() ' Recommended for cleaning up cursors        Dim pFCursor As ESRI.ArcGIS.Geodatabase.IFeatureCursor = Nothing        pSelSet.Search(Nothing, False, pFCursor)        comReleaser.ManageLifetime(pFCursor)        Dim pFeature As IFeature        pFeature = pFCursor.NextFeature ' Get First Feature        If pFeature Is Nothing Then          MsgBox("No Features Selected!") ' Just in case, but probably already taken care of earlier          Return        End If        Dim lFIndex As Long        lFIndex = pFCursor.FindField("MY_FIELD_NAME") ' Replace with your field name        If lFIndex > -1 Then          Dim fValue as String ' Substute the correct data type to match the field type          Do While Not pFeature Is Nothing             fValue = pFeature.Value(lFIndex)             ' Do something with the value stored in fValue             pFeature = pFCursor.NextFeature          Loop       End If     End Using   End Sub   Protected Overrides Sub OnUpdate()   End Sub End Class ... View more

Given that ArcScene uses a vanishing point and horizon if the view is anything but looking straight down, wouldn't a scalebar be misleading?  Even a straight down view has scale distortions if varying elevations exist (and why would anyone use ArcScene if you have no elevation changes and do not intend to use a view other than looking straight down).  Scale measurements taken as one approaches the vanishing point and horizon would never match the scalebar.  Esri can't change the laws of physics relative to the effects of 3D viewing distortions on scale without compromising the 3D view.  Any placement of a scalebar from ArcMap on an ArcScene view is simply misleading yourself and your audience except in the simplest of cases around a relatively limited focal point. A legend is something that should be supported in ArcScene, but the workaround is all there is for now. ... View more

If the feature classes/tables are in the same geodatabase or directory you can use the Make Query Table tool to do this. http://help.arcgis.com/en/arcgisdesktop/10.0/help/index.html#//00170000006r000000  It only supports an inner join and is not editable without exporting it, but it can do this type of join and handle all relationship types (one-to-one, many-to-one, one-to-many, and many-to-many).  MS Access is faster and supports outer joins, so if you can use a personal geodatabase you can get the result faster in that program if the data is only tabular.  But the Make Query Tool creates features as well as table rows, so it is better than Access in that situation.  Even so, you would be better off using the Make Query Table tool as part of a process for converting the multifield value to a single field join value to get better performance.  Even MS Access performs better and offers more options with single field relationships than with multi-field relationships. ... View more

VBA is nearly dead and there is no going back to the template loading your cusotmizations.  Add-Ins are enabled at the application level.  After the initial double click of your add-in to install it, it should be able to contain an extension that can be auto enabled and add tools at ArcMap startup (although the help does not show how to do that it does have the ability to listen for the ArcMap startup event). I have come close to that functionality, but decided my code would still use the extension dialog and customization mode at this point, since I have recently developed it and wanted the user to be able to shut it down if an undiscovered bug was in the code.  Perhaps I will test the fully automated mode next week. ... View more

I have posted my Add-In tool here in the Galleries.  It optionally assigns Measures to existing Route features with accumulated 3D or 2D length values.  3D Lengths Measures can only be assigned to layers with XYZM coordinates that use a Projected Coordinate System.  2D Measures can be assigned to any layer.  All of the options of the Create Route tool are available, but edits take place on existing Routes rather than creating a new Feature Class.  One or more Routes can be processed by the tool at once, including up to all of the features of the layer.  The tool always observes layer Definition Query restrictions. Please give the tool a try and look at the README.txt file that comes with it to contact me directly if you encounter any bugs or have questions, comments or would like to see additional tool enhancements. ... View more

Hi all, migrating some VBA code to VB dotnet in an addin for arcmap 10.  Using visual studio 2010. This line pEditor = Application.FindExtensionByCLSID(pID) give this error Error 8 'FindExtensionByCLSID' is not a member of 'System.Windows.Forms.Application'. Is there a reference missing? I have tried "My.ArcMap.Application.Document" but cannot get to the findextension. Any suggestion. Thanks Assuming this is being built as an Add-in for ArcMap you should be able to use: pEditor = ArcMap.Application.FindExtensionByCLSID(pID) or pEditor = My.ArcMap.Application.FindExtensionByCLSID(pID) I also assume you have created a reference to Editor and Imported it already, but since you don't show the code that sets up the pEditor variable or the pID variable, I can't tell. ... View more

I found that the Bitwise check for SDE priveleges example I gave above needs to be fully enclosed in parentheses to work correctly.  So the correct syntax to check for all priveleges is: If (pSQLPriv.SQLPrivileges And (esriSQLPrivilege.esriSelectPrivilege Or esriSQLPrivilege.esriUpdatePrivilege Or esriSQLPrivilege.esriDeletePrivilege Or esriSQLPrivilege.esriInsertPrivilege)) <> (esriSQLPrivilege.esriSelectPrivilege Or esriSQLPrivilege.esriUpdatePrivilege Or esriSQLPrivilege.esriDeletePrivilege Or esriSQLPrivilege.esriInsertPrivilege) Then ' Bitwise check for All Privileges   ' Do something if user has all priveleges End if The code in the post just above this uses this syntax. ... View more

I was able to create the function I needed.  For non-SDE workspaces it tests the effective permission of the currentuser to see if they have security policy permissions to write to a directory workspace. The other code for non-SDE workspaces I posted above that tests the read only and can edit properties also should be used, but that code only tests if the read only setting was applied directly to the individual file or directory.  That setting would prevent even the owner with full rights over the file or directory from being able to write to it without unchecking the flag. The function below incorporates all of the tests I have mentioned and should work with any IDataset variable, whether it is assigned, unassigned. SDE or non-SDE.  If it is SDE it checks if it has Edit priveleges.  If it is non-SDE it checks user security policies which are applied based on the user identity and not uniformly to the file or directory.  It also checks the workspace rights mode settings of the file or directory itself as shown before.  I had to comment out the Threading interfaces and methods for checking the CurrentPrincipal because they threw errors, but I would have applied them if I could.  If anyone knows how to get them to work in an Add-in, please let me know. Even if this code indicates that you can write to a dataset, you should still enclose any use of the Editor interface within a Try Catch block, since the file system is dynamic.  You should assume that it is possible for settings to change during your process in ways that may cause a failure based on the inability to write to the dataset even after this test is passed, but normally this test should be a good indicator that the dataset can be written to immediately after the test passes.  For SDE data you also still need to test if the Editor Option property for versioned/unversioned editing under IEditProperties3 matches the dataset's versioned state.  You also need to make sure that no edit session is already in progress before attempting to begin a new edit session using the IEditor interface.   Public Function CanWriteTo(ByVal pDataset As IDataset) As Boolean     If Not pDataset Is Nothing Then       ' Dataset is valid       Dim workspace As ESRI.ArcGIS.Geodatabase.IWorkspace = pDataset.Workspace       If Not workspace Is Nothing Then         ' Workspace is valid         If workspace.Type = esriWorkspaceType.esriRemoteDatabaseWorkspace Then           ' workspace is an SDE Worksapce.           ' Verify editing privileges have been granted for the SDE data           Dim pFCName As IFeatureClassName = pDataset.FullName           Dim pSQLPriv As ISQLPrivilege = pFCName           If (pSQLPriv.SQLPrivileges And (esriSQLPrivilege.esriSelectPrivilege Or esriSQLPrivilege.esriUpdatePrivilege Or esriSQLPrivilege.esriInsertPrivilege Or esriSQLPrivilege.esriDeletePrivilege)) = (esriSQLPrivilege.esriSelectPrivilege Or esriSQLPrivilege.esriUpdatePrivilege Or esriSQLPrivilege.esriInsertPrivilege Or esriSQLPrivilege.esriDeletePrivilege) Then             pSQLPriv = Nothing             pFCName = Nothing             workspace = Nothing             Return True           End If         Else           ' workspace is Not an SDE Workspace           Dim DirectoryPath As String = workspace.PathName           Dim dirInfo As System.IO.DirectoryInfo = FileIO.FileSystem.GetDirectoryInfo(DirectoryPath)           Dim currentUser As System.Security.Principal.WindowsIdentity = System.Security.Principal.WindowsIdentity.GetCurrent()           ' Dim currentPrinciple As System.Security.Principal.WindowsPrincipal = System.Threading.Thread.CurrentPrincipal           Dim acl As System.Security.AccessControl.AuthorizationRuleCollection = dirInfo.GetAccessControl().GetAccessRules(True, True, GetType(System.Security.Principal.SecurityIdentifier))           Dim currentRule As System.Security.AccessControl.FileSystemAccessRule           Dim bDenyWrite As Boolean = False           Dim bAllowWrite As Boolean = False           For x As Integer = 0 To acl.Count - 1             currentRule = acl(x)             If currentUser.User.Equals(currentRule.IdentityReference) Then ' Or currentPrinciple.IsInRole(currentRule.IdentityReference) Then               If currentRule.AccessControlType.Equals(Security.AccessControl.AccessControlType.Deny) Then                 If (currentRule.FileSystemRights And Security.AccessControl.FileSystemRights.Write) = Security.AccessControl.FileSystemRights.Write Then bDenyWrite = True                 If (currentRule.FileSystemRights And Security.AccessControl.FileSystemRights.Read) = Security.AccessControl.FileSystemRights.Read Then bDenyWrite = True               ElseIf (currentRule.FileSystemRights And (Security.AccessControl.FileSystemRights.Read Or Security.AccessControl.FileSystemRights.Write)) = (Security.AccessControl.FileSystemRights.Read Or Security.AccessControl.FileSystemRights.Write) Then                 bAllowWrite = True               End If             End If           Next           Dim workspaceProperties As IWorkspaceProperties = TryCast(workspace, IWorkspaceProperties)           If workspaceProperties Is Nothing Then             Throw New ArgumentException("Workspace does not implement IWorkspaceProperties.")           End If           Dim workspaceProperty As IWorkspaceProperty = workspaceProperties.Property _                                                         (esriWorkspacePropertyGroupType.esriWorkspacePropertyGroup, _                                                         CInt(esriWorkspacePropertyType.esriWorkspacePropIsReadonly))           ' See if the property is supported.           Dim bReadOnly As Boolean = False           If workspaceProperty.IsSupported Then             ' Get the property value.             bReadOnly = CType(workspaceProperty.PropertyValue, Boolean)           End If           workspaceProperty = workspaceProperties.Property _                                                         (esriWorkspacePropertyGroupType.esriWorkspacePropertyGroup, _                                                         CInt(esriWorkspacePropertyType.esriWorkspacePropCanEdit))           Dim bCanEdit As Boolean = False           If workspaceProperty.IsSupported Then             ' Get the property value.             bCanEdit = CType(workspaceProperty.PropertyValue, Boolean)           End If           workspaceProperty = Nothing           workspaceProperties = Nothing           currentRule = Nothing           currentUser = Nothing           dirInfo = Nothing           workspace = Nothing           If bAllowWrite And Not (bDenyWrite) And Not (bReadOnly) And bCanEdit Then             Return True           End If         End If       End If     End If     Return False   End Function The function can be called using the code below:         Dim bCanWrite As Boolean = CanWriteTo(pDataset) ' Assume pDataset is an IDataset variable.  It may be assigned or unassigned, SDE or non-SDE.         If Not bCanWrite Then           MsgBox("The Workspace Does Now Allow Write Access!", MsgBoxStyle.Exclamation, "No Write Access To Workspace!")           Exit Sub ' one possible action for handling the inability to write to the dataset         Else           If Not pDataset Is Nothing Then             Dim workspace As ESRI.ArcGIS.Geodatabase.IWorkspace = pDataset.Workspaceaset             If Not workspace Is Nothing Then               If workspace.Type = esriWorkspaceType.esriRemoteDatabaseWorkspace Then                 Dim pVO3 As IVersionedObject3 = pDataset                 Dim pEP3 As IEditProperties3 = m_Editor ' assumes this variable is already assigned with an instance of IEditor                 Dim MESM As esriMultiuserEditSessionMode = pEP3.MultiuserEditSessionMode                 If MESM = esriMultiuserEditSessionMode.esriMESMVersioned And Not pVO3.IsRegisteredAsVersioned Then                   ' Do something when the Edit Mode in set to versioned editing but the Dataset is non-versioned                 ElseIf MESM = esriMultiuserEditSessionMode.esriMESMNonVersioned And pVO3.IsRegisteredAsVersioned Then                   ' Do something when the Edit Mode in set to non-versioned editing but the Dataset is versioned                 End If               End If               ' If IEditor is not already editing you may begin an IEditor edit session here if all the tests above passed and you resolved any mismatch in version edit mode               ' You should still use a Try Catch block around your edit session.             End If           End If         End If ... View more

import arcpy #Set geoprocessing environment arcpy.env.workspace = r"H:\Dr. Hines\New File Geodatabase.gdb" # \ is an escape character in python strings and needs the raw flag or to be doubled to act as a character arcpy.env.overwriteOutput = True #Create list of all blocks fcList = arcpy.ListFeatureClasses("*blk00") #Create loop for fc in fcList:       blk = fcLis # Looks like a misspelling.  Shouldn't this be fcList       arcpy.SelectLayerByLocation_management("Analysis Roads","HAVE_THEIR_CENTER_IN")       for fc in fcList: # this is bad.  Never loop the same object within a loop of itself.  Create a new list object to loop if you need an embedded loop.            rows = arcpy.InsertCursor(blk)            row = rows.newRow()            row.STFID = ()            fieldVal = row.getValue("STFID")            arcpy.CalculateField_management("Analysis Roads","STFID","fieldVal") Not sure if the things noted above fix everything, but they are suspect as possible errors. ... View more

I'm having this exact issue.  Anyone know how to fix it?? I have a table of 800,000+ records, and I need the entire table, but it only loads 2048, so my custom app is failing since it can't access all records.  I try the >| button in the attribute table and then all rows show up, but if I close the table and reopen I'm back to 2048... Very frustrating! What interfaces are you accessing?  Cursors on the underlying Feature Layer or Standalone Table should not be affected by this, but accessing the TableView object would be.  You can get feature selections without the tableview using IFeatureSelection.  Haven't looked to see if there is a similar interface for Standalone Tables.  How are you interacting with the TableView in you app?  There should be a way to bypass the behavior in code, but it may not be straight forward. ... View more

Unfortunately my last post did not work as I expected.  I tried it out on feature class in a network directory where I was not granted write permissions, just read, read and execute, and list directory permissions.  The code above returned that the workspace was not Read Only and that it Can Be Edited.  However, when it tried to start an edit session it threw an error as I expected.  I also looked at .Net code to directly check the directory permissions, but it is reporting the same thing.  But the attempt to start the editor in ArcMap manually brings up a report that the layer cannot be edited prior to starting the edit session.  So somehow the programmers for ArcMap have figured out what the real settings are, I just have not figured out what interfaces and methods they are using. I have an incident open with Esri to try to get some help.  Any ideas from anyone who has done this out there? ... View more

Here is another part of the answer to my first question.  To test workspaces if they are Read Only or if they can be edited use the IWorkspaceProperties and IWorkspaceProperty interfaces.  Below is a code sample of how to use these interfaces:         ' Assume workspace is a variable containing a valid IWorkspace instance from a Layer.         Dim workspaceProperties As IWorkspaceProperties = TryCast(workspace, IWorkspaceProperties)         If workspaceProperties Is Nothing Then           Throw New ArgumentException("Workspace does not implement IWorkspaceProperties.")         End If         Dim workspaceProperty As IWorkspaceProperty = workspaceProperties.Property _                                                       (esriWorkspacePropertyGroupType.esriWorkspacePropertyGroup, _                                                       CInt(esriWorkspacePropertyType.esriWorkspacePropIsReadonly))         ' See if the property is supported.         If workspaceProperty.IsSupported Then           ' Get the property value.           Dim bReadOnly As Boolean = CType(workspaceProperty.PropertyValue, Boolean)           If bReadOnly Then             MsgBox("The Workspace of this Layer is Read Only!" & vbCrLf & "You Cannot Edit This Layer!", MsgBoxStyle.Exclamation, "Read Only Workspace!")             workspaceProperty = Nothing             workspaceProperties = Nothing             workspace = Nothing             Exit Sub           End If         End If         workspaceProperty = workspaceProperties.Property _                                                       (esriWorkspacePropertyGroupType.esriWorkspacePropertyGroup, _                                                       CInt(esriWorkspacePropertyType.esriWorkspacePropCanEdit))         If workspaceProperty.IsSupported Then           ' Get the property value.           Dim bCanEdit As Boolean = CType(workspaceProperty.PropertyValue, Boolean)           If Not bCanEdit Then             MsgBox("The Workspace of this Layer Cannot be Edited!" & vbCrLf & "You Cannot Edit This Layer!", MsgBoxStyle.Exclamation, "Cannot Edit Workspace!")             workspaceProperty = Nothing             workspaceProperties = Nothing             workspace = Nothing             Exit Sub           End If         End If ... View more