Le portail francophone de la géomatique

'--> Creer un point de depart
Dim pPoint1 As IPoint
Set pPoint1 = New Point
pPoint1.X = mytable_point1_x
pPoint1.Y = mytable_point1_y

'--> creer un point d'arrivee
Dim pPoint2 As IPoint
Set pPoint2 = New Point
pPoint2.X = mytable_point2_x
pPoint2.Y = mytable_point2_y

'--> Creer la ligne
Dim pPolyline As IPolyline
Dim pPointCollection As IPointCollection
Set pPolyline = New Polyline
Set pPointCollection = pPolyline
pPointCollection.AddPoint pPoint1
pPointCollection.AddPoint pPoint2

'--> Centrer la vue sur la ligne
Dim pMxDoc As IMxDocument
Dim pActiveView As IActiveView

Set pMxDoc = Application.Document
Set pActiveView = pMxDoc.ActiveView

pActiveView.Extent = pPolyline.Envelope

'--> Dessiner la ligne
Dim pGraphicsContainer As IGraphicsContainer
Dim pElement As IElement

Set pGraphicsContainer = pMxDoc.FocusMap
Set pScreenDisplay = pActiveView.ScreenDisplay
Set pElement = New LineElement
pElement.Geometry = pPolyline
pGraphicsContainer.AddElement pElement, 0

'--> Raffraichir la vue
pActiveView.PartialRefresh esriViewGraphics, Nothing, Nothing