Préfixer et renuméroter les planches de présentation

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 :

Préfixer et renuméroter les planches de présentation

Messagepar TpF » Dim Juil 13, 2014 10:41

Bjour,

C'est cadeau :

Code : Tout sélectionner

Procedure RenameLayersPresentation;
{TpF 13 Juillet 2014}

var
   h:handle;                                                   (* initialisation du pointeur de calques *)
   i:integer;                                                   (* initialisation d'un entier qui servira de compteur *)
   prefix:string;                                                (* initialisation du texte préfixant les calques de présentation*)

begin
   h:=FLayer;                                                   (* Pointons sur le premier calque*)
   i:=1;                                                      (* compteur sur 1*)
   prefix:='planche';                                             (* donnons une valeur par défaut *)
   prefix:=strdialog('prefixer les planches de présentation par :',prefix);   (* dialogue proposant de définir le préfixe*)
      
   WHILE h <> NIL DO BEGIN                                          (* une boucle sur les calques*)
      if (GetObjectVariableInt(h,154)=2) then begin                     (* si calque de présentation la variable vaut 2*)
         setname(h,concat(prefix,num2str(0,i)));                        (* renomons la planche*)
         i:=i+1;                                                (* incrémentation du compteur*)
      end;                                                   (* fin du if*)
      h:=nextlayer(h);                                          (* allons pointer sur le calque suivant*)
   end;                                                      (* fin de la boucle*)

end;                                                         (* fin de la procedure*)
run(RenameLayersPresentation);


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

Gerald karlikow
Messages : 172
Enregistré le : Jeu Mar 02, 2006 8:43

Préfixer et renuméroter les planches de présentation

Messagepar Gerald karlikow » Dim Juil 13, 2014 13:55

merci TpF
je constate qu'il pleut aussi à Montargis, sinon nous ne serions pas devant nos ordis.
Je fais des essais plus tard en modifiant le script pour voir si j'ai bien compris les explications en bout de ligne :P

dbeillot
Messages : 46
Enregistré le : Ven Déc 09, 2011 11:00
Localisation : BRIVE LA GAILLARDE

Re: Préfixer et renuméroter les planches de présentation

Messagepar dbeillot » Mar Sep 15, 2015 17:52

Bonjour,
je suis arrivé sur une de cette ancienne publication car la numérotation des pages de présentations m'intéresse fortement.
Le soucis est que...je n'y connais rien au macro et je ne sais quoi faire de votre "Procédure"...Faut il rentrer à" l'intérieur du programme"?, y'a t'il une fonction particulière ? Comme vous pouvez le constater...je suis largué.
Donc si vous avez un conseil a me donner...je suis preneur.
Merci
Didier

TpF
Messages : 318
Enregistré le : Mer Mar 01, 2006 20:33
Localisation : 45 Montargis
Contact :

Re: Préfixer et renuméroter les planches de présentation

Messagepar TpF » Mar Sep 15, 2015 19:35

Bjour,

Creer une ressource de type "Script" dans la palette des ressources
Copier-coller le code
Enregistrer
Lancer l'exécution du script
MacPro-VW2018 Designer RenderWorks
-----------------------------------------
Patrick Forest
la Topo et les TP
Maître d'Oeuvre en Travaux Publics

dbeillot
Messages : 46
Enregistré le : Ven Déc 09, 2011 11:00
Localisation : BRIVE LA GAILLARDE

Re: Préfixer et renuméroter les planches de présentation

Messagepar dbeillot » Ven Sep 18, 2015 11:52

Merci pour l'explication du Script....mais en faite, ce n'est pas l'outil dont j'avais besoin.
Je souhaitais savoir s'il existe un outil qui permettrait de Numéroter automatiquement le numéro de la page de présentation SUR CETTE PAGE (dans un cartouche par exemple) et pas seulement son nom.
Merci

TpF
Messages : 318
Enregistré le : Mer Mar 01, 2006 20:33
Localisation : 45 Montargis
Contact :

Re: Préfixer et renuméroter les planches de présentation

Messagepar TpF » Mer Sep 23, 2015 6:46

Pas à ma connaissance, du moins dans la version officiel de VW.
Je me souvient avoir vu un plug-in qui pré-remplissait un cartouche mais je ne crois pas qu'il numérotait des pages.
MacPro-VW2018 Designer RenderWorks
-----------------------------------------
Patrick Forest
la Topo et les TP
Maître d'Oeuvre en Travaux Publics


Retourner vers « VectorScript & Plug-ins »

Qui est en ligne

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