Classement

Ben en fait, c'était tout bête... : ;;;Changement du style de texte, hauteur et compression***** (setq Select (ssget "_X" (list (cons 0 "TEXT,MTEXT") (cons 7 "MONOTXT")))) (setq n 0) (while (setq Ent (ssname Select n)) (setq elst (entget ent) n (+ 1 n) elst (subst (cons 7 "Arial") (assoc 7 elst) elst) ;Style de texte elst (subst (cons 40 0.6) (assoc 40 elst) elst) ;Hauteur du texte elst (subst (cons 41 1) (assoc 41 elst) elst) ;Compression du texte ) ;_ Fin de setq (entmod elst) ) ;_ Fin de while Encore merci à tous... Denis...

Coucou Pour t'éviter le copier-coller et que ça rentre bien dans ta tête regarde cette image : Amicalement PS: le temps que je mette mon message en forme je me suis fait griller (trois fois zut..)

Salut Pour le filtre (ssget "_X" (list (cons 0 "TEXT,MTEXT") (cons 7 "MONOTXT"))) La boucle sur un jeu de sélection, tu sais faire. Pour changer le style de texte en Arial (entmod (subst (cons 7 "Arial") (assoc 7 ent) ent)) @+