nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

simulate a double click to turn on Sketch Edit mode

DanNguyen

Does anyone know how to simulate a double click in VB to turn on Sketch Edit mode programmatically?

Thanks in advance for your help.

Trouver plus de publications taguées avec

Accepted answers

All comments

RayanthaRathnayake

Hi i also interested in this tool,
but let me know how to identify when click on the map

JamesCrandall

yes, something is not set correctly. I was stepping through the codes and that is where it stops. I had this piece of code and it works this morning. Anyway, I'll let you know.

Thanks!

I simply don't remember how to get the application in VBA. Here are some links, and do a search on ThisDocument:

http://forums.esri.com/thread.asp?t=214268&f=987&c=93
http://edndoc.esri.com/arcobjects/8.3/Samples/Editing/Edit%20Tools/Polygon%20Capturing%20Tool/clsPolytrace.htm

I honestly can't remember, but something like:

  Dim pMXDoc As IMxDocument
  Dim pMap As IMap
  Dim pID As New UID

  ' QI for IMXDocument
  Set pMXDoc = ThisDocument
  
  'QI for the Editor
  pID.Value = "esriCore.Editor"

  Set pEditor = Application.FindExtensionByCLSID(pID)

DanNguyen

yes, something is not set correctly. I was stepping through the codes and that is where it stops. I had this piece of code and it works this morning. Anyway, I'll let you know.

Thanks!

JamesCrandall

Hi James,

I keep getting a run time error @ 'pEditor.StartOperation' in startEditing routine and I am not sure why. Any idea?

I'm still trying to figure it out.

Dan.

First I'd check to make sure you are setting the correct layer. I had added this to the code, expecting you to change the name of the layer to your own:

If pGeoFeatureLayer.Name = "The Name of The Layer you Want to Edit Goes Here" Then <--this should changed to your layer

Next, I'd make certain that the map reference is correctly set (I think you said you are working in VBA environment, which will have differences from the code I posted). Mainly you need to make sure pEditor is getting set:

Private Sub GetEditorReference()
        Dim pID As ESRI.ArcGIS.esriSystem.UID
        pID = New ESRI.ArcGIS.esriSystem.UID
        pID.Value = "esriCore.Editor"

        pEditor = m_pApp.FindExtensionByCLSID(pID)
 End Sub

If not, then you need to correctly set it (I cannot remember how to do it in VBA, something to do with the ThisDocument maybe).

Next, I'd step thru the code and see what else is not getting set. If .StartOperation is failing then something has not properly been implemented.

DanNguyen

Hi James,

I keep getting a run time error @ 'pEditor.StartOperation' in startEditing routine and I am not sure why. Any idea?

I'm still trying to figure it out.

Dan.

JamesCrandall

Hi James,

I tried to compile to code. There is an error saying 'GetEditTaskByName' not defined. Any idea?

Sorry, I did not inlclude that. Just add this to your class/app:

Public Function GetEditTaskByName(ByRef pEditor As ESRI.ArcGIS.Editor.IEditor, ByRef strEditTaskName As String) As ESRI.ArcGIS.Editor.IEditTask
        Dim i As Integer
        For i = 0 To pEditor.TaskCount - 1
            If UCase(pEditor.Task(i).Name) = UCase(strEditTaskName) Then
                GetEditTaskByName = pEditor.Task(i)
                Exit For
            End If
        Next i

    End Function

DanNguyen

Hi James,

I tried to compile to code. There is an error saying 'GetEditTaskByName' not defined. Any idea?

DanNguyen

I am going to try .... I'll let you know. Thanks!

JamesCrandall

Hi James,

I think here is the sequence of what needed to happen for my code:

1. Select the line feature - I got this
2. Retrieve the selected feature's geometry and pass it to EditSketch - not yet
3. Add/Insert my X,Y Coordinates into its geometry - know how to do

So, I guess I need to work on the codes for step 2. Do you happen to have this code?

Thanks!

Did you make the change I suggested? Instead of the "Create new feature" task, change this to "Modify Feature". This would do as you wanted: show the verticies of the selected features. So, wherever you are invoking the Start Editing method in your application is where you'd specify the task type... In my example, I am invoking this process in the click event of a button control that I've added:

Private Sub btnDrawTarget_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDrawTarget.Click
           Dim pEditTask As ESRI.ArcGIS.Editor.IEditTask
            GetEditorReference()
            startEditing(pEditor)
            If m_flag2 = True Then
                SetEvents()
                pEditTask = GetEditTaskByName(pEditor, "Modify Feature") '<-------change this From "Create New Features"
                pEditor.CurrentTask = pEditTask
            End If
End Sub

I really have no idea what exactly is "passing geometery to the edit sketch".

DanNguyen

Hi James,

I think here is the sequence of what needed to happen for my code:

1. Select the line feature - I got this
2. Retrieve the selected feature's geometry and pass it to EditSketch - not yet
3. Add/Insert my X,Y Coordinates into its geometry - know how to do

So, I guess I need to work on the codes for step 2. Do you happen to have this code?

Thanks!

JamesCrandall

This code will only select it as a normal select. I try this already. It doesn't get me into Edit Sketch mode where I would see all the existing vertices of the polylines.

Try changing the EditTask to Modify instead of Create:

Change this:
pEditTask = GetEditTaskByName(pEditor, "Create New Feature")

To This:
pEditTask = GetEditTaskByName(pEditor, "Modify Feature")

Tim_McGinnes_0-1624629834311.png

DanNguyen

This code will only select it as a normal select. I try this already. It doesn't get me into Edit Sketch mode where I would see all the existing vertices of the polylines.

JamesCrandall

Yes, you're right! 🙂 I want to create vertex by adding it to the polyline feature's geometry (Edit Sketch Property table).
I figure out how to insert it but it only works if I have already double click on the line to select it in ArcMap. I want codes to double click to select instead.

Where is a good place that you usually search beside ArcGIS Developer page?

Thanks for all the help, James.

Edit: Rather you should search for ITopologicalOperator

http://forums.esri.com/Thread.asp?c=93&f=993&t=103162

DanNguyen

Yes, you're right! 🙂 I want to create vertex by adding it to the polyline feature's geometry (Edit Sketch Property table).
I figure out how to insert it but it only works if I have already double click on the line to select it in ArcMap. I want codes to double click to select instead.

Where is a good place that you usually search beside ArcGIS Developer page?

Thanks for all the help, James.

JamesCrandall

what do you mean by "and wait for user to add feature"?

If you manually start an edit session and have the task set to "Create New Feature", ArcMap will be in a state that is waiting for the user to click in the map display to add new features.

JamesCrandall

I want the codes to go through the polyline layer and for each polyline, insert a vertex at its corresponding X,Y in the point layer.

Now we are getting pretty far away from what you orignially posted what you wanted --- I thought you wanted to invoke an edit session and allow the user to add features via "Create New Features". That's what the code I posted does.

...Now it seems that you'd like to generate verticies at the intersection points of the polyline layer, which is pretty different than what I thought you needed per your first post.

I don't have any examples of what you want and would have to hunt around for something. Do a search for creating verticies at intersections.

DanNguyen

James,
what do you mean by "and wait for user to add feature"? (BTW, I'm rather new to ArcGIS programming)

I forgot to mention that the X,Y coordinates are in a point layer and they are related to the polyines by OBJECT_ID.

I want the codes to go through the polyline layer and for each polyline, insert a vertex at its corresponding X,Y in the point layer.

Does your codes wait for user interactions?

Thanks,

Dan.

JamesCrandall

Hi James,

That is OK if you can't help anymore.

Just so you know ... I have a layer of polylines and for each of these polyline, I want to insert a vertex on it (besides its existing vertices) at a known X,Y coordinates. I got most everything figured out except how to turn on its Edit Sketch Properties. Manually, when you double click on a polyline you would see all its vertices. And I want to do this via the codes.

I know VB 6, VB.Net and C also. So if you have the codes in these languages, that will work too.

Thanks, James.

But Dan, the code I posted above will do that. It starts an edit session, sets the target layer, and waits for the user to add features.

DanNguyen

Hi James,

That is OK if you can't help anymore.

Just so you know ... I have a layer of polylines and for each of these polyline, I want to insert a vertex on it (besides its existing vertices) at a known X,Y coordinates. I got most everything figured out except how to turn on its Edit Sketch Properties. Manually, when you double click on a polyline you would see all its vertices. And I want to do this via the codes.

I know VB 6, VB.Net and C also. So if you have the codes in these languages, that will work too.

Thanks, James.

JamesCrandall

Hi James,

Thanks for replying.
I got the code to turn on the Editor and select the line segment I want but Edit Sketch doesn't know its geometry. For Edit Sketch to know about its geometry I have to double clik on the line segment manually and I want to program the double click because I have a list of line segments that I want to go through and edit.

Thanks!

Hmm.. I'm not exactly sure what you are trying to accomplish. Also, you are not going to be able to alter how the existing built in tools of ArcMap actually behave because it's compiled. Your best bet might be in setting up an Event listener to a double-click event that occurs in the ActiveView maybe?

Not sure --- my VBA is all tucked away and rarely do I even access it because the .mxd's take so long to open (because they have layers from old SDE db's! 😄 )

Sorry I couldn't be of more help.

DanNguyen

James,

It is VBA.

Dan.

JamesCrandall

dan,

What programming environment are you working in? VBA, VB6, VB.NET?

DanNguyen

Hi James,

Thanks for replying.
I got the code to turn on the Editor and select the line segment I want but Edit Sketch doesn't know its geometry. For Edit Sketch to know about its geometry I have to double clik on the line segment manually and I want to program the double click because I have a list of line segments that I want to go through and edit.

Thanks!

JamesCrandall

Does anyone know how to simulate a double click in VB to turn on Sketch Edit mode programmatically?

Thanks in advance for your help.

Not real sure where you'd get the double-click event at, but in order to invoke the Edit Sketch you will have to start an edit session and specify the target layer you want to create/modify...

VB.NET:

'This ex shows a button on a ToolBar I've created

Private Sub btnDrawTarget_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDrawTarget.Click
           Dim pEditTask As ESRI.ArcGIS.Editor.IEditTask
            GetEditorReference()
            startEditing(pEditor)
            If m_flag2 = True Then
                SetEvents()
                pEditTask = GetEditTaskByName(pEditor, "Create New Feature")
                pEditor.CurrentTask = pEditTask
            End If
End Sub

Private Sub GetEditorReference()
        Dim pID As ESRI.ArcGIS.esriSystem.UID
        pID = New ESRI.ArcGIS.esriSystem.UID
        pID.Value = "esriCore.Editor"

        pEditor = m_pApp.FindExtensionByCLSID(pID)
 End Sub

Private Sub SetEvents()
        'set the current tool to be the editor Sketch tool
        Dim pCommandItem As ESRI.ArcGIS.Framework.ICommandItem
        Dim pUID As New ESRI.ArcGIS.esriSystem.UID

        pUID.value = "esriCore.SketchTool"

        pCommandItem = m_pApp.Document.CommandBars.Find(pUID)
        m_pApp.CurrentTool = pCommandItem
        m_pEditEvents = pEditor
End Sub

Private Sub startEditing(ByRef pEditor As ESRI.ArcGIS.Editor.IEditor)

        Try

            Dim pMxDoc As ESRI.ArcGIS.ArcMapUI.IMxDocument
            Dim pMap As ESRI.ArcGIS.Carto.IMap
            Dim pfeaturelayer As ESRI.ArcGIS.Carto.IFeatureLayer
            Dim pDataset As ESRI.ArcGIS.Geodatabase.IDataset
            Dim pEditLayers As ESRI.ArcGIS.Editor.IEditLayers
            Dim msg As Object

            pMxDoc = m_pApp.Document
            pMap = pMxDoc.FocusMap
            pEditLayers = pEditor
 
'Check to see if proper dataset is loaded before editing, if so, then edit
            Dim i, idx As Integer
            Dim pGeoFeatureLayer As ESRI.ArcGIS.Carto.IGeoFeatureLayer
            m_flag2 = False
            For i = 0 To pMxDoc.FocusMap.LayerCount - 1
                If (TypeOf pMxDoc.FocusMap.Layer(i) Is ESRI.ArcGIS.Carto.IGeoFeatureLayer) Then
                    pGeoFeatureLayer = pMxDoc.FocusMap.Layer(i)
                    If pGeoFeatureLayer.Name = "The Name of The Layer you Want to Edit Goes Here" Then
                        m_flag2 = True
                        idx = i
                        Exit For
                    End If
                End If
            Next i

            If m_flag2 = True Then
                pfeaturelayer = pMap.Layer(idx)
                pDataset = pfeaturelayer.FeatureClass

                pEditor.StartEditing(pDataset.Workspace)
                pEditor.StartOperation()
                pEditLayers.SetCurrentLayer(pfeaturelayer, 0)
            End If

        Catch ex As Exception
            MsgBox(ex.ToString)
            Exit Sub
        End Try

    End Sub

Rejoindre la conversation

Les membres connectés peuvent publier, suivre les mises à jour, et plus encore. Nouveau ici ? Inscrivez-vous gratuitement.

Liens rapides

Community Help
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.