Autolisp et fonction while

Bonjour à tous,

je me suis mis hier à Autolisp. J'ai jusqu'à présent réussi à m'en sortir tout seul, mais me voilà bloqué sur la fonction while.
Voici mon programme:

Code:

---

1 2 3 4 5 6 7 8

(while (<= I 10) (if (= (substr (cdr tmp) 1 1) "A") (setq I (+ I 1)) (command (alert "aa")) ) )

---

j'obtiens systematiquement un message d'erreur:
Erreur: Erreur pour le type d'argument: stringp 11

A noter que le 11 devient 21 si je change en
(while (<= I 20)

cela veut dire que mon I n'est pas bien défini.
Je l'ai défini plus haut de la sorte:
(setq tmp (assoc "TITLE" lattstr) I 1)

Merci pour votre aide!!!!!

Commençons par le début :tagcode:
Ceci permettra d'avoir du code lisible.

Ensuite, en Lisp on évite les whiles. Pourquoi avoir choisi ce dernier au lieu d'une forme récursive ?

Finalement, on manque d'éléments. Ton I n'est pas utilisé dans le morceau de code que tu donnes pour autre chose que compter. Le 11 ne devrait pas générer d'erreur. Il est probable que ce soit plutôt le code qui suit qui provoque un problème. Car 11 est la valeur de I après la boucle. Le fait d'utiliser un while ne t'aide probablement pas.