égalité pour tous

[capde06]

je ne comprend pas pourquoi cette egalité ne marche pas

 

 

(if (= (getvar "INSBASE") (list 0.0 0.0 0.0))

(princ "BASE CORRECTE" )

(princ "BASE INCORRECTE" )

)

 

merci

[bonuscad]

Salut,

 

La fonction d'égalité (=), ainsi que la fonction (eq) sont plus destiné à des atoms

Pour des listes, il vaut mieux utiliser la fonction (equal), éventuellement avec un fuzz (tolérance)

[(gile)]

Salut,

 

Petite précision si je peux me permettre,

- la fonction = ne fonctionne qu'avec des arguments chaîne ou nombre (types STR INT REAL)

 

- la fonction eq fonctionne avec tout type d'expression LISP comparable, mais ne retourne T que si les deux expressions sont affectées au même objet :

(setq lst1 '(0.0 0.0 0.0) lst2 lst1)

(eq lst1 lst2) retourne T

(eq lst1 '(0.0 0.0 0.0)) retourne nil

donc (eq (getvar "INSBASE") (list 0.0 0.0 0.0)) retournera toujours nil

 

- la fonction equal compare le résultat de l'évaluation de tout type d'expression LISP

(equal lst1 lst2) retourne T

(equal lst1 '(0.0 0.0 0.0)) retourne T

donc (eq (getvar "INSBASE") (list 0.0 0.0 0.0)) retournera T si INSBASE est bien (0.0 0.0 0.0)

De plus la fonction equal accepte un argument "tolérance" qui peut être utile quand on compare des nombres et surtout des points.

[capde06]

merci a vous

en plus je le savais, mais en ce moment j'ai un manque d'entrainement.

 

bon, je vais réviser

 

encore merci