Merci bien Maximilien. C'est trés cool d'avoir cherché une solution.
Malheureusement j'ai trouvé un truc beaucoup plus simple.
(setq jour (menucmd "M=$(edtime,$(getvar,DATE),DD)")
mois (menucmd "M=$(edtime,$(getvar,DATE),MO)")
annee (menucmd "M=$(edtime,$(getvar,DATE),YY)")
Date (strcat jour "/" mois "/" annee))
Merci encore.
Tu n'aurais pas un moyen pour déboguer ça:
(setq listef '(A4 A3 A2 A1 A0))
(setq n 0)
(start_list "f" 2 0)
(repeat (length listef)
(add_list (nth n listef)));je n'arrive pas a définir en temps que string les A4 A3...
(setq n (+ 1 n))
)
(end_list)
(action_tile "f" "(setq choix (get_tile $key))");pb identique
bye bonne fête de fin d'année