command or

[tiboulen]

help : pourquoi ce qui suit ne marche pas

 

(defun c:test ()
(while
 (or (null (setq entpick (entget (car (entsel "\Designer un élément")))))      
      (/= (cdr (assoc 0 entpick)) "INSERT")     
      (/= (cdr (assoc 0 entpick)) "LINE")
 );;or	
(prompt "\nl'element doit etre un bloc ou une ligne\n")
);;while
)
alors que ceci marche
(defun c:test ()
(while
 (or (null (setq entpick (entget (car (entsel "\Designer un élément")))))      
      (/= (cdr (assoc 0 entpick)) "INSERT")     
 );;or	
(prompt "\nl'element doit etre un bloc\n")
);;while
)

merci

 

[bonuscad]

OR fait une évaluation de gauche à droite et CESSE toute évaluation dès qu'une condition est non nulle.

 

Par exemple si l'entité sélectionné est différente d'un bloc (condition vrai) la condition LINE ne sera pas vérifié

 

Essayes de changer l'ordre ou d'utiliser AND.

[Patrick_35]

Bonjour

 

Je reponds sans le bonjour ?

 

Oui ;)

 

(defun c:test ()
 (setq entpick T)
 (while entpick
   (if (and (setq entpick (entsel "\Designer un élément"))
     (setq entpick (entget (car entpick)))
     (or (= (cdr (assoc 0 entpick)) "INSERT")
	 (= (cdr (assoc 0 entpick)) "LINE")
     );;or
);;and
      (prompt "\nLa suite de mon lisp\n")
      (prompt "\nl'element doit etre un bloc ou une ligne\n")
   );;if
 );;while
)

 

@+

[tiboulen]

bonjour

merci pour la reponse et desole pour le message sans bonjour, ce n'est pas dans mes habitudes

a bientot