BiE_Error

N° Fonction Catégorie Version
BIE 01 BiE_Error Gestion des Erreurs 1.0 - Janvier 2007

Description

But Gestion du programme en cas d'erreur..
Prototype (setq *error* BiE_Error)
Argument Néant - (*msg) est le message d'erreur produit par AutoCAD
Retours Néant
Var. globales $OldError
Description Sortie 'propre" en cas d'erreur avec récupération des modes actifs et du calque qui étaient en cours au lancement du programme
Notes En cas d'erreur pendant l'exécution du programme, AutoCAD exécutera les instructions de BiE_Error avant de sortir.
BiE_Error s'initialise automatiquement dans la routine BiE_Init
(Il n'y a pas en s'en préoccuper.)
Nécessite les chargements de BiN_Init et BiN_Reset.
Exemples 

(setq *error* BiE_Error)

La fonction 


    1-  (defun BiE_Error (*msg)

    2-      (if
    3-         (and
    4-              (/= *msg "Fonction annulée")		 	
    5-              (/= *msg "Function cancelled")		
    6-         )
    7-         (princ (strcat "\nErreur : " *msg))
    8-         (princ)		
    9-       )
   10-       (BiN_Reset)		
   11-       (setq *error* $OldError)			
   12-       (princ)			
   13-  )

Lignes 2 -5 : Si la commande n'a pas été stoppée, c’est à dire, si le message retourné 
              par AutoCAD en cas d’erreur, est différent de " Fonction annulée" en 
              version française ou "Function cancelled"  en version anglaise,
Ligne 7 :   Afficher le message d’erreur AutoCAD
Ligne 8 :   Sinon, ne rien afficher (si la commande a été arrêtée)
Ligne 10:   Dans tous les cas, exécuter la fonction BiN_Reset qui va ré-initialiser 
                 les modes...
Ligne 11 :  Ré-initialisation de la fonction *error* à sa valeur précédente 
               sauvegardée par BiN_Init
Ligne 12 :  Pour une sortie "propre", sans autre message.