ArcEngine交互画线

代码

Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->Private pMap As IMap
Private pActiveView As IActiveView
Private pGraphicsContainer As IGraphicsContainer 

Private Sub axMapControl1_OnMouseDown(ByVal sender As Object, ByVal e As ESRI.ArcGIS.Controls.IMapControlEvents2_OnMouseDownEvent) Handles axMapControl1.OnMouseDown 

        '获得鼠标在控件上的点击的位置，产生一个点对象
        Dim pPt As IPoint    '添加引用Imports ESRI.ArcGIS.Geometry
        pPt = New Point
        pPt.PutCoords(e.mapX, e.mapY) 

        If pLineFeedback Is Nothing Then
            pLineFeedback = New NewLineFeedback 

            pLineFeedback.Display = pActiveView.ScreenDisplay
            pLineFeedback.Start(pPt) 

        Else
            '已经画了第一条线，则只需要添加点
            pLineFeedback.AddPoint(pPt)
        End If
    End Sub 

    Private Sub axMapControl1_OnMouseMove(ByVal sender As Object, ByVal e As IMapControlEvents2_OnMouseMoveEvent) Handles axMapControl1.OnMouseMove 

        Dim pPt As IPoint
        pPt = New Point
        pPt.PutCoords(e.mapX, e.mapY) 

        If Not pLineFeedback Is Nothing Then
            pLineFeedback.MoveTo(pPt)
        End If
    End Sub 

    Private Sub axMapControl1_OnDoubleClick(ByVal sender As Object, ByVal e As ESRI.ArcGIS.Controls.IMapControlEvents2_OnDoubleClickEvent) Handles axMapControl1.OnDoubleClick
        pGraphicsContainer = pMap 

        Dim pGeom As IGeometry
        pGeom = pLineFeedback.Stop()
        pLineFeedback = Nothing 

        '添加一个元素
        addElement(pGeom, pGraphicsContainer)
    End Sub
    Private Sub addElement(ByVal pGeom As IGeometry, ByVal pGraphicsContainer As IGraphicsContainer) 

        pMap = axMapControl1.Map
        pActiveView = pMap
        pGraphicsContainer = pMap 

        Dim pLineSym As ISimpleLineSymbol
        pLineSym = New SimpleLineSymbol 

        Dim pColor As IRgbColor
        pColor = New RgbColor
        pColor.Red =
        pColor.Blue =
        pColor.Green =
        pLineSym.Color = pColor
        pLineSym.Style = esriSimpleLineStyle.esriSLSSolid 

        Dim plineEle As ILineElement
        plineEle = New LineElement
        plineEle.Symbol = pLineSym 

        Dim pEles As IElement
        pEles = plineEle
        pEles.Geometry = pGeom 

        pGraphicsContainer.AddElement(pEles, )
        pActiveView.PartialRefresh(esriViewDrawPhase.esriViewGraphics, Nothing, Nothing) 

    End Sub

来自：http://www.cnblogs.com/xionglee/articles/1617901.html