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