[Résolu] Pourquoi est-ce différent

[DenisHen]

Bonjour à la communauté.

 

Voilà, j'avais écris un petit bout de code comme cà :

(foreach PosLst LstCalq
   (if (setq
         Select (ssget
              	"_X"
                  	'((0 . "INSERT")
                       (8 . (car PosLst))
                   )
            	) ;_ Fin de ssget
       ) ;_ Fin de setq
     (command "chprop" Select "" "ca" (cdr (assoc (car PosLst) LstCalq )) "" ) 
   ) ;_ Fin de if
 )

Mais AutoCAD me sortait un mauvais argument sur le ssget... J'ai donc repris mon code pour en faire ceci :

(foreach PosLst LstCalq
   (if (setq
         Select (ssget
              	"_X"
              	(list (cons 0 "INSERT") (cons 8 (car PosLst))
                   )
            	) ;_ Fin de ssget
       ) ;_ Fin de setq
     (command "chprop" Select "" "ca" (cdr (assoc (car PosLst) LstCalq)) "")
   ) ;_ Fin de if
 )

Le truc bizzare, c'est que le deuxième code fonctionne...

 

Si quelqu'un pouvait m'aider à comprendre...

 

Denis...

[Patrick_35]

Salut

 

C'est à cause de la variable dans le 1er code

Quand tu utilises une liste, l'argument derrière un quote n'est pas évalué, donc erreur.

Tu peux aussi l'écrire comme cela

(list '(0 . "INSERT") (cons 8 (car PosLst)))

 

Deux sujets à lire

http://cadxp.com/topic/29334-listes-arguments-de-fonctions/

http://cadxp.com/topic/28642-arguments-et-variables/

 

@+

[-Olivier-]

Bonjour DenisH,

 

Dans le premier,

(car PosLst)

n'est pas interprété, donc le ssget plante.

Olivier

[DenisHen]

Bonjour à vous...

 

Ok, je comprend mieux, bien que celà me semble tout de même "curieux" que "l'argument derrière un quote n'est pas évalué"

 

En tous cas, merci à vous.

 

Denis...

[-Olivier-]

bien que celà me semble tout de même "curieux" que "l'argument derrière un quote n'est pas évalué

 

La fonction quote permet justement d'empêcher l'évaluation de l'argument qui lui est fourni.

 

Olivier