mbak (déplacer les .bak)

[Fruity]

Bonjour

J'utilise depuis un petit moment un lisp fait par Patrick qui crée un dossier bak dans chque dossier et y déplace toutes les sauvegardes.

 

Cepedant, je viens de passer a autocad 2014 et ce dernier n'a pas l'air de fonctionner (ou bien j'ai fait une connerie..)

Qui peut m'aider?

 

Pour mémoire, voici le lisp en question:

; Réacteur

(defun patrick:bouger_bak(rea dwg / anc des fso nom rep tot)

 (setq des (cadr dwg)

rep (strcat (vl-filename-directory des) "/bak")

nom (strcat (vl-filename-base des) ".bak")

fso (vlax-create-object "Scripting.FileSystemObject")

 )

 (or (findfile rep)

   (vlax-invoke fso 'CreateFolder rep)

 )

 (and	(setq tot (findfile (strcat (vl-filename-directory des) "/" nom)))

(setq anc (findfile (strcat rep "/" (vl-filename-base des) ".bak")))

   (vl-file-delete anc)

 )

 (and tot

   (vlax-invoke-method fso 'MoveFile tot (strcat rep "/"))

 )

 (vlax-release-object fso)

 (princ)

)



;Activer le réacteur

(defun c:mbak()

 (if patrick:reacteur_bak

   (princ "\nLe réacteur est déjà actif.")

   (setq patrick:reacteur_bak (vlr-dwg-reactor nil (list (cons :vlr-savecomplete (function patrick:bouger_bak)))))

 )

 (princ)

)



; Désactiver le réacteur

(defun c:rbak()

 (if patrick:reacteur_bak

   (progn

     (vlr-remove patrick:reacteur_bak)

     (setq patrick:reacteur_bak nil)

   )

   (princ "\nLe réacteur est déjà désactivé.")

 )

 (princ)

)

 

Et au démarrage, je lance par défaut ceci :

 

(load"D:/***/movbak.lsp")
(c:mbak)  ;deplacer bak

[didier]

coucou

 

la commande "movebak" existe en natif sur la ligne de commande (peut-être express ?)

 

par contre je n'ai pas la version 2014 pour affirmer qu'elle existe en 2014 mais depuis pas mal d'années je l'utilise sans soucis.

 

amicalement

[Fruity]

Oui elle existe toujours en natif. Mais elle ne fonctionne pas de la même manière.

Il faut la lancer manuellement en plus de l'enregistrement classique, et ca ne crée pas un dossier bak par affaire (tout se met dans un dossier spécifique).

 

edit:

Solution trouvée: j'ai tapé rbak, pour désactiver la fonction, puis mbak pour la relancer, et depuis ca semble fonctionner a nouveau :) (sans doute un petit soucis suite a l'importation de mes préférences depuis 2012)

[didier]

Coucou

 

je te prie de m'excuser,

je n'avais pas lu le contenu du code présenté mais seulement le titre et je n'avais donc pas noté les différences entre le code et la commande native d'AutoCAD.

 

Amicalement