How I can get object of the map document when I click on it?

AnatoliiTerentiev

How I can in arcgis Engine get the object on wich I click ?
How I can get X,Y coordinates of that object (using shape field?)?
Thanks for any advice or reference!

TomGiles

How I can in arcgis Engine get the object on wich I click ?
How I can get X,Y coordinates of that object (using shape field?)?
Thanks for any advice or reference!

Hi, this might not be perfect, but may be a start for you.  The first function gets the selected feature (only one allowed) and stores it in pFeat. The second function is passed pFeat, and calculates decimal degrees. You can see in the second function that I have set the coord system to use, so you could report the coordinates of To and From points (starting and ending points) in any units you wish. The working coordinate system for this project is always an UTM zone (PCS). Thanks goes out to Neil C. for a previous post that helped me with this!

I apologize, there is no indenting.

Cheers



Public Function Form_Initialize(ByVal m_application As ESRI.ArcGIS.Framework.IApplication) As Boolean
        'MsgBox("Form_Initialize Outside of the try statement")

        Try
            'MsgBox("Form_Initialize Function Inside of the try statement")

            pMxDoc = m_application.Document

            Dim pMap As IMap
            pMap = pMxDoc.FocusMap

            ' Get the selected layer
            Dim pLayer As IGeoFeatureLayer
            pLayer = pMxDoc.SelectedLayer


            ' Make sure a layer was selected
            If pLayer Is Nothing Then
                MsgBox("You must select a Layer to Attribute")
                Close()
                Exit Function
            End If

            ' Get the feature class to get the correct
            ' oid field name for the data type (oid,fid,objectid)
            'Dim pFc As IFeatureClass 'declared up top
            Dim strOIDName As String
            pFc = pLayer.FeatureClass
            strOIDName = pFc.OIDFieldName

            ' Get the selected features from the layer
            Dim pFSel As IFeatureSelection
            pFSel = pLayer
            Dim pSelSet As ISelectionSet
            pSelSet = pFSel.SelectionSet
            'Dim pFCur As IFeatureCursor 'declared up top
            pSelSet.Search(Nothing, False, pFCur)


            ' ensure only 1 feature selected
            If Not pSelSet.Count = 1 Then
                MsgBox("You must select one and only one feature.")
                Close() 'Exit Function
            Else
                'setup the combo boxes
                fillComboBoxes()
                pFeat = pFCur.NextFeature
                loadSegment(pFeat)

            End If

        Catch ex As Exception
            MsgBox("Exception in Form_Initialize")
            System.Windows.Forms.MessageBox.Show(ex, "Initialize")
            Return False
        End Try
    End Function





Private Sub getLatLong(ByVal pLineF As ESRI.ArcGIS.Geodatabase.IFeature)
        'MsgBox("Function: getLatLong()")

        'MsgBox("pLineF (passed) is of type: " + pLineF.Shape.GeometryType.ToString)
        If Not (pLineF.Shape.GeometryType = esriGeometryType.esriGeometryPolyline) Then
            MsgBox("Geometry type is not as expected. Select a single polyline segment.")
            Exit Sub
        End If

        'otherwise continue with polyline...

        'not used - bounding box of selected line segment
        'Dim anExtent As IEnvelope
        'anExtent = pLineF.Shape.Envelope
        'MsgBox("Bounding box: YMax:" + anExtent.YMax.ToString + " YMin: " + anExtent.YMin.ToString)


        Try
            Dim pPL As IPolyline
            pPL = pLineF.ShapeCopy 'QI

            'not directly used - start and end points of selected line segment
            'MsgBox("Selected IPolyline has From Point: X: " + pPL.FromPoint.X.ToString + " Y: " + pPL.FromPoint.Y.ToString)
            'MsgBox("                   and   To Point: X: " + pPL.ToPoint.X.ToString + " Y: " + pPL.ToPoint.Y.ToString)

            Dim pFromPoint As IPoint
            Dim pToPoint As IPoint

            pFromPoint = pPL.FromPoint
            pToPoint = pPL.ToPoint

            Dim pFromGeometry As IGeometry
            Dim pToGeometry As IGeometry
            pFromGeometry = pFromPoint 'QI
            pToGeometry = pToPoint 'QI

            Dim pSpatialReferenceFactory As ISpatialReferenceFactory
            Dim pSpatialRef As ISpatialReference

            pSpatialReferenceFactory = New SpatialReferenceEnvironment

            Dim pGeographicCoordinateSys As GeographicCoordinateSystem
            pGeographicCoordinateSys = pSpatialReferenceFactory.CreateGeographicCoordinateSystem(esriSRGeoCSType.esriSRGeoCS_WGS1984)

            pSpatialRef = pGeographicCoordinateSys 'QI
            pSpatialRef.SetFalseOriginAndUnits(-180, -90, 1000000)

            pFromGeometry.Project(pSpatialRef)
            pToGeometry.Project(pSpatialRef)

            MsgBox("Line segment spans from: " + pFromPoint.X.ToString + ", " + pFromPoint.Y.ToString + " Decimal Degrees To: " + pToPoint.X.ToString + ", " + pToPoint.Y.ToString + " Decimal Degrees")

        Catch ex As Exception
            MsgBox("Exception in getLatLong()")
        End Try


    End Sub