Le portail francophone de la géomatique

calito · Thu 26 June 2008 20:14

Bonsoir,

Comment je peux sauvegarder cette requette comme une couche?
voici le code

Code:

Dim Doc As IMxDocument
Set Doc = ThisDocument
Dim pMap As IMap
Set pMap = Doc.FocusMap
Dim FLayer As IFeatureLayer
Dim pLayer As ILayer
Set pFLayer = pMap.Layer(ComboBox6.ListIndex)

Dim Def As IFeatureLayerDefinition2
Set Def = pFLayer
Def.DefinitionExpression = "Pays='" & ComboBox8.Text & "'"

Doc.ActiveView.Refresh

Dim SelLayer As IFeatureLayer

Set SelLayer = Def.CreateSelectionLayer(ComboBox6.Text, True, vbNullString, vbNullString)

pMap.Layer(0).Name = ComboBox8.Text
pMap.AddLayer SelLayer

Jeirhome · Fri 27 June 2008 09:01

Sauvegarder cette requête comme une couche ? Créer le fichier .lyr, c'est bien ça ?

calito · Fri 27 June 2008 15:07

Je veux seulement creer une couhe avec le resultat de la requete passe dans Querrydef; i,e l'ajouter dans le bloc de données sans creer un fichier .lyr.

Avec le code la haut, il l'ajoute pour moi dans le bloc, mais si je vais dans propriete du nouveau couche et j'enleve la requete dans l'onglet QuerryDeffinition, il me donne une copie de la couche source, couche à partir duquel j'avais passe la requete.
Ou du moins, par quel autres moyens je peux passer une requete sur une couche et creer une couche à partir des entitées selectionnée?

Merci.

Tnarbiv · Fri 27 June 2008 17:39

Ceci est un exemple, reste à toi de le modifier et de l'adapter à tes besoins

Est ce que cela te convient :

Code:

Public Sub dedede()
Dim pmxdoc As IMxDocument
Set pmxdoc = ThisDocument
Dim pmap As IMap
Set pmap = pmxdoc.FocusMap
Dim player As ILayer
Set player = pmap.Layer(1)

'affichage des départements ayant comme code région 11
Dim pfldef As IFeatureLayerDefinition
Set pfldef = player
pfldef.DefinitionExpression = "CODE_REG = '11'"
pmxdoc.ActiveView.Refresh

'je récupère les départements n'ayant pas répondu à mon questionnaire
Dim pQueryFilter As IQueryFilter
Set pQueryFilter = New QueryFilter
pQueryFilter.WhereClause = "Répondu = 'NON'"
Dim pFSel As IFeatureSelection
Set pFSel = player
pmxdoc.ActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing
pFSel.SelectFeatures pQueryFilter, esriSelectionResultNew, False
pmxdoc.ActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing

'Je combine mon ensemble de définition et ma requête et j'ajoute ma couche de sélection
Dim pflsel As IFeatureLayer
Set pflsel = pfldef.CreateSelectionLayer("Selection_Layer", True, vbNullString, vbNullString)
pfldef.DefinitionExpression = ""
pFSel.Clear
pmap.AddLayer pflsel
End Sub

Dans ton cas l'ensemble définition et la requête sont les mêmes.

calito · Mon 30 June 2008 10:36

Okey, c'est bon.
Merci Tnarbiv. Vous etes Super.

Communauté	Ressources	L'emploi	Le marché	L'association	Fils RSS
Forum Blogs Wiki Planet Sites amis	Agenda Biblio Fiches AMO-CNIG Paris PCGIS Téléchargements	Offres d'emploi Banque de CV Formations Démarche Métiers	Geo-Entreprises Geo-Communiqué Appels d'offres	L'association Qui sommes-nous ? Nous aider Bienfaiteurs Partenaires Historique Statuts	Tout le site Job Géomatique Services GeoBlogs ...	Faire un don Mentions légales

Le portail francophone de la géomatique

Annonce

#1 Thu 26 June 2008 20:14

Sauvegarder une requete passée dans "QueryDef" comme une couche

Code:

#2 Fri 27 June 2008 09:01

Re: Sauvegarder une requete passée dans "QueryDef" comme une couche

#3 Fri 27 June 2008 15:07

Re: Sauvegarder une requete passée dans "QueryDef" comme une couche

#4 Fri 27 June 2008 17:39

Re: Sauvegarder une requete passée dans "QueryDef" comme une couche

Code:

#5 Mon 30 June 2008 10:36

Re: Sauvegarder une requete passée dans "QueryDef" comme une couche

Pied de page des forums