Invite

[LUDWIG]

Rebonjour,

 

Nouvelle question :

Comment peut-on avoir une invite de ce style quand on lance un lisp ? Le résultat du choix sera une valeur utilisée dans le lisp.

http://img525.imageshack.us/img525/1284/sanstitrexn.png

 

Merci d'avance

 

[Edité le 19/11/2010 par LUDWIG]

[(gile)]

Re,

 

Regarde la fonction initget associée dans ce cas avec getkword.

 

(initget 1 "Clore Joindre LArgeur Modif-sommet Ajuster sPline Retrouver TYpelign gén Inverser annUler")
(setq opt (getkword "\nEntrez une option [Clore/Joindre/LArgeur/Modif-sommet/Ajuster/sPline/Retrouver/TYpelign gén/Inverser/annUler]: "))

 

ou avec une option par défaut :

(initget "Oui Non")
(setq rep 
 (cond
   ((getkword "\nÇa va bien ? [Oui/Non] : "))
   ("Oui")
 )
)

qui peut s'écrire aussi

(initget "Oui Non")
(or
 (setq rep (getkword "\nÇa va bien ? [Oui/Non] : "))
 (setq rep "Oui")
)

[bonuscad]

Je rajoute juste qu'il est souhaitable de vérifier l'état de la variable "SHORTCUTMENU", car suivant sa valeur (autre que celle par défaut) elle peu influencer le comportement de ce menu contextuel.

 

Voir une réponse ancienne.

[LUDWIG]

Merci bien messieurs

Et merci aussi pour shortcutmenu qui me permettra de forcer l'affichage du menu à l'écran