FILTRES et DCL ........

[cadpolo]

UNE TRES BONNE ANNEE 2006 :cool:

A TOUS LES CADXPEINS ET XPIENNES .........

 

Voila j'ai un peti souci ,

Je suis passé au DCL avec mes filtres .......Pour ce q'il s'agit de la boites Ok......

Définition de l'action des boutons pas pb enfin je pense .....

Mais il y a une chose avec la list_Box en sélection multiple.

Pour récupérer la sélection de cette liste je pense avoir trouvé un code dans le tuto d'autocad :

 

(defun MK_LIST (readlist / count item retlist)
 (setq count 1)
 (while (setq item (read readlist))
   (setq retlist (cons (nth item displist) retlist))
   (while (and (/= " " (substr readlist count 1))
     (/= "" (substr readlist count 1)))
     (setq count (1+ count))
   )
   (setq readlist (substr readlist count))
 )
 (reverse retlist)
)

 

Ne sais pas comment faire ......... :casstet:

en faite je veux juste récupérer ma sélection de la list_box ...

sous forme de variable pour la retraité par la suite ......

 

Merci ......Si vous pouvez me renseigner

Salut ................................................................

 

[Patrick_35]

Salut

La variable retournée lors d'une sélection multiple peut-être par exemple "0 1 3 5 6 7 8"

ces valeurs doivent correspondre normalement aux valeurs d'entrée de ta liste

Pour les exploiter, un read permet de lire la première valeur

(setq val "0 1 3 5 6 7 8")
(setq n (read val))

n prend la valeur 0 qui correspond logiquement à un (nth 0 ta_liste)

Pour continuer à lire, je réduis ma variable val avec un

(setq val (substr val (+ (strlen (itoa n)) 2) (strlen val)))

je continue encore avec un read

Et pour que je puisse tout lire, j'inclus-le tout dans une boucle

(setq val "0 1 3 5 6 7 8")
(while (/= val "")
 (setq n (read val))
 (princ (strcat "\nEntrée : " (itoa n)))
 (setq val (substr val (+ (strlen (itoa n)) 2) (strlen val)))
)

 

@+

[cadpolo]

salut patrick_35...

 

merci pour ta réponse .......je vais éssayer ça .........

 

Et Bonne année .............