arreter un lisp avec une touche

[sbosarl]

bonjour ,

suivant mon titre , je cherche à interrompre un lisp un peu comme l’arrêt de la commande ligne

pour faire simples mon lisp me permet de tracer une nappe de 1 à 6 tubes d’un point A à un points X

(ligne pt1 pt2-- ligne pt2 pt3—coude à partir de la je répète ligne coude jusqu ‘au ptX)

Aujourd’hui j’utilise dans ma boucle cela :

  (setq a1 0);
(while (/= a1 10) 
(setq  b2 (grread) );(princ b2)(print (nth 1 b2)) 
(commandetrace)
(if (and (= (nth 0 b2) 2)(= (nth 1 b2) 13)) (setq a1 10)))

Qui as l’inconvenant d’être bloquant (attente de touche)

 

 

[Edité le 5/3/2010 par sbosarl]

[Carboleum]

La touche ECHAP (ou ESC) ?

 

 

 

[Edité le 6/3/2010 par Carboleum]

[sbosarl]

bonjour ,

oui sa pourrai ,mais je veut pas arrete completement le lisp

je veut uniquement arreter la boucle de pose de x reperes

[(gile)]

Salut,

 

Je ne saisis pas bien la demande, mais si l'utilisateur saisit des points, il suffit de faire une boucle "tant qu'un point est saisi...". Si l'utilisateur fait Entrée au lieu de saisir un point, la boucle s'arrête.

 

(while (setq pt (getpoint "\nPoint suivant: ")) ...)

[sbosarl]

bonjour ,

mci , je me compliquais la vie seras correspont as se que je veut faire