Pages: 1
- Sujet précédent - [ArcGIS 8] Dessin de ligne automatique par 2 points connus - Sujet suivant
#1 Tue 08 October 2002 16:17
- RWB SA, Cugy VD
- Invité
[ArcGIS 8] Dessin de ligne automatique par 2 points connus
Hello,
Quelqu’un connait-il un script AV8, qui pourrait dessiner automatiquement une ligne, a partir de 2 points contenus dans une table ?
Merci d’avance de votre reponse rapide, nous sechons dessus actuellement
RWB SA, Switzerland
Jean-Bernard Boschung
#2 Wed 09 October 2002 11:07
- Olivier Durand-Terrasson
- Invité
Re: [ArcGIS 8] Dessin de ligne automatique par 2 points connus
Voici un exemple de ce qu'il est possible de faire.
Code:
'--> 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
Olivier Durand-Terrasson
Pages: 1
- Sujet précédent - [ArcGIS 8] Dessin de ligne automatique par 2 points connus - Sujet suivant