Latest Contributions by shawnstanley

I'm afraid I don't understand what's going on on those pages Duncan enough to understand how to apply it to my situation. ... View more

pUID is referencing the ClassID of the tool itself.    pUID.Value = "{" & SelectPoint1.ClassId & "}"   SelectPoint1 or SelectPoint2 are the two tools being referenced.   The full code of point of those two tools is here, it's SelectPoint1.  As noted above, the other tool is the same, it just writes to a different part of the form.   Imports System.Runtime.InteropServices Imports System.Drawing Imports ESRI.ArcGIS.ADF.BaseClasses Imports ESRI.ArcGIS.ADF.CATIDs Imports ESRI.ArcGIS.Framework Imports ESRI.ArcGIS.ArcMapUI Imports System.Windows.Forms Imports System.Windows.Forms.Application Imports ESRI.ArcGIS.ArcScene Imports ESRI.ArcGIS.Analyst3D <ComClass(SelectPoint1.ClassId, SelectPoint1.InterfaceId, SelectPoint1.EventsId), _ ProgId("NAME.SelectPoint1")> _ Public NotInheritable Class SelectPoint1 Inherits BaseTool #Region "COM Registration Function(s)" <ComRegisterFunction(), ComVisibleAttribute(False)> _ Public Shared Sub RegisterFunction(ByVal registerType As Type) ' Required for ArcGIS Component Category Registrar support ArcGISCategoryRegistration(registerType) 'Add any COM registration code after the ArcGISCategoryRegistration() call End Sub <ComUnregisterFunction(), ComVisibleAttribute(False)> _ Public Shared Sub UnregisterFunction(ByVal registerType As Type) ' Required for ArcGIS Component Category Registrar support ArcGISCategoryUnregistration(registerType) 'Add any COM unregistration code after the ArcGISCategoryUnregistration() call End Sub #Region "ArcGIS Component Category Registrar generated code" ''' <summary> ''' Required method for ArcGIS Component Category registration - ''' Do not modify the contents of this method with the code editor. ''' </summary> Private Shared Sub ArcGISCategoryRegistration(ByVal registerType As Type) Dim regKey As String = String.Format("HKEY_CLASSES_ROOT\CLSID\{{{0}}}", registerType.GUID) MxCommands.Register(regKey) End Sub ''' <summary> ''' Required method for ArcGIS Component Category unregistration - ''' Do not modify the contents of this method with the code editor. ''' </summary> Private Shared Sub ArcGISCategoryUnregistration(ByVal registerType As Type) Dim regKey As String = String.Format("HKEY_CLASSES_ROOT\CLSID\{{{0}}}", registerType.GUID) MxCommands.Unregister(regKey) End Sub #End Region #End Region #Region "COM GUIDs" ' These GUIDs provide the COM identity for this class ' and its COM interfaces. If you change them, existing ' clients will no longer be able to access the class. Public Const ClassId As String = "a38b65c3-255c-4578-ab06-2e00c59efa2d" Public Const InterfaceId As String = "042a7209-0920-4531-95be-9bcbb0f4a64d" Public Const EventsId As String = "c94af36c-0e76-43ad-96ad-28d77b008c17" #End Region Private m_application As IApplication ' A creatable COM class must have a Public Sub New() ' with no parameters, otherwise, the class will not be ' registered in the COM registry and cannot be created ' via CreateObject. Public Sub New() MyBase.New() MyBase.m_category = Work tools" MyBase.m_caption = "Select Point" MyBase.m_message = "Select Point" MyBase.m_toolTip = "Select Point1" MyBase.m_name = "SelectPoint1" Try Dim bitmapResourceName As String = Me.GetType().Name + ".bmp" MyBase.m_bitmap = New Bitmap(Me.GetType(), bitmapResourceName) MyBase.m_cursor = New System.Windows.Forms.Cursor(Me.GetType(), Me.GetType().Name + ".cur") Catch ex As Exception System.Diagnostics.Trace.WriteLine(ex.Message, "Invalid Bitmap") End Try End Sub Public Overrides Sub OnCreate(ByVal hook As Object) If Not hook Is Nothing Then m_application = CType(hook, IApplication) 'Disable if it is not ArcMap or ArcScene If TypeOf hook Is IMxApplication Or TypeOf hook Is ESRI.ArcGIS.ArcScene.ISxApplication Then MyBase.m_enabled = True Else MyBase.m_enabled = False End If End If ' TODO: Add other initialization code End Sub Public Overrides Sub OnClick() 'TODO: Add SelectPoint1.OnClick implementation End Sub Public Overrides Sub OnMouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Integer, ByVal Y As Integer) Dim pPoint As ESRI.ArcGIS.Geometry.IPoint = Nothing Dim pFeatures As Collection = Nothing Dim pFeature As ESRI.ArcGIS.Geodatabase.IFeature = Nothing If TypeOf m_pApp Is ESRI.ArcGIS.ArcMapUI.IMxApplication Then ' If the tool applies to an active view make sure the right map is showing pPoint = m_pActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(X, Y) Dim pMap As ESRI.ArcGIS.Carto.IMap pMap = m_pActiveView.HitTestMap(pPoint) If pMap Is Nothing Then Exit Sub If Not pMap Is m_pActiveView.FocusMap Then m_pActiveView.FocusMap = pMap m_pActiveView.PartialRefresh(ESRI.ArcGIS.Carto.esriViewDrawPhase.esriViewGraphics, Nothing, Nothing) End If NAME.GetClosestFeature((m_pActiveView.FocusMap), pPoint, pFeatures, pFeature) ElseIf TypeOf m_pApp Is ESRI.ArcGIS.ArcScene.ISxApplication Then Dim pSxDoc As ESRI.ArcGIS.ArcScene.ISxDocument pSxDoc = m_pApp.Document Dim pScene As IScene pScene = pSxDoc.Scene Dim pSG As ESRI.ArcGIS.Analyst3D.ISceneGraph pSG = pScene.SceneGraph Dim pOwner As stdole.IUnknown = Nothing Dim pObject As stdole.IUnknown = Nothing pSG.Locate(pSG.ActiveViewer, X, Y, ESRI.ArcGIS.Analyst3D.esriScenePickMode.esriScenePickGeography, True, pPoint, pOwner, pObject) If (pPoint Is Nothing) Then Beep() Exit Sub End If NAME.GetClosestSceneFeature(pScene, pPoint, pFeatures, pFeature) End If Dim SelectDistanceForm As frmSelectDistance If OpenForms.Item("frmSelectDistance") IsNot Nothing Then 'exists SelectDistanceForm = OpenForms.Item("frmSelectDistance") Else SelectDistanceForm = Nothing 'not exists End If If (pFeature Is Nothing) Then SelectDistanceForm.txtLatitude1.Text = "" SelectDistanceForm.txtLongitude1.Text = "" Exit Sub End If Dim lngField As Integer lngField = pFeature.Fields.FindField(SelectDistanceForm.cbxLatitude.Text) SelectDistanceForm.txtLatitude1.Text = CStr(pFeature.Value(lngField)) lngField = pFeature.Fields.FindField(SelectDistanceForm.cbxLongitude.Text) SelectDistanceForm.txtLongitude1.Text = CStr(pFeature.Value(lngField)) End Sub Public Overrides Sub OnMouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Integer, ByVal Y As Integer) 'TODO: Add SelectPoint1.OnMouseMove implementation End Sub Public Overrides Sub OnMouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Integer, ByVal Y As Integer) 'TODO: Add SelectPoint1.OnMouseUp implementation End Sub End Class ... View more

hey Weifang Thanks very much, that worked.  I didn't think to try doing it that way at all.  That's so simple, and so elegant - exactly what I was hoping for. cheers shawn ... View more

hello Neil I am creating some data as part of a process in VB.NET and then I want to add that data to an existing shapefile.  I didn't think that the actual particulars of what I was doing was relevant to the underlying question that I had and didn't want to obscure my question. Thanks for the link, although my reading of it is that it can support precision and scale.  This also supports my recollection that my script used to add the field with precision and scale values in the past. Although we don't have earlier versions of ArcGIS installed here at work we do have ArcView 3.3 still working.  So I tested in that the addition of a field with precision and scale values to a shapefile.  The shapefile when opened in ArcGIS 10.4.1 reports the precision and scale correctly. When I tried to add a new field directly through the table interface in ArcMap it did not create the field with precision and scale values. regards shawn ... View more

When Visual Studio compiles your ESRI components, it registers them in the ESRI component categories.  In order to do this, it must have write access to the system registry.  You have a couple of options - run Visual Studio as an administrator every time you start it up or turn off UAC on your machine.  If you're registering your component via Add from File on the Customize dialog in ArcMap (not the optimal way of doing it if you're actively developing) then ArcMap must be running as an administrator (or turn off UAC).  This will not impact your users.  When your application is deployed, the Windows installer will kick off the registration.  Of course, it must be running with elevated privileges but that is standard.  Installing software is a task that should only be performed by an administrator. The only way around all of this is to rewrite your application as an addin.  Addins do not require admin privileges to deploy. hello Neil and Agray1 It wasn't the running of Visual Studio as an administrator, or installing the extension as an administrator which was a problem.  As the UAC policy is controlled centrally here I don't have any ability to control that.  What the problem was, and my apologies for not being clear, is that a tool in the extension which brought up a window and allowed a number of things to be done.  One of those things calls another tool (the second tool is not visible in the tool bar).  This second tool was not working.  I tried adding it to the extensions toolbar - and it worked.  I tried running ArcGIS with administrator rights (when the second tool was not in the extensions toolbar - and it worked). Neither of these were acceptable. This morning I looked back at the setup project and then started comparing it to what it should look like - Neil, your comment in another thread make me think about this option http://help.arcgis.com/en/sdk/10.0/arcobjects_net/conceptualhelp/index.html#/How_to_deploy_a_custom_component_using_a_setup_project/00010000016r000000/ For some reason I had stopped before the Registering the CustomComponent .dll file using ESRIRegAsm.exe step of the process.  So I did this step of the process. And now it works. cheers shawn ... View more

I finally figured out what the problem was.  Unfortunately, I was doing everything properly with regard to registration of tool being accessed. After going back, and forth, and back and forth again I noticed in the code generated code on the tool the following:         Dim regKey As String = String.Format("HKEY_CLASSES_ROOT\CLSID\{{{0}}}", registerType.GUID)         MxCommands.Register(regKey) most particularly I noticed the word Register One of the new things about our organisations move to Windows 7 has been greater security restrictions set on the computers. If I run ArcGIS with administrator privileges, then everything runs OK.  The tool is now registered and can be accessed from another tool. Is there anything I can do to get around this?  Note, that running ArcGIS with administrator privileges is not an option for all of the intended users of the extension. cheers shawn ... View more

If your Command/Tool does not have any registration code and you are manually "Add From File" via the Customize dialog, then try to add the type library (.tbl) file instead of the .dll file. http://help.arcgis.com/en/sdk/10.0/arcobjects_net/conceptualhelp/index.html#//00010000040v000000 thanks James, that worked perfectly ... will worry about proper deployment of the whole thing once I've reached that stage ... ... View more