Retirer des éléments d\'une liste

[Dieunis]

Bonjour à tous,

 

pour les besoins d'un lisp de séléction, je récupère la liste des calques de mon dessin grace à ce petit bout de code récupérer dans d'autre lisp.

 

(while (setq lay (tblnext "layer" (not lay)))

(setq layers (cons (cdr (assoc 2 lay)) layers)))

(setq layers (acad_strlsort layers))

 

et ensuite j'aimerais supprimer de la liste obtenue tous les calques dont le nom commence par Xref, le but étant d'avoir un liste qui contient tous les calques sauf ceux des xref.

 

Comment faire ?

 

[Tramber]

et ensuite j'aimerais supprimer de la liste obtenue tous les calques dont le nom commence par Xref,

 

Le mieux alors est de ne pas les mettre !

 

(setq lay nil layers nil)
(while (setq lay (tblnext "layer" (not lay)))
 (if(not(=(substr (cdr (assoc 2 lay)) 1 4)"Xref"))
   (setq layers (cons (cdr (assoc 2 lay)) layers))))
(setq layers (acad_strlsort layers))

[Tramber]

(vl-remove-if '(LAMBDA (x)(=(substr x 1 4)"Xref"))layers)

 

Pour ta demande précise.

[Dieunis]

Merci à toi

 

après traduction de la première solution, on lance la boucle pour récupérer les calques et on lui dit :

ne pas inclure si les 4 première lettres du nom sont égale à Xref.

j'ai tout compris :)

 

pour la deuxième solution, j'avais tester avec vl-remove, mais j'ai du mal à cerner les fonctions et lambda.

[Tramber]

C'est bien ça.

 

Pour la 2ème.... :cool:

Faut apprendre ;)

C'est plus simple qu'il n'y parait.

"remove if" en français donne "enlève si"

Donc enlève de layers si à tout membre on constate que (=(substr x 1 4)"Xref").

 

Le fait de mettre un x, un ô ou un toto n'a pas d'importance. la fonction provisoire lambda a cependant besoin de connaitre x dans sa déclaration d'où Lambda(x).

On peut trouver des Lambda(a b) quand il s'agit par exemple de comparer des éléments contigus de listes (aide sur VL-SORT à regarder).