[Résolu] Sauvegarde incrémentée

[DenisHen]

Bonjour à la communauté,

 

Voilà, j'ai un petit soucis, je tente de créer un petit bout de LiSP pour, toutes les 10 incrémentations, sauvegarder mon DWG.

 

En gros, dans quelques-uns de mes LiSP, j'incrémente une variable. Lorsque j'ouvre mon DWG, elle est à 0, puis, à mesure du déroulement de différents LiSP, j'incrémente cette variable de +1. Enfin, si elle est égale ou suppérieur à 10, une sauvegarde sera effectuée...

 

Voici mon bout de code qui sera appelé depuis mes LiSP :

;;; Sauvegarde toutes les 10 opération LiSP...
(defun c:CtrlSvGrd (/)
 (princ "\nDéveloppé par Denis H.")
 (setq SvGrd (rtos (vlax-ldata-get "DenisH" "SauveGarde" 0) 0 0))
 (if (>= SvGrd 10)
   (progn (command "_qsave" "")
          (vlax-ldata-put "DenisH" "SauveGarde" 0)
   ) ;_ Fin de progn
   (setq SvGrd (+ SvGrd 1))
 ) ;_ Fin de if
 (princ)
) ;_ Fin de defun

 

Mais lorsque je l'exécute, AutoCAD me répond :

Commande: CTRLSVGRD

Développé par Denis H.; erreur: valeur d'argument incorrecte: mode rtos: 0

; redéfinir après erreur

 

Et je ne saisi pas trop... Ce doit être le (rtos qui pose problème...

 

Si quelqu'un a une idée ou une astuce, je suis preneur...

 

Denis...

[(gile)]

Salut,

 

Pourquoi utilises-tu rtos ?

[DenisHen]

Salut...

 

Pfffff.... Effectivement... Pourquoi ? ?

 

Désolé de t'avoir dérangé pour une bétise... Et merci pour ton aide, encore une fois...

 

Pour ceux que ça peut interresser, voici une routine qui sauvegarde tous les 10 appels.

 

;;; Sauvegarde toutes les 10 opérations LiSP
(defun CtrlSvGrd (/)
 (princ "\nDéveloppé par Denis H.")
 (setq SvGrd (vlax-ldata-get "DenisH" "SauveGarde" 0))
 (if (>= SvGrd 10)
   (progn (command "_qsave" "")
          (vlax-ldata-put "DenisH" "SauveGarde" 0)
   ) ;_ Fin de progn
   (progn (setq SvGrd (+ SvGrd 1))
          (vlax-ldata-put "DenisH" "SauveGarde" SvGrd)
   ) ;_ Fin de progn
 ) ;_ Fin de if
 (princ (strcat "\tIncrémentation : " (itoa SvGrd)))
 (princ)
) ;_ Fin de defun

 

Et merci encore (gile)...

 

Denis...

[didier]

Coucou

 

Intéressant et merci du partage, mais je me pose une question et donc te la pose :

Tous les 10 appels certes mais les appels de quoi ?

 

Amicalement

[gerardb1603]

Moi aussi,je suis comme Didier. C'est quoi, ces appels ? Et je ne vois pas très bien à quoi sert ce Lisp...

Pourquoi pas un petit CTRL+S de temps en temps ?

[DenisHen]

Tous les 10 appels certes mais les appels de quoi ?

 

J'entends par là que j'exécute "(CtrlSvGrd)" depuis d'autres macros.

 

Je nommais ça des "appels"... Il y a un autre nom ?