#1 Fri 21 July 2006 21:44
- Abdo
- Participant occasionnel
- Date d'inscription: 21 Jul 2006
- Messages: 19
Creation de Polygone via une application VB
Bonjour tt le monde
Je suis actuellement entrain de développer une application sur VB pour manipuler des cartes.
J’ai crée des polygones sur une couches contenant des noeuds. J'aimerai ressortir les noeuds qui sont inclus dans le polygone (à part les noeuds extrêmes du polygone que je connais déjà).
Est ce que Quelqu'un peut m'aider. Merci d'avance
Hors ligne
#2 Sat 22 July 2006 01:20
- Damien BEAUSEIGNEUR
- Participant assidu
- Lieu: meyzieu
- Date d'inscription: 5 Sep 2005
- Messages: 425
Re: Creation de Polygone via une application VB
Bonjour, ta question est un peu floue. En général les noeuds se sont les sommets des polygones.
Deux possibilité
Soit tu veux connaître tous les sommets de ton polygone.
dim polygone as feature
dim i as long
dim j as long
Dim nbpoints as long
Dim partie as points
Dim Ptcour as long
Dim PT[] as point
nbpoints = 0
Ptcour = 0
for i = 1 to polygone.parts.count
nbpoints = nbpoints + polygone.parts.count
set partie = polygone.parts.item(1)
redim PT[nbpoints]
for j = 1 to partie.count
set PT[PtCour] = Partie.item[j]
PtCour = PtCour +1
next
next
Soit tu veut connaître tous les points inclus dans ton polygone.
ta_couche.SearchWithinFeature (polygone,miSearchTypeEntirelyWithin)
Note la première partie peut s'obtenir plus rapidement, mais le traitement vb de pointeur ne me semble pas appropriée pour utiliser polygone.nodes.
En espérant que celà est put t'aider.
Hors ligne
#3 Mon 24 July 2006 15:11
- Abdo
- Participant occasionnel
- Date d'inscription: 21 Jul 2006
- Messages: 19
Re: Creation de Polygone via une application VB
Merci beaucoup. En fait c est la deuxieme option qui est vraie, je veux savoir les noeuds inclus dans mon polygone.
Je vais essayé votre code. Merci bien
Hors ligne