PB boucle wilde

[jacobs33]

Bonsoir,

 

Ma boucle tourne en boucle !!!

 

 

(defun c:chgpolice (/ style police)

(setq style (tblnext "style" T))

(while style

(setq police (strcase (cdr (assoc 3 style))))

(command "-style" (cdr (assoc 2 style)) "ROMANS.SHX" "" "" "" "" "" "")

)

(setq style (tblnext "style"))

)

)

 

Quelqu'un peux t'il m'aider

Merci

[(gile)]

Salut,

 

L'expression (setq style (tblnext "style")) n'est pas à l'intérieur de la boucle (de plus il y a une paranthèse fermante de trop).

 

Utilise l'éditeur VisualLISP, un double-clic devant une paranthèse ouvrante ou derrière une paranthèse fermante et toute l'expression est sélectionnée.

 

http://img192.imageshack.us/img192/5711/styledz6.png

[jacobs33]

Et oui a force de chercher on fini pour s'enbroyer !!!!

 

(defun c:chgpolice (/ style police)
 (setq style (tblnext "style" T))
 (while style
   (setq police (strcase (cdr (assoc 3 style))))
   (command "-style"
     (cdr (assoc 2 style))
     "ROMANS.SHX"
     ""
     ""
     ""
     ""
     ""
     ""
   )
   (setq style (tblnext "style"))
 )
) 

 

Voila ça fonctionne mieux

merci pour ton coup pouce gile.