Fonction erreur

[vannes]

Bonjour

Voici mon programme:

(defun C:VANNESHATCHANSI31 (/ *error* PT1 PT2 ANG1 ANG2)

 

(defun *error* (msg)

(if (/= msg "Fonction annulée")

(princ (strcat "\nErreur: " msg))

)

(princ (strcat "\Recommencez"))

(princ)

(c:VANNESHATCHANSI31)

)

 

 

 

(setq CALQUE (getvar "CLAYER"))

(setq C 100.0)

(command "-couleur" "1")

(command "-calque" "ch" "T-BATI-HACH" "")

 

(setq PT1 (getpoint "\nCliquer le 1er point :"))

(setq PT2 (getpoint PT1 "\nCliquer le 2ème point :"))

(setq ANG1 (angle PT1 PT2))

(setq ANG2 (- C (* ANG1 (/ 200 pi))))

 

(setvar "CMDECHO" 0)

(command "_hatch" "ansi31" "0.25" ANG2 "" "N" PT1 PT2)

(setvar "CMDECHO" 1)

(while (> (getvar "CMDACTIVE") 0)

(command pause)

)

 

(réinitialisation)

 

)

 

 

(defun réinitialisation ()

(setvar "CMDECHO" 0)

(command "-couleur" "DuCalque")

(command "-calque" "CH" CALQUE "")

(setvar "CMDECHO" 1)

)

Ma question:

Lorsque j'utilise la touche ECHAP la commande est bien relancée à travers la fonction *error*. Pourquoi au deuxième "essai" si je m'entête à utiliser la touche Echap alors la fonction *error* n'est pas prise en compte et je sors du programme sans l'achever.

 

Merci

[Patrick_35]

Salut

 

Un exemple de code qui interdit l'utilisation de la touche ESC mais qui permet de sortir du lisp en tapant "COMMAND"

 

@+

[AinTerreNette]

Salut,

 

En fait en cas d'appui sur "esc" ton programme boucle sur lui-même.

 

Dans un 1er temps l'idéal serait de sortir la partie *error* dans un module à part que tu pourras réutiliser par la suite.

 

Ensuite, pour t'aiguiller - je te laisse le soin de trouver la méthode exact, tu retiendras mieux :P - le principe est un peu le même lorsque tu attends une action précise de la part de l'utilisateur, par exemple sélection d'un bloc.

Tant qu'un bloc n'est pas sélectionner tu boucles jusqu'à avoir le bon élément.

 

Dans ton lisp tu peux commencer la boucle à partir de la sélection du 1er point (1er arrêt où l'utilisateur peut agir) jusqu'à la fin.