Nous utilisons des cookies pour vous garantir la meilleure expérience sur notre site. Si vous continuez à utiliser ce dernier, nous considèrerons que vous acceptez l'utilisation des cookies. J'ai compris ! ou En savoir plus !.
banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

#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

 

Pied de page des forums

Powered by FluxBB