Challenge 9

[Patrick_35]

Bonsoir

Cette fois ci, c'est un challenge je l'ai trouvé sur un autre site, mais je le trouve fort intéressant, instructif et utile

 

Il s'agit d'effacer tous les textes/mtextes vides dans un dessin

 

@+

 

[(gile)]

Salut,

 

(defun c:test (/ ss)
 (if
   (setq ss (ssget "_X" '((0 . "*TEXT") (1 . " ,"))))
   (mapcar '(lambda (x) (entdel (cadr x))) (ssnamex ss))
 )
) 

[bonuscad]

Ha! les filtres...

 

(1 . " ,")

 

Simple (faut-il y penser) mais très efficace.

 

Si j'ai bien compris, filtre tout les text ou mtext comportant soit qu'un blanc ou rien du tout comme valeur de chaine de caractères.

 

Le filtre à lui tout seul, fait tout le boulot.

 

 

[Patrick_35]

Bravo (gile) :D

Trop facile cette fois-ci ;)

Mais c'est surtout pour souligner le filtre

 

@+

[LUDWIG]

j'avais un jour récupéré un lisp qui faisait ça, sans doute plus long et moins efficace.

Mais j'avais rencontré un pb sur un fichier qui comportait des textes composés de séries d'espaces. Comment faire dans ce cas pour sélectionner les texte vide ou ne comprenant que des espaces ?

[(gile)]

Chez moi, ça fonctionne aussi avec des séries d'espaces.