Sauvegarde

[MNT]

Bonjour,

je cherche une macro pour sauvegarder le fichier(DWG) en cours d'utilisation sur 2 disques dur d'un simple clic

Evidemment dans une suite de dossiers

 

@+

[Tramber]

^C^C_saveas;;C:/AB/d1

 

Malheureusement, il n'est pas possible de ne spécifier que le dossier, ainsi, d1 devient le fichier "d1.dwg".

 

Espaces interdits

/ au lieu de \ (pour que le script ne confonde pas avec \ qui signifie PAUSE.

 

^C^C_saveas;;C:/ZX/d1

 

Les problèmes apparaissent si le fichier existe déjà.

Auquel cas il faut rajouter le oui pour la confirmation d'écrasement.

 

 

[didier]

bonjour

en réponse à MNT :

précise moi, si sur les deux disques les chemins sont identiques.

il serait souhaitable, si tu veux qu'on se penche sur ton souci,

que tu mettes un exemple des deux chemins souhaités.

à la vue de ceux ci, je te ferai une routine ad hoc.

amicalement

 

 

[MNT]

Salut Didier,

 

oui,oui les chemins sont les mêmes :

disque "utilisateur" E:\A_Plans\45\Com_XXX\XXXXX\XXXXX Ind-0.dwg

disque "sauvegarde" F:\A_Plans\ etc...

 

Plus précisément

lecteur\Dossier général\Département\Ville\Client\Fichier avec indice

en fait il n'y a que la lettre du lecteur qui change

 

En attendant je vais essayer la macro de Tramber

 

merci à tous les 2

@+

[Tramber]

Tiens, mieux encore :

 

^C^C_saveas;;C:/AB/\

 

Si AB existe bien, le signe \ t'invites à taper le nom du fichier.

 

Normalement ca marche bien, il te faudra 2 boutons.

[didier]

hello MNT

avec cette petite routine

tu vas avoir le résultat souhaité

en effet, elle a l'avantage de LIRE le nom du fichier et du répertoire

et donc de fonctionner avec TOUS les noms

et de choisir le lecteur de sauvegarde, suivant que tu travailles sur C ou D

dans ce code il faut que tu remplaces "C" et "D"

par les lettres de tes lecteurs

"C" étant le principal

"D" étant la sauvegarde

il faut aussi changer le "2004" en "2000" suivant ton format habituel d'enregistrement.

autre chose il faut que la variable EXPERT soit à 0.

amicalement

 

(setvar "cmdecho" 0)

(setq fichier1 (strcat (getvar "dwgprefix")(getvar "dwgname")))

(setq lonchemin (strlen fichier1))

(setq lecteur (substr fichier1 1 1))

(cond

(( = lecteur "C")(setq fichier2 (strcat "D"(substr fichier1 2 lonchemin))))

(( = lecteur "D")(setq fichier2 (strcat "C"(substr fichier1 2 lonchemin))))

)

(command "_saveas" "2004" fichier2 "O" )

(command "_saveas" "2004" fichier1 "O" )

(alert "OK, Sauvegardé sur les deux Lecteurs")

 

 

[MNT]

Impeccable

Merci