[Résolu] Problème de majuscule dans un ssget

[DenisHen]

Bonjour à tous.

 

Voilà, j'avais une routine qui fonctionnait super bien avec les levés d'un collègue topo.

 

Toutes les voies étaient nommées en majuscule (RUE PATATI, AVENUE PATATA...).

 

Mon problème est que maintenant, j'ai plusieurs collègues qui me font des levés et ils ont tous leur méthode, donc, je me retrouve avec des textes soit tout en majuscule, soit tout en minuscule, soit les deux (Rue PATATI...).

 

J'avais écris ça qui fonctionnait très bien :

    (setq Select (ssget "_X"
                       (list (cons 0 "TEXT,MTEXT")
                             (cons 1 "RUE*,PLACE*,ALLEE*,BVD*,BOULEVARD*,IMP*,IMPASSE*,QUAI*,RUELLE*,AVENUE*,ROUTE*,CARREFOUR*,ROND*")
                       ) ;_ Fin de list
                ) ;_ Fin de ssget
   ) ;_ Fin de setq

 

Comment faire pour tout passer en majuscule (ou en minuscule) juste pour le ssget, j'aimerais ne pas toucher au texte ?

 

Si quelqu'un a une astuce, un conseil... Je suis preneur...

[didier]

Coucou

 

Ça nous manquait : Si quelqu'un a une astuce, un conseil... Je suis preneur...

je te propose un petit coup de TCASE avant de faire la sélection ?

[DenisHen]

Salut didier, et merci pour cette réponse.

 

Ça nous manquait : Si quelqu'un a une astuce, un conseil... Je suis preneur...

Je ne veux pas donner "d'ordre"... ;)

 

je te propose un petit coup de TCASE avant de faire la sélection ?

J'ai couru sur ton site, mais je n'ai pas trouvé Tcase, donc, l'aide AutoCAD m'a donné un lien vers un ExpressTools, mais cette commande changera mon texte, d'après ce que j'ai compris, et je n'y tiens pas.

[vincentp010]

Bonjour,

 

Je propose ceci:

(setq Select (ssadd) i 0)
(setq s0 (ssget "_X" (list (cons 0 "TEXT,MTEXT") )))
(while (< i (sslength s0))
 (if (wcmatch (strcase (cdr (assoc 1 (entget (ssname s0 i))))) "RUE*,PLACE*,ALLEE*,BVD*,BOULEVARD*,IMP*,IMPASSE*,QUAI*,RUELLE*,AVENUE*,ROUTE*,CARREFOUR*,ROND*")
   (ssadd (ssname s0 i) Select)
 )
 (setq i (1+ i))
)

[DenisHen]

Salut Vincent... Et que dire...

 

Mille mercis pour cet astuce que je n'aurais JAMAIS trouvé seul... Trop pointu pour moi... ;)

 

Encore merci...

[Patrick_35]

Salut

 

On peut e,core simplifier en utilisant

(cons 0 "*TEXT")

 

@+