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.
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
Unlock Productivity: A Guide to Downloading & Using AutoCAD LISP Routines Open the
(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 Notepad, paste the code below, save as ToggleCase