Community
Hey guys,
I'm using a lisp routine to remove certain file paths from the SFSP but after running the lisp, the remaining SFSPs are all uppercase. Is there a way to get it to just leave the paths in lowercase? Any help is greatly appreciated!
(defun DelPath (PathtoDelete / lst tmp) (setq PathtoDelete (strcase PathtoDelete)) (setq lst (mapcar 'strcase (strParse (getenv "ACAD") ";"))) (if (member PathtoDelete lst) (progn (setq lst (vl-remove (strcase PathToDelete) lst)) (setq tmp "") (foreach folder lst (setq tmp (strcat tmp folder ";")) ) (setenv "ACAD" tmp) ) ) (princ) )
Solved! Go to Solution.
Solved by paullimapa. Go to Solution.
If you want it all in lowercase, change this line of the code from:
(setq tmp (strcat tmp folder ";"))
To
(setq tmp (strcat tmp (strcase folder T) ";"))
Area Object Link | Dwg Setup | Feet-Inch Calculator
Exchange App Store