*error* mon_err) _ Remplacement par mon_err (setq olderr *error* _ Sauvegarde de *error* (setq *error* olderr _ Restauration de *error*
(princ "\nProcédure d'annulation en cours, patientez.") (defun c:FixCn (/mon_err Nomfile Nomfile2 PathFdwg ACINS2000 FINS2000 PathFdwgf PathFacad ) c'est donc cette fonction qui sera exécutée en cas d'erreur ou d'annulation, et ce jusqu'à ce que soit restauré la définition originelle de *error* en fin de c:FixCn mais aussi en fin de mon_err (en cas d'annulation). Tu as défini mon_err à l'intérieur de la fonction principale (c'est pour çà que je te proposais de déclarer la fonction avec les variables système), mais cela reste une fonction différente de la fonction principale c:FixCn utilisée par celle-ci au même titre que FixVl à ceci près que FixVl est appelé dans le déroulement "normal" de c:FixCn et que mon_err remplace pendant l'exécution de c:FixCn la fonction originelle*error*.ĭonc, au début de c:FixCn on sauvegarde la définition originelle de *error* dans olderr et on affecte celle de mon_err à *error*. Le code que je proposais concerne uniquement la définition de mon_err. (princ "\nProcédure d'annulation en cours, patientez.") (alert "fonction aborted")ĭonc j'ai intégré les deux portions de codes comme précédent.Īutre chose : le bout de code marche avec la version française d'autocad mais avec la version anglaise non! (setq ACINS2000 (vl-registry-read "HKEY_LOCAL_MACHINE\\SOFTWARE\\Autodesk\\AutoCAD\\R15.0\\ACAD-1001:40C" "AcadLocation"))ĭonc ma fonction c:FixCn fait appel à une autre fonction FixVl qui elle aussi fait appel à d'autres fonctions
(alert "FixCAD n'est pas installée sur cet ordinateur.") (defun c:FixCn (/ Nomfile Nomfile2 PathFdwg ACINS2000 FINS2000 PathFdwgf PathFacad ) Ça marche quand j'utilise ce bout de code tout seul mais avec man fonction j'ai un problème.
0 kommentar(er)
