LISP makes SFSP Uppercase

[Jeffery.B]

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)
)

[paullimapa · Accepted 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

[Jeffery.B]

Thanks Paul, it works great!