(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.
Open the .lsp file in Notepad before loading it. Scan for suspicious words like (command “_.erase” “_all”) , (vl-file-delete) , or long strings of random characters. One Routine to Start With (No Download Required) Try this simple routine to swap selected text case. Open Notepad, paste the code below, save as ToggleCase.lsp , then load it via APPLOAD. 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
Unlock Productivity: A Guide to Downloading & Using AutoCAD LISP Routines Open the