Unlock Productivity: A Guide to Downloading & Using AutoCAD LISP Routines
Have a specific task you want to automate? Reply with what you do daily—chances are, a LISP already exists for it.
(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
Have a specific task you want to automate? Reply with what you do daily—chances are, a LISP already exists for it. autocad lisp download
(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