Annonce
L'appel à participation est ouvert jusqu'au 19 janvier 2025!
#1 Mon 24 September 2001 00:43
- SALINAS PATRICIO
- Invité
[Avenue] Decouper un shape
Cherche un script qui puisse m’aider a faire :
Decouper une couche shp (par exemple communes.shp), en fonction d’un dessin
Ce dessin, devient une couche shp (graphics to shape), avec les attributs de la couche communes, mais dont
les valeurs des champs numeriques soient proportionnels a leur nouvelle surface
Exemple
Lors de mon dessin (thegraphics), on coupe la commune
A, qui a 5000 hab.,
On obtient alors deux polygones,
commune A.1, avec 2000 hab et
commune A.2, avec 3000 hab
merci de m’aider
pat'
#2 Fri 21 September 2001 00:43
- SALINAS PATRICIO
- Invité
Re: [Avenue] Decouper un shape
salut
je n'arrive pas a finir ce prog. avenue.
il s'agit de faire une selection a partir des valeurs retouvees dans les champs.0 je sais que c'est une
question de Bitmap, mais!!!!
voici le sript, plese help me
Code:
'recherche lavue = av.GetActiveDoc lalistethemes=lavue.getthemes lechooix=Msgbox.listasstring(lalistethemes, , ) if (lechooix = nil) then exit end toto = lechooix.Getftab FieldList = toto.GetFields ID_Field = MsgBox.listasstring( fieldList, , GetUnique field ) if ( ID_Field = nil ) then exit end theUniqueList = List.Make for each rec in toto theUniqueList.Add(toto.ReturnValueString(ID_Field, rec)) end if (theUniqueList.Count > 0) then theUniqueList.RemoveDuplicates theUniqueList.Sort(true) if (theUniqueList.Get(0).isNull) then theUniqueList.Remove(0) end else MsgBox.Error( There are no values in field to choose from , ) return NIL end theValueList = MsgBox.listasstring(theUniqueList, , ) if (theValueList=nil) then exit end
merci pour l'aide
a+
pat
