Aller au contenu

Messages recommandés

Posté(e)

Bonjour les amis Déssineux,

 

Je suis en mission chez un nouveau client depuis quelques semaines,

et celui-ci a eu la bonne idée de remplacer tous les Autocad par BricsCad.

 

Au premier abord, j'étais un peu réfractaire, mais après quelques semaines

d'utilisation, je m'y suis fait (de toute façon je n'avais pas trop le choix).

 

Je souhaitais poser quelques questions, et pouvoir vous faire bénéficier

de mes découvertes sur ce clone qui m'a été imposé, alors pourquoi pas

créer une rubrique BricsCad dans "Autres logiciels de CAO"?

 

J'ai d’ailleurs déjà une demande pour nos chers spécialistes en LISP:

 

Sauf erreur de ma part, il n'y a pas de "Gestionnaire de récupération de dessin"

ni de sauvegarde automatique, du coup après plantage c'est la galère,

à part le ".BAK", il n'y a pas grand chose.

 

Vu qu'il est relativement compatible avec les LISP d'Autocad,

je me demandais si il existait un lisp pour faire des sauvegardes auto

au bout d'un certain nombre de commandes ou de clics?

 

Merci d'avance et bonne soirée ;)

Posté(e)

Bonjour sef,

Je me suis permis de modérer en créant un nouveau sujet.

La sauvegarde auto en bak sur Bricscad ?

Si quelqu'un sait....

 

Pour ta demande en lisp. Elle ferait appel à des réacteurs. Plutôt difficile à mettre en oeuvre à mon sens.

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Posté(e)

Bonjour sef,

Je me suis permis de modérer en créant un nouveau sujet.

La sauvegarde auto en bak sur Bricscad ?

Si quelqu'un sait....

 

Pour ta demande en lisp. Elle ferait appel à des réacteurs. Plutôt difficile à mettre en oeuvre à mon sens.

 

Merci j'avais hésité à créer un sujet...

 

Pour le lisp, j'avais il y a longtemps réussi à en trouver un

qui sauvegardait au bout d'un certain nombre de clic

mais impossible de remettre la main dessus.

 

Ensuite il suffirait d'ajouter une commande pour copier le .bak ailleurs,

voir même incrémenter son nom avec l'heure et la date par exemple ;)

 

Plus facile à dire qu'à faire ;)

Posté(e)

Bonjour,

j'ai trouvé ce sujet, pour sauvegarder en bout de 20 commandes

Ah bah oui, pas si dur le lisp du réacteur de son auteur.

et il a mis :

(:vlr-commandended . autosave)

(:vlr-commandcancelled . autosave)

(:vlr-commandfailed . autosave)

Quand je pensais au lancement des commandes. Plutôt malin et sans doute pour éviter tout plantage.

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Posté(e)

Bonjour,

 

j'ai trouvé ce sujet, pour sauvegarder en bout de 20 commandes

 

En remplacant

(vla-save *autosave-acdoc*)

par

(progn
 (vla-export *autosave-acdoc* (strcat "c:/" (vla-get-name *autosave-acdoc*) (rtos (getvar 'date) 2 8)) "dxf" (setq sel (vla-add (vla-get-selectionsets *autosave-acdoc*) (rtos (getvar 'date) 2 8))))
 (vla-delete sel)
)

on a un export du dessin en dxf. (là j'ai mis dans c:, mais on peut personaliser)

J'ai pas trouvé mieux pour le moment

Aide au téléchargement du cadastre dgfip-download-helper
Insertion de photos géolocalisées exif https://www.dropbox.com/s/gkf6o9ac2hxen97/exifscr.zip?dl=0
Script correction BUG SPDC V2, propriétaire département 21 et 22 : https://greasyfork.org/scripts/442400-spdcv2/code/SPDCV2.user.js

Posté(e)

Salut,

 

J'ai un peu modifié le LISP de Lee Mac.

Deux commandes :

- AUTOSAVEON : pour activer le réacteur

- AUTOSAVEOFF : pour désactiver le réacteur

 

Le réacteur ne prends en compte que l'évènement :vlr-commandEnded, c'est à dire les commandes qui ont abouti (inutile, à mon avis de comptabiliser les commandes qui ont échoué ou ont été annulées).

L'utilisateur est averti si le dessin n'est pas enregistré.

EDIT: Le fichier .bak est copié dans le même répertoire renommé avec la date et l'heure avec l'extension .dwg.

J'ai évité toutes les variables globales.

 

(vl-load-com)

(defun c:AutoSaveOn ()
 (if (not (vl-some
      '(lambda (rea)
	 (equal	'((:vlr-commandended . AUTOSAVE))
		(vlr-reactions rea)
	 )
       )
      (cdar (vlr-reactors :VLR-Command-Reactor))
    )
     )
   (vlr-command-reactor 0 '((:vlr-commandended . AUTOSAVE)))
 )
 (princ)
)

(defun c:AutoSaveOff ()
 (foreach rea (cdar (vlr-reactors :VLR-Command-Reactor))
   (if	(equal '((:vlr-commandEnded . AUTOSAVE))
       (vlr-reactions rea)
)
     (vlr-remove rea)
   )
 )
 (princ)
)

(defun autosave	(rea lst / filename)
 (if (zerop (rem (vlr-data-set rea (1+ (vlr-data rea))) 20))
   (if	(= 1 (getvar 'dwgtitled))
     (progn
(vla-save (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq filename (strcat (getvar 'dwgprefix) (vl-filename-base (getvar 'dwgname))))
(vl-file-rename
  (strcat filename ".bak")
  (strcat filename "_" (rtos (getvar 'cdate) 2 6) ".dwg")
)
     )
     (alert "\nLe dessin n'est pas enregistré")
   )
 )
 (princ)
)

Gilles Chanteau - gileCAD - GitHub
Développements sur mesure pour AutoCAD

Posté(e)

Nickel, ça marche super bien ;)

Ca va m'éviter de perdre quelques heures de boulot à chaque plantage,

Merci beaucoup :P :rolleyes:

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité