;Erreur: Quit / Exit Abort

[Invité yajis_narif]

Bonjour !

J’ai crée un fichier autolisp pour afficher une boite de dialogue.

Le problème c'est que une foi j'exécute le programme ya un message d'erreur qui s'affiche ((Erreur: Quit / Exit Abort)) sachant que j'ai mis les 2 fichiers .DCL et .LSP à l'intérieur du chemin de recherche AutoCAD. S’il vous plait est-ce-que vous pouvez m’aider

 

Merci

 

 

 

 

[Carboleum]

S’il vous plait est-ce-que vous pouvez m’aider

 

Comme ca, non,,,

on a pas assez d'info.

 

Commences par nous montrer ton code et dis nous ce que tu cherches à faire.

 

Tu peux avoir beaucoup plus d'info sur l'erreur en redéfinissant la fonction *error* comme suit:

(defun *error* (m) (vl-bt))

 

à la suite de quoi tu relances le code.

Tu verras mieux où se situe l'erreur.

 

à +

 

 

[Invité yajis_narif]

bonjour !!

merci pour ton aide.... j'ai réctifier l'erreur

merci carboleum ^^

[Tramber]

STOP !

 

:o

C'est quoi vl-bt ? tu nous l'as fait découvrir, j'ai cherché dans l'aide (car, en effet,cette fonction existe) mais elle ne me semble pas documentée.....je crois comprendre qu'elle remet *error* à 0, c'est intéressant.

 

merci !

[(gile)]

Salut,

 

vl-bt imprime en ligne de commande (ou dans la console Visual LISP) des informations sur l'erreur qui a interrompu le programme.

 

Essaye :

(defun c:test (/ *error*)
 (defun *error* (m) (vl-bt))
 (/ 10 0)
)

[Carboleum]

 

Oui Gile, il est plus prudent de l'encapsuler (*error* devient locale) dans la fonction pour ne pas modifier la fonction *error* générale.

 

[Tramber]

Commande: test Analyse rétrospective:
[0.50] (VL-BT)
[1.46] (*ERROR* "division par zéro") LAP+7
[2.40] (_call-err-hook # "division par zéro")
[3.34] (sys-error "division par zéro")
:ERROR-BREAK.29 "division par zéro"
[4.26] (/ 10 0)
[5.20] (C:TEST) LAP+33
[6.15] (#)
[7.12] (# "(C:TEST)" T #)
:CALLBACK-ENTRY.6 (:CALLBACK-ENTRY)
:ARQ-SUBR-CALLBACK.3 (nil 0)

 

Du jamais vu ! On en apprend tous les jours.....

 

[(gile)]

Personnellement, pour localiser une erreur, j'utilise (et je préconiserais plutôt) la méthode décrite ici ("D'où vient l'erreur ?") qui consiste à utiliser l'arrêt sur erreur de l'éditeur Visual LISP.

[Remi83600]

Bonjour,

 

Je sais que le sujet est vieux, mais cette solution que donne Carboleum,

ma bien aidé.

 

Analyse rétrospective:
[0.170] (VL-BT)
[1.166] (*ERROR* "quitter / sortir abandon") LAP+7
[2.160] (_call-err-hook #<USUBR @000000003115c570 *ERROR*> "quitter / sortir abandon")
[3.154] (sys-error "quitter / sortir abandon")
:ERROR-BREAK.149 "quitter / sortir abandon"
[4.146] (EXIT)
[5.142] (C:RES) LAP+111
[6.137] (#<USUBR @0000000031231138 -top->) LAP+7
[7.133] (al-top-funcall #<USUBR @0000000031231138 -top->)
[8.128] (alide-load-stream #<FILE internal> T)
[9.122] (al-load-stream #<FILE internal> T)
[10.116] (#<SUBR @0000000031231bb0 -unwind-protect->)
[11.113] (rep-cntx.apply #<rep-cntx :AUTOLISP> al-load-stream (#<FILE internal> T))
[12.106] (rep-cntx.sys-str-top nil #<rep-cntx :AUTOLISP> "(c:Res)")
[13.99] (sys-str-top #<rep-cntx :AUTOLISP> "(c:Res)")
[14.93] (console.terminal-entered! (terminal.terminal-entered!) #<console "Console Visual LISP">)
[15.87] (terminal-entered! #<console "Console Visual LISP">)
[16.82] (!accept-enter #<console "Console Visual LISP">)
[17.77] (#<SUBR @0000000031231bb0 -unwind-protect->)
[18.74] (rep-cntx.apply #<rep-cntx :AUTOLISP> #<SUBR @000000003cb73bd8 !accept-enter> (#<console "Console Visual LISP">))
[19.67] (rep-cntx.funcall #<rep-cntx :AUTOLISP> #<SUBR @000000003cb73bd8 !accept-enter> #<console "Console Visual LISP">)
:TOP-COMMAND.60 (((:USER-INPUT "(c:Res)")) "(c:Res)")
[20.57] (#<SUBR @000000003cc35638 _sys-top-loop>)
[21.54] (_catched-apply (#&2) #<SUBR @000000003cc35638 _sys-top-loop> nil)
[22.47] (sys-top)
[23.43] (#<SUBR @000000003111f458 -callback-envelope->)
:CALLBACK-ENTRY.40 (:CALLBACK-ENTRY)
[24.37] (#<SUBR @000000003111f520 -unwind-protect->)
[25.34] (_lisplet-apply #<Document-LISPLET> #<SUBR @000000003111f458 -callback-envelope-> nil :CALLBACK-ENTRY)
[26.26] (_lisplet-callback-apply #<Document-LISPLET> sys-top nil)
[27.19] (C:VLIDE)
[28.15] (#<SUBR @0000000031118570 -rts_top->)
[29.12] (#<SUBR @0000000031118700 veval-str-body> "(C:VLIDE)" T #<FILE internal>)
:CALLBACK-ENTRY.6 (:CALLBACK-ENTRY)
:ARQ-SUBR-CALLBACK.3 (nil 0)

 

Voilà j'ai juste du mal à comprendre l'erreur, pourriez-vous m'aider?

 

Merci d'avance.

[Tramber]

Le plus simple serait de faire CTRL+F9 !

Souvent, l'éditeur Vlisp bascule sur la source d'erreur.