Latest Contributions by KevinOrcutt

Hey Leo,     Thanks, that did it!!! From there i was able to get what I needed to center the form!!! Thanks again, Kevin Orcutt ... View more

Hello Leo, getting there, but not quite, sorry.  I figured that I would have to do something along those lines, but getting the application height and width among other things are escaping my grasp...  The KEY thing that I'm trying to get is the application's location on the desktop.  That way I can place the form over it when it comes up.  As mentioned, this is particular to when ArcMap is on the second monitor or beyond.  I want the form to appear over ArcMap, not back on the first monitor.  So the location is Key... Any other ideas??? Kevin O. ... View more

Yes, there is an "OnClick" sub for a tool. if you use the ArcGIS|Extending ArcObjects|Base Tool template, there will be a provided "OnClick" sub for you to fill out with all of your appropriate code. Hope this helps, Kevin Orcutt GIS Developer/Consultant City of Cincinnati - Cincinnati Area GIS (CAGIS) (513) 850-1335 (cell) Kevin.Orcutt@cincinnati-oh.gov www.cagis.org ... View more

This might be overkill, but here is a quick snapshot with slight modifications of some code that I use to get a centroid of a polygon feature...     Private Function GetPolygonFeatureCentroid(ByVal PolygonFeatureLayer As IFeatureLayer) as IPoint         Dim PolygonFeatureClass As IFeatureClass         PolygonFeatureClass = PolygonFeatureLayer.FeatureClass         Dim PolygonFeatureSelection As IFeatureSelection = PolygonFeatureLayer         Dim PolygonFeatureSelectionSet As ISelectionSet = PolygonFeatureSelection.SelectionSet         Dim PolygonFeatureCursor As IFeatureCursor         Dim newPolygonFeature As IFeature         Dim newPolygonArea As IArea         Dim newPolygonFeatureCentroid As IPoint         Dim queryFilter As IQueryFilter = New QueryFilterClass()         'ToDo: Setup the where clause here to select the feature that you want...  or skip altogether if you already have that feature!         PolygonFeatureFSelectionSet = PolygonFeatureClass.Select(queryFilter, esriSelectionType.esriSelectionTypeSnapshot, esriSelectionOption.esriSelectionOptionNormal, Nothing)         PolygonFeatureCursor = PolygonFeatureClass.Search(queryFilter, False)         If PolygonFeatureFSelectionSet.Count > 0 Then             newPolygonFeature = PolygonFeatureFCursor.NextFeature             newPolygonArea = newPolygonFeature.ShapeCopy             newPolygonFeatureCentroid = TryCast(newPolygonArea.Centroid, IPoint)         End If         Return newPolygonFeatureCentroid     End Function I left out the specific where clause for the query filter used, I figured that you would have that already, or already have the particular feature that you want the centroid of... Hope this helps. Kevin Orcutt GIS Developer/Consultant City of Cincinnati - Cincinnati Area GIS (CAGIS) (513) 850-1335 (cell) Kevin.Orcutt@cincinnati-oh.gov www.cagis.org ... View more

Ok, Do I need to set the spatial filter's geometry to something???  In most cases I'll have two or three street centerline features selected to use in the filter... Kevin ... View more

OK Alexander,    I've followed most of what you've said.  And I have progressed to the point where I need to "Split" the polygon with the selected lines... per your quote: The get all the geometries of the line features, merge them together (union) and split the polygon feature (Ifeatureedit) How does one go about "Splitting" the polygon with this collection of line geometeries...  I have'nt gotten the collection of geometeries yet, but i have a selectionset of the lines, so getting the geometries isn't too hard from what I got so far...  Just NOT sure on the "Splitting" part.. Thanks again in advance, Kevin ... View more

The ArcGIS10 zipper tool has been posted to the code gallery.  See the ReadMe.txt file within the download for instructions.  Zipper Tool Link Hey Sean, Downloaded the file, but there was NO "ReadMe.txt" in it... Any chance that the .Net solution could be posted instead of the final install package??? I'm code curious! Always wanting to look at code! 😄 Thanks in advance, Kevin Orcutt GIS Developer/Consultant City of Cincinnati â?? Cincinnati Area GIS (CAGIS) Kevin.Orcutt@cincinnati-oh.gov (513) 850-1335 (cell) www.cagis.org P.S. Total Side Note: Hey Tony and Carmen... How's Greenville going??? I grew up not too far from you, a little east right down HWY 29... in Taylor!!! Still have Family in the Greenville and Greer areas! Later! ... View more

Howdy All,      First off, Thank you for all of the great responses...  Working through them all, I've come up with a pretty decent solution (It Works!!!)...  Code to follow...  Here is my class for the extension within the solution: Imports ESRI.ArcGIS.ArcMapUI Imports ESRI.ArcGIS.Framework Public Class CycleThrough     Inherits ESRI.ArcGIS.Desktop.AddIns.Extension     Public Sub New()     End Sub     Protected Overrides Sub OnStartup()         WireEvents()     End Sub     Protected Overrides Sub OnShutdown()     End Sub     Private Sub WireEvents()         Dim docEvents As IDocumentEvents_Event         Dim mapStatusEvents As IApplicationStatusEvents_Event         docEvents = TryCast(My.ArcMap.Application.Document, IDocumentEvents_Event)         AddHandler docEvents.NewDocument, AddressOf OnNewDocument         AddHandler docEvents.OpenDocument, AddressOf OnOpenDocument         If TypeOf My.ArcMap.Application.Document.Parent Is IMxApplication Then             mapStatusEvents = TryCast(My.ArcMap.Application.Document.Parent, IApplicationStatusEvents_Event)             AddHandler mapStatusEvents.Initialized, AddressOf OnInitialized         End If     End Sub     Private Sub OnNewDocument()         SetupContext()     End Sub     Private Sub OnOpenDocument()         SetupContext()     End Sub     Private Sub OnInitialized()         SetupContext()     End Sub     Private Sub SetupContext()         Dim contextMenuGUID As New UID         contextMenuGUID.Value = "{BF643199-9062-11D2-AE71-080009EC732A}"         Dim myContextMenu As ICommandBar = My.ArcMap.Application.Document.CommandBars.Find(contextMenuGUID, False, False)         If myContextMenu IsNot Nothing Then             Dim commandGUID As New UID             commandGUID.Value = "LayerCycle_CycleButton"             Dim myCommandItem As ICommandItem = myContextMenu.Find(commandGUID)             If myCommandItem Is Nothing Then                 myCommandItem = myContextMenu.Add(commandGUID, 9) 'the 9 is where I happen to want the button to be, it could be nothing or any other value                 myCommandItem.Refresh()             End If         End If     End Sub End Class Hey as a side note...  I too could NOT find the appropiate UID for the context menu in the 10.0 Docs...  I looked in the ArcObjects site: ArcObjects SDK 10 Microsoft .Net Framework - ArcMap Commands Hey Sean, you might want to mention to someone that that particular page might be missing some items that were in previous versions i.e. the 9.0 page, where Jeff was able to find it... So once again, Thank you All for the responses!!!:cool: :cool:  Kevin Orcutt ... View more