Modification du Lisp savas

[healforall]

Bonjour,

 

J'avais copié sur un site (je ne sais plus si c'est ici :-) ) un lisp qui incrémentait le nom d'un fichier en lui ajoutant un suffixe.

 

Voici le code en question.

(defun filename-1+ ( / fullname basename root index newindex)

 

(setq fullname (getvar "dwgname"))

 

(setq basename (substr fullname 1 (- (strlen fullname) 4)))

 

(setq root (vl-string-right-trim "0123456789" basename))

 

(setq index (substr basename (1+ (strlen root))))

 

(setq newindex (1+ (atoi index)))

 

(setq newindex (if (< newindex 10) (strcat "0" (itoa newindex)) (itoa newindex)))

 

(strcat (getvar "dwgprefix") root newindex "-Archi.dwg"))

 

 

(defun c:saveas-1+ () (command "_saveas" "" (filename-1+)))

 

 

J'aimerai supprimé l'incrémentation du numéro et que la commande me fasse uniquement d'enregistrer le fichier de la sorte:

 

Porte C30.dwg ===> Porte C30-Archi.dwg

 

 

Merci d'avance de votre aide, je n'ai vraiment que très peu de notion en lips la commande fonctionnant déjà je ne veux pas la saboter.

[Tramber]

Bon matin !

 

(defun fiarchi()
 (strcat(substr(getvar "dwgname")1(- (strlen (getvar "dwgname"))4))
 "-Archi.dwg")
 )
(defun c:fia () (command "_saveas" "" (fiarchi)))

(il suffit d'ajouter ces codes à la suite des autres, dans le même fichier)

 

J'ai défini la commande FIA. C'est bien ce que tu cherches ?

[Tramber]

Oops !

J'avais oublié la racine ! (le chemin du fichier)

Je viens de m'en aperçevoir en voulant faire le ménage après mon petit essai consciencieux ;)

 

(defun fiarchi()
 (strcat(getvar "dwgprefix")
 (substr(getvar "dwgname")1(- (strlen (getvar "dwgname"))4))
 "-Archi.dwg")
 )
(defun c:fia () (command "_saveas" "" (fiarchi)))

[Maxence DELANNOY]

Je pense que tu peux le faire sans AutoLISP, avec la commande -exportoautocad et son option Suffixe

[healforall]

Merci, c'est exactement le résultat recherché