Reduire une selection

Sujets ayant trait au langage de programmation VectorScript et aux Plug-ins
TpF
Messages : 318
Enregistré le : Mer Mar 01, 2006 20:33
Localisation : 45 Montargis
Contact :

Reduire une selection

Messagepar TpF » Sam Mar 10, 2007 15:33

Bjour à toutes et tous,

Suite à une demande de ThierryUFO
J'ai un très vague souvenir d'une méthode pour ne sélectionner qu'un seul objet quand on est obligé de faire une fenêtre autour de plusieurs objets superposés. Il me semble su'on pouvait faire défiler les objets, un à un, jusqu'à tomber sur celui qu'on désire suprimer ou modifier. Cela vous dit quelque chose ? Si oui, comment fait on ?



Je propose sans garantie aucune,

Code : Tout sélectionner

Procedure ReduireSelection;

var
n,nb,i:Integer;
tx:string;
h : handle;

begin
nb:=NumSObj(ActLayer);
tx:=Concat('Sur cette couche, cette selection contient ',Num2Str(0, nb),' élément(s), lequel voulez-vous retenir ?');
n:=RealDialog(tx,'1');

if (n>0)&(n<=nb)then
   begin
   h:=FSActLayer;
   for i:=1 to n-1 do h:=NextSObj(h);
   DSelectAll;
   Setselect(h);
   end;
end;

run(ReduireSelection);


le plug est ici : http://tpf.free.fr/file/VW/ReduireSelection.vsm

Bon test . . . ;-)
MacPro-VW2018 Designer RenderWorks
-----------------------------------------
Patrick Forest
la Topo et les TP
Maître d'Oeuvre en Travaux Publics

ThierryUFO
Messages : 47
Enregistré le : Ven Mar 03, 2006 11:11
Localisation : PARIS

Messagepar ThierryUFO » Lun Mar 12, 2007 9:10

Merci Patrick,
la journée débute de très bonne manière. Merci.
Juste un petit détail : est-il possible de mettre en surbrillance l'objet appelé (en entrant le numéro de l'objet) quand on ne connait pas ou plus l'ordre de création ?
La bonne journée !

Thierry MEZENGE

Mac Intel 2,33. 3Go de RAM et MAC OS X.4.10

GL-Gilles LEVERRIER sarl d'architecture
8, place de la porte de Champerret
75017 PARIS
gl-sarldarchitecture@orange.fr
T : 01 47 63 66 30


Retourner vers « VectorScript & Plug-ins »

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité