Latest Contributions by ChrisSchmeissner

In the code below btnMapTool is the button on my form I want to launch the Tool. Tool1 is the name of the tool. Hope this helps. Private Sub btnMapTool_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMapTool.Click         Dim pUID As New ESRI.ArcGIS.esriSystem.UID         Dim pCommandItem As ESRI.ArcGIS.Framework.ICommandItem         pUID.Value = My.ThisAddIn.IDs.Tool1         pCommandItem = m_app.Document.CommandBars.Find(pUID, False, False)         m_app.CurrentTool = pCommandItem End Sub '************Below is the top portion of my Tool1 class. Imports ESRI.ArcGIS.esriSystem Imports ESRI.ArcGIS.Geometry Imports ESRI.ArcGIS.Display Imports ESRI.ArcGIS.Carto Imports ESRI.ArcGIS.Geodatabase Imports System.Xml.Linq Imports System.Windows.Forms Imports ESRI.ArcGIS.ArcMapUI Public Class Tool1     Inherits ESRI.ArcGIS.Desktop.AddIns.Tool     Private Shared s_tool As Tool1     Private m_app As ESRI.ArcGIS.Framework.IApplication = ArcMapAddin2.My.ArcMap.Application     Private MxDoc As ESRI.ArcGIS.ArcMapUI.IMxDocument = ArcMapAddin2.My.ArcMap.Document   Public Sub New()         s_tool = Me     End Sub     Friend Shared Function GetTool() As Tool1         If s_tool Is Nothing Then             Dim toolID As UID = New UIDClass()             toolID.Value = ArcMapAddin2.My.IDs.Tool1             ArcMapAddin2.My.ArcMap.Application.FindExtensionByCLSID(toolID)         End If         Return s_tool     End Function   Protected Overrides Sub OnUpdate()     Enabled = My.ArcMap.Application IsNot Nothing     End Sub            Protected Overrides Sub OnMouseDown(ByVal arg As ESRI.ArcGIS.Desktop.AddIns.Tool.MouseEventArgs)         MyBase.OnMouseDown(arg)         'Get the active view from the ArcMap static class.         Dim activeView As IActiveView = My.ArcMap.Document.ActiveView         '****************************************************************************************************         'Get the X, Y coordinate from the point the tool was clicked         Dim point As IPoint         Dim DisplayTransform As IDisplayTransformation         point = New ESRI.ArcGIS.Geometry.Point         DisplayTransform = MxDoc.ActiveView.ScreenDisplay.DisplayTransformation         point = DisplayTransform.ToMapPoint(arg.X, arg.Y)         point.PutCoords(point.X, point.Y)         'MsgBox("x = " & point.X & " y = " & point.Y) '*************More Code for the tool goes here End Sub ... View more

Here's an example of what I have for an add-in that uses a button on a form to start drawing on the map. the tool is named DrawTool         Dim pUID As New ESRI.ArcGIS.esriSystem.UID         Dim pCommandItem As ESRI.ArcGIS.Framework.ICommandItem         pUID.Value = My.ThisAddIn.IDs.DrawTool         pCommandItem = m_application.Document.CommandBars.Find(pUID, False, False)         m_application.CurrentTool = pCommandItem Ken, Fantastic! It worked perfectly. Thanks so much for your help. ... View more

Kevin, Could you please post a snippit of how you would work with the OnActivate method. I have a button and a tool in my add-in. The button opens a form. Within this form a have a button that when clicked, I would like for it to activate the tool. The tool allows me to get the x,y locations from the map and then preform various tasks.  The add-in tool itself work just fine. However I do not know how to call this tool from the form. Thank you. ... View more

Not yet. Still hoping for some help. ... View more