(defun C:TC ( / ss i ent elist str newstr) (setq ss (ssget '((0 . "TEXT,MTEXT")))) (if ss (repeat (setq i (sslength ss)) (setq ent (ssname ss (setq i (1- i))) elist (entget ent) str (cdr (assoc 1 elist)) newstr (if (eq str (strcase str t)) (strcase str) (strcase str t)) ) (entmod (subst (cons 1 newstr) (assoc 1 elist) elist)) ) ) (princ) ) TC Pro Tip: Create a master folder for your LISP files and add its path in AutoCAD (Type OPTIONS → Files → Support File Search Path). Then add that folder to the Startup Suite once—every routine inside will auto-load.
Unlock Productivity: A Guide to Downloading & Using AutoCAD LISP Routines autocad lisp download
Are you spending too much time on repetitive tasks in AutoCAD—like counting blocks, drawing standard details, or batch-renaming layers? LISP routines ( .lsp files) are the secret weapon that can automate these chores instantly. (defun C:TC ( / ss i ent elist