Lisp qui s\'arrête avant de tout traiter!

[jarod34]

Bonsoir à tous!

 

Je viens querir un peu d'aide!

 

Voici un petit code réalisé comme j'ai pu et qui permet dans une sélection de textes que remplacer tout les multiples de 5 par un 0.

 

Mon problème c'est que la commande s'arrête dès qu'elle rencontre un multiple de 5 sans traiter le reste de la sélection!!!!!!!!!!!!!! Je n’arrive pas à voir d'où ça vient!

 

Voici le code:

 

(defun c:aaa ()

(debut)

(setq js (ssget (list (cons 0 "TEXT"))))

(if (not js) (exit))

(setq i 0)

(while (< i (sslength js))

(setq e (entget (ssname js i)))

(setq r (distof (cdr (assoc 1 e))))

(setq r (atoi (rtos r 2 0)))

(if (zerop (rem r 5))

((entmod (subst (cons 1 (rtos r 2 0)) (assoc 1 e) e)))

(progn

(setq r 0)

(entmod (subst (cons 1 (rtos r 2 0)) (assoc 1 e) e))

)

)

(setq i (+ i 1))

)

(fin)

)

 

Je suis preneur de tous conseils et solution! Merci d'avance ;)

 

[jarod34]

L'illumination qui survient juste en postant! ce site est magique!

 

voilà la solution si jamais ça interresse quelqu'un!

(defun c:aaa ()

(debut)

(setq js (ssget (list (cons 0 "TEXT"))))

(if (not js) (exit))

(setq i 0)

(while (< i (sslength js))

(setq e (entget (ssname js i)))

(setq r (distof (cdr (assoc 1 e))))

(setq r (atoi (rtos r 2 0)))

(if (zerop (rem r 5))

(progn

(entmod (subst (cons 1 (rtos r 2 0)) (assoc 1 e) e)))

 

(progn

(setq r 0)

(entmod (subst (cons 1 (rtos r 2 0)) (assoc 1 e) e))

)

)

(setq i (+ i 1))

)

(fin)

)

 

Bonne soirée à tous

[Tramber]

Salut :cool:

Pourquoi ne pas poster tes messages dans l'un des forums lisp ?

[jarod34]

Effectivement ça serai plus logique!

Je regarde pour déplacer dès que possible!

 

;)

[Tramber]

C'est le boulot du modo !

Mais il ne doit pas être là trop souvent en ce moment ! Vacances ? :D

[lili2006]

Bonjour à toutes et tous,

 

Vacances ?

 

Malheureusement non !

 

Séminaire à Montpellier concernant la réforme du lycée et l'adaptation de notre futur public en BTS,...

 

Plus les projets de fin d'études qui me prennent un tp fou,...

 

Enfin, voilà qui est fait pour le déplacement du post,

 

@+, :P