[Résolu] Petite option dans un initget

[DenisHen]

Bonjour à la communauté.

 

Voilà, j'ai fais un code de 250 lignes, raison pour laquelle je ne le poste pas, mais dans celui-ci, j'ai une question posée à l'utilisateur :

  (initget 1 "A M N")
 (setq OptionIns (getkword "Placement des textes Automatiquement Manuellement Non [A/M/N] :"))

Tout fonctionne parfaitement, mais j'aimerais ajouter une réponse par défaut si l'utilisateur ne répond rien, juste un [ENTRER] au clavier ou à la souris qui serait "Automatiquement", que ça donne ceci à peu près :

Placement des textes (Automatiquement) Manuellement Non [A/M/N] :

Si quelqu'un a un conseil ou une astuce, je suis preneur...

 

Denis...

[Patrick_35]

Salut

 

(setq def "Automatiquement")
(initget "Automatiquement Manuellement Non")
(or (setq OptionIns (getkword (strcat "Placement des textes [Automatiquement/Manuellement/Non] <" def "> : ")))
 (setq OptionIns def)
)

 

@+

[DenisHen]

Salut Patrick_35.

 

C'est génial, ça fonctionne parfaitement ! !

 

Denis...

[Patrick_35]

Tu peux pousser le bouchon plus loin, à savoir, sauver la variable def dans les registres (avec setenv/getenv) ou dans le dessin (avec les ldata)

 

@+

[DenisHen]

Effectivement, je peux aller jusque là.

 

Mais j'utilise "Automatique" une fois sur deux, alors que les deux autres, c'est tantôt l'une, tantôt l'autre.

 

Et j'ai ajouté d'autres options :

  (setq def "Automatiquement")
 (initget "Automatiquement Manuellement Gauche Droit Non")
 (or (setq OptionIns
            (getkword
              (strcat "Placement des textes [Automatiquement/Manuellement/Gauche/Droit/Non] <"
                      def
                      "> : "
              ) ;_ Fin de strcat
            ) ;_ Fin de getkword
     ) ;_ Fin de setq
     (setq OptionIns def)
 ) ;_ Fin de or

 

Mais je le saurais pour la prochaine fois.

 

Et merci encore...