Latest Contributions by RuchiraWelikala

Hi All, The code belows is the OnClick procedure for one of the custom tools I'm making.  The problem is, when the initial tool is activated, I want it to check if the appropriate features are selected.  If it isn't selected, I want the Select Features tool in ArcMap to activate so the user can select the specific feature.  I get an error "m_application.CurrentTool = pCommand". If anyone has an advice for me, that'd be greatly appreciated. Thanks     Public Overrides Sub OnClick()         Try                        'TODO: Add ClipTool.OnClick implementation             Dim pMap As IMxDocument = GetMxDocumentFromArcMap(m_application)             Dim pFeatLayer As IFeatureLayer = pMap.SelectedLayer             Dim pFeatSelection As IFeatureSelection = pFeatLayer             Dim pSelSet As ISelectionSet             pSelSet = pFeatSelection.SelectionSet             If pSelSet.Count = 0 Then                 MsgBox("Please make a selection")                 Dim pCommand As ICommand                 pCommand = New ControlsSelectFeaturesToolClass ' The selectfeatures tool                 pCommand.OnCreate(m_application)                 If pCommand.Enabled = True Then                     m_application.CurrentTool = pCommand                 End If                 Exit Sub             End If             Call CreateWindow(GetMxDocumentFromArcMap(m_application))         Catch ex As Exception             MsgBox(ex.Message)         End Try     End Sub ... View more

Hi All, Just curious to see if anyone else has run into this problem.  I've created many forms with many textboxes and other controls which deploy perfectly in ArcMap (using VB.NET).  However, it won't let me tab through the controls on any particular form.  Is this some kind of bug in ArcMap with .NET or is it just me?  My other forms (Developed in VBA) Tab perfectly, but the issue seems to lie with the ones created in .NET. Any info on this would be helpful.  Thanks ... View more

Hi All, Creating a polygon split tool.  The code below is incomplete but I've hit a snag.  How would I extend the polylines I've created below by a given length? I want to use these polylines to cut the polygon which I'm defining using the User provided points. Any help would be appreciated. Thanks     Public Sub ClipTool(ByVal p0X As Double, ByVal p0Y As Double, ByVal p1X As Double, _                         ByVal p1Y As Double, ByVal p2X As Double, ByVal p2Y As Double, _                         ByVal p3X As Double, ByVal p3Y As Double)         ' 1.  Create 4 points from teh coordinates input         Dim pPoint0 As IPoint = New Point         Dim pPoint1 As IPoint = New Point         Dim pPoint2 As IPoint = New Point         Dim pPoint3 As IPoint = New Point         pPoint0.X = p0X         pPoint0.Y = p0Y         pPoint1.X = p1X         pPoint1.Y = p1Y         pPoint2.X = p2X         pPoint2.Y = p2Y         pPoint3.X = p3X         pPoint3.Y = p3Y         Dim pPointCollection As IPointCollection         pPointCollection.AddPoint(pPoint0)         pPointCollection.AddPoint(pPoint1)         pPointCollection.AddPoint(pPoint2)         pPointCollection.AddPoint(pPoint3)         ' 2.  Create 4 polylines representing the outline of the lot from the 4 points         Dim pPLine0 As IPolyline = New Polyline         Dim pPLine1 As IPolyline = New Polyline         Dim pPLine2 As IPolyline = New Polyline         Dim pPLine3 As IPolyline = New Polyline         pPLine0.FromPoint = pPoint0         pPLine0.ToPoint = pPoint1         pPLine1.FromPoint = pPoint1         pPLine1.ToPoint = pPoint2         pPLine2.FromPoint = pPoint2         pPLine2.ToPoint = pPoint3         pPLine3.FromPoint = pPoint3         pPLine3.ToPoint = pPLine0         ' 3.  Locate the point halfway along the top and bottom polylines         ' This is done using the ratio (in this case. 0.5)         Dim TopMidPoint As IPoint = New Point         Dim BotMidPoint As IPoint = New Point         pPLine0.QueryPoint(esriSegmentExtension.esriNoExtension, 0.5, True, TopMidPoint)         pPLine2.QueryPoint(esriSegmentExtension.esriNoExtension, 0.5, True, BotMidPoint)         ' 4.  Locate the points 1/4, 1/2, and 3/4 along each side polyline.          ' This is done using the ratio (in this case 0.25, 0.50, 0.75).         Dim Right25Point As IPoint = New Point         Dim Right50Point As IPoint = New Point         Dim Right75Point As IPoint = New Point         Dim Left25Point As IPoint = New Point         Dim Left50Point As IPoint = New Point         Dim Left75Point As IPoint = New Point         pPLine1.QueryPoint(esriSegmentExtension.esriNoExtension, 0.25, True, Right25Point)         pPLine1.QueryPoint(esriSegmentExtension.esriNoExtension, 0.5, True, Right50Point)         pPLine1.QueryPoint(esriSegmentExtension.esriNoExtension, 0.75, True, Right75Point)         pPLine3.QueryPoint(esriSegmentExtension.esriNoExtension, 0.25, True, Left25Point)         pPLine3.QueryPoint(esriSegmentExtension.esriNoExtension, 0.5, True, Left50Point)         pPLine3.QueryPoint(esriSegmentExtension.esriNoExtension, 0.75, True, Left75Point)         ' 5.  Create a polyline from the points in step 3 cutting the geometry in half.         ' Also create 3 polylines from teh points in 4 for cutting the geometry in quarters.         Dim pLineCutTopBot As IPolyline = New Polyline         Dim pLine25Cut As IPolyline = New Polyline         Dim pLine50Cut As IPolyline = New Polyline         Dim pLine75Cut As IPolyline = New Polyline         pLine25Cut.FromPoint = Right25Point         pLine25Cut.ToPoint = Left25Point         pLine50Cut.FromPoint = Right50Point         pLine50Cut.ToPoint = Left50Point         pLine75Cut.FromPoint = Right75Point         pLine75Cut.ToPoint = Left75Point     End Sub ... View more