Classement

Bonjour, En saisissant des blancs(des espaces) dans les propriétés personnalisées de tes versions LT? A+

Salut Par rapport à tes commentaires (and (ssget (list (cons 0 "TEXT,MTEXT"))); Si je sélectionne des textes (setq tx1 (getstring T "\nTexte à rechercher : ")); Si j'indique le texte à rechercher (setq tx2 (getstring T "\nTexte remplacant : ")); Si j'indique le texte remplacant (progn ; alors .... L'idée du and est que tant que la condition est remplie, il passe au suivant. Si je sélectionne un/des texte(s) --> Si j'indique le texte à rechercher --> Si j'indique le texte remplacant --> alors... Non, parcours la sélection (vla-get-activeselectionset ...) avec une boucle (vlax-for ...) Un cond fonctionne de la manière suivante. Si la première condition est remplie, je fais ce qui est demandé et je sors du cond sinon je passe à la condition suivante. Si la seconde condition est remplie, je fais ce qui est demandé et je sors du cond sinon je passe à la condition suivante. etc... L'idée du T est de dire, comme les autres conditions ne sont pas remplie, c'est forcément celle-ci. Dans la recherche de texte; je regarde le début, la fin et comme ce n'est ni l'un, ni l'autre, c'est forcément à l'intérieur @+

Salut , si tu utilise le ssget, autant trier sur les chaines directement: (ssget "x" '( (0 . "TEXT,MTEXT") (1 . "*1ere chaine*,*autre chaine*,`,")));_selectionne 1ere chaine autre chaine et , puis de lancer une série de (vl-string-subst new-str pattern string [start-pos]) sans tester auparavant par vl-string-search, puisqu'on sait que ça contient ce qu'on veut changer. mais je préfère personnellement pour une action comme celle ci parcourir bêtement la base, comme dans mon 1er exemple, car des textes à changer peuvent être dans des blocs, des cotations, des lignes repères, à des niveaux d'imbrication insensé (genre export all_plan ...) Gégé