Effacer un préfixe d'un ensemble de classes

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

Effacer un préfixe d'un ensemble de classes

Messagepar TpF » Sam Avr 16, 2016 19:30

Bjour,

Pour essayer de répondre à la demande, je vous propose de tester ceci :

Code : Tout sélectionner

Procedure EffacePrefixClass;

var
   n,nb,lg:longint;
   txt,class:string;

BEGIN
   txt:=StrDialog('effacer ce préfixe des classes visibles :','?');
   nb:=ClassNum;
   lg:=len(txt);
   
   for n:=1 to nb do begin
      class:=ClassList(n);
      if (GetCVis(class)=0) and (copy(class,1,lg)=txt) then
         RenameClass(class,copy(class,1+lg,len(class)));
   END;
      
END;
run(EffacePrefixClass);
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 3 invités