Hiya gang,
I've got this really useful lisp from Lee Mac's site that appends additional paths to your AutoCAD search path list.
It works fine except that I can't seem to add a root drive letter (in this case R:\).
It adds "R:\Slides", "R:\Fonts", and "R:\Patterns" just fine, but not "R:"
I'm stumped. Hoping you can help.
Code:
;;; Adds folders to support path
(defun LM:sfsp+ ( lst )
( (lambda ( str lst )
(if (setq lst
(vl-remove-if
'(lambda ( x )
(or (vl-string-search (strcase x) (strcase str))
(not (findfile x))
)
)
lst
)
)
(setenv "ACAD" (strcat str ";" (apply 'strcat (mapcar '(lambda ( x ) (strcat x ";")) lst))))
)
)
(vl-string-right-trim ";" (getenv "ACAD"))
(mapcar '(lambda ( x ) (vl-string-right-trim "\\" (vl-string-translate "/" "\\" x))) lst)
)
)
(LM:sfsp+ '("R:\\" "R:\\Slides" "R:\\Fonts" "R:\\Patterns"))