RENOMMER ONGLETS EN CHAINE

[lili2006]

Bonjour à toutes et tous,

 

Existe t-il une manip pour renommer en chaine une liste d'onglet ?

 

Sans passer par Excel de préférence,...Mais si il y a une solution sans Lisp, je suis preneur,...

 

Merci d'avance,

[PHILPHIL]

hello

 

avec "ONG" de patrick 35

 

tu selectionnes tous les onglets que tu veux renommer

et achaque fois que tu valide un l'autre appararait

 

rapide, clair, net

 

a+

 

phil

 

 

[lili2006]

Re,

 

Merci de ta réponse PHILPHIL,,

 

J'utilise déjà ce lisp mais je souhaiterai (si elle existe !!) une fonction sans lisp car je veux pouvoir l'utiliser aussi sur des Vlights (je me suis trompé de forum, par habitude,... :cool: ). Dans le "pire" des cas une solution avec macro EXcel,...

 

Merci encore,

[Tramber]

Ben tu scriptes ! avec la commande -PRESENTATION

[lili2006]

Re,

 

Salut Tramber,

 

Ben tu scriptes ! avec la commande -PRESENTATION

 

Bonne idée le script !

 

Mais comment réinjecter les nouveaux noms d'onglets ?

 

Un script par fichier ?

 

Car chaque fichier ont des noms existants différents et des noms "futurs" aussi,...

 

Merci d'avance,

[Tramber]

Tu devras scripter 2 fois.

 

En sortie pour -PRESENTATION ? (j'ai bien dit point d'interrogation). Eventuellement faire un fichier journal....

 

En entrée avec -PRESENTATION RENOMMER

 

Bon courage :cool:

[lili2006]

Re,

 

Merci Tramber,

 

Eventuellement faire un fichier journal....

 

Comment ça,...?

 

Bon courage

 

Ouh, j'aime pas quand tu écris ça,....surtout avec le Smiley qui va bien derrière,...

[Tramber]

fichjournac et commandes associés. Ca crée des .log

 

Ce qui est clair c'est qu'il est long de lister les presentations dans chaque fichier, sans lisp.

 

 

[lili2006]

Re,

 

Bon, plus qu'une macro VBA alors ?

 

Je ne suis pas sur de pouvoir me lancer là dedans,...

 

Merci encore,

[capde06]

le ptit lisp de patrick un peu modifiée a mes besoins

 

pratique quand il y a beaucoup de presentation

 

 

;;renommer les presentations Auteur Patrick 35

(defun c:ren-onglet(/ doc express lay lst n i txt)

 

(setq doc (vla-get-activedocument (vlax-get-acad-object))

n -1

i 1

long (-(length (layoutlist)) 1)

)

(vla-startundomark doc)

(if (eval 'acet-ui-progress-done)

(progn

(acet-ui-progress-init "" (1- (vla-get-count (vla-get-layouts doc))))

(setq express T)

)

(progn

(princ "\nTravail en cours...")

(princ)

)

)

(vlax-for lay (vla-get-layouts doc)

(setq lst (cons (list (vla-get-taborder lay) lay) lst))

)

(while (setq lay (assoc i lst))

(if (eq n -1)

(setq txt "Cartouche")

;;(setq txt (itoa n))

(setq txt (strcat "Page " (itoa (+ n 1)) " sur " (rtos long 2 0)))

)

(while (< (strlen txt) 2)

(setq txt (strcat "0" txt))

)

(if (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-name (list (cadr lay) txt)))

(progn

(vla-put-name (vla-item (vla-get-layouts doc) txt) (strcat "captopo" txt))

(vla-put-name (cadr lay) txt)

)

)

(and express (acet-ui-progress-safe i))

(setq n (1+ n)

i (1+ i)

)

)

(and express (acet-ui-progress-done))

(princ (strcat "\nRenumérotation de " (itoa (1+ n)) " présentation(s)."))

(vla-endundomark doc)

(princ)

)

[lili2006]

Re,

 

Merci capde06,

 

Faute de script pour lt, cela semble pas mal non plus,....(L'entreprise dispose d'une version pleine,donc,...)

 

J'ai rajouté "(vl-load-com)" en début de lisp suite à ce message =>

 

Commande: ren-onglet

; erreur: no function definition: VLAX-GET-ACAD-OBJECT

 

Pour ceux qui voudrais tester également,...