lisp remplacer

[bigsyke]

Bonjour à tous!

 

J'ai trouver sur le forum le super lisp de gile suivant pour remplacer du texte:

 

defun c:test (/ ss n txt elst str)

 

(defun rep-txt (elst / str)

(setq str (cdr (assoc 1 elst)))

(while (vl-string-search "%%C" str)

(setq str (vl-string-subst "HA" "%%C" str))

)

(entmod (subst (cons 1 str) (assoc 1 elst) elst))

(entupd (cdr (assoc -1 elst)))

)

 

(and (setq ss (ssget "_X" '((0 . "TEXT,MTEXT,DIMENSION,INSERT") (410 . "Model"))))

(setq n 0)

(while (setq txt (ssname ss n))

(setq elst (entget txt))

(if (= (cdr (assoc 0 elst)) "INSERT")

(progn

(setq ent (entnext txt))

(while (and ent

(/= (cdr (assoc 0 (setq elst (entget ent)))) "SEQEND")

)

(if (member (cdr (assoc 0 elst))

'("TEXT"

"MTEXT"

"DIMENSION"

"ATTRIB"

)

)

(rep-txt elst)

)

(setq ent (entnext ent))

)

)

(rep-txt elst)

)

(setq n (1+ n))

)

)

(princ)

)

 

Néanmoins je me demande ce qu'il faudrait modifier pour pouvoir changer plusieurs textes au lieu d'un seul car mes connaissances en lisp sont limités...quelqu'un aurait une idée?