[RESOLU ] REMPLACER UN TEXTE

[PHILPHIL]

bonjour

 

pour un lisp

 

je cherche un bout de lisp permettant de remplacer n'importe quel texte par n'importe quel texte

( les longueurs peuvent etre differente donc et l'emplacement dans le texte de base non définit )

 

j'ai du voir passer ca sur le site, créer par les experts du lisp mais je ne le retrouve plus.

 

est ce que vous avez ca en stock ?

 

merci

 

Phil

[je56]

Bonjour Phil

 

Et si tu essayais tout simplement la commande "Rechercher" native d'AutoCAD ?

 

Eric

[DenisHen]

Salut Phil.

 

Je t'ai écris ça :

(defun c:Phil_RemplTxt (/)
 (setq Txt_Old (getstring (strcat "Taper le texte à remplacer :")))
 (setq Txt_New (getstring (strcat "Taper le texte de remplacement :")))
 (setq Select (ssget "_X" '((0 . "TEXT"))))
 (setq n 0)
 (while (setq Ent (ssname Select n))
   (setq elst (entget Ent)
         n    (+ 1 n)
   ) ;_ Fin de setq
   (if (= (cdr (assoc 1 elst)) Txt_Old)
     (progn (setq elst (subst (cons 1 Txt_New) (assoc 1 elst) elst)) (entmod elst))
   ) ;_ Fin de if
 ) ;_ Fin de progn
 (princ)
)