Validation d\'une variable

[l56]

Bonjour,

 

Comment savoir à l'avance que la valeur que l'on souhaite donné à une variable ne sera pas bonne ?

 

Ex: (setvar "LTSCALE" -150)

 

Cette valeur négative me stopera la routine.Il faudrait donc que je fasse un test avant.

 

Comment ? ....

[(gile)]

Salut,

 

quand tu connais le type de valeur, comme dans ton exemple, tu peux faire un test avant :

 

 (if (and (numberp val)
()
(setvar "LTSCALE" val)
)

 

plus généralement, tu devrais pouvoir utiliser vl-catch-all-apply et vl-catch-all-error-p (pas testé avec setvar)

 

(setq result (vl-catch-all-apply 'setvar (list "LTSALE" val)))
(if (vl-catch-all-error-p result)
(princ "\nEntrée non valide.")
)

[Bred]

Salut,

(Le forum n'est pas le bon.)

(setq var-LTSCALE -150)
(if (> var-LTSCALE 0)
 (setvar "LTSCALE" var-LTSCALE))

 

j'Edite : Doublé !

 

[Edité le 24/9/2007 par Bred]

[l56]

Merci à vous 2

 

la solution avec vl-catch-all-error-p me convient mieux car je ne connaitrais pas toujours la variable et certaine variable peuvent accepter des valeurs négatives ou du texte ou seulement des INT et non pas des REAL ... etc ....

 

La solution de (gile) me semble idéal. (ça marche avec setvar, j'ai testé)