Text Replace XXX with X

Anyone have a routine to search a drawing and replace plain ol text XXX with X?

Thanks.

John Hatfield

 

command: find

 

You can use the built in function find.

Tim

 

Try this - been using this for over 13 years:

; CHGTXT.LSP
; CHANGES TEXT STRING
(defun c:chgtxt (/ p l n e os as ns st s nsl osl sl si chf chm cont)
(setq chm 0 p (ssget)) ; Select objects
(if p (progn ; If any objects selected
(setq cont t)
(while cont
(setq osl (strlen (setq os (getstring "\nOld string: " t))))
(if (= osl 0)
(princ "Null input invalid")
(setq cont nil)
)
)
(setq nsl (strlen (setq ns (getstring "\nNew string: " t))))
(setq l 0 n (sslength p))
(while (< l n) ; For each selected object...
(if (= "TEXT" ; Look for TEXT entity type (group 0)
(cdr (assoc 0 (setq e (entget (ssname p l))))))
(progn
(setq chf nil si 1)
(setq s (cdr (setq as (assoc 1 e))))
(while (= osl (setq sl (strlen
(setq st (substr s si osl)))))
(if (= st os)
(progn
(setq s (strcat (substr s 1 (1- si)) ns
(substr s (+ si osl))))
(setq chf t) ; Found old string
(setq si (+ si nsl))
)
(setq si (1+ si))
)
)
(if chf (progn ; Substitute new
string for old
(setq e (subst (cons 1 s) as e))
(entmod e) ; Modify the
TEXT entity
(setq chm (1+ chm))
))
)
)
(setq l (1+ l))
)
))
(princ "Changed ") ; Print total
lines changed
(princ chm)
(princ " text lines.")
)

 

for advanced search/replace (regular expressions) you can use srxText:
http://www.cadforum.cz/cadforum_en/qaID.asp?tip=3229

Vladimir Michl, Xanadu, www.xanadu.cz