For Support Path code: http://forums.augi.com/showthread.ph...48#post1298948
Start of my acad.lsp may help get you started:
Code:
(princ "\n\"Acad.lsp\" loading. ")
(vl-load-com)
(defun AddSupportPath (dir / Cpath Uname)
; http://forums.augi.com/showthread.php?163327-Adding-support-file-search-path-as-the-first-(LISP)&p=1298948#post1298948
; (setq Cpath (getenv "ACAD") Uname (strcase (getenv "Username") T) dir (vl-string-subst Uname "%Username%" dir))
(setq Cpath (getenv "ACAD") Uname (getenv "Username") dir (vl-string-subst Uname "%Username%" dir))
(princ "\n\nCpath = ")(princ Cpath)
(princ "\n\ndir = ")(princ dir)
(princ "\n\n(vl-string-search dir Cpath) = ")(princ (vl-string-search dir Cpath))
; (or (vl-string-search dir Cpath) (setenv "ACAD" (strcat Cpath ";" dir)))
(or (vl-string-search (strcase dir) (strcase Cpath)) (setenv "ACAD" (strcat Cpath ";" dir)))
(princ)
)
(AddSupportPath (strcat"D:\\Users\\" (getenv "Username") "\\AppData\\Roaming\\Autodesk\\VLisp"))
(AddSupportPath "G:\\BeaufordT\\Autocad\\Application Data\\Customization")
(AddSupportPath "G:\\BeaufordT\\Autocad\\Application Data\\Fonts")
;(AddSupportPath "G:\\BeaufordT\\Autocad\\FDOT2014.C3D\\Support\\Linetype")
(defun AddTrustedPath (dir / trusted Uname)
; http://forums.augi.com/showthread.php?163327-Adding-support-file-search-path-as-the-first-(LISP)&p=1298948#post1298948
(setq trusted (getvar 'trustedpaths) Uname (getenv "Username") dir (vl-string-subst Uname "%Username%" dir))
(or (vl-string-search dir trusted) (setvar 'trustedpaths (strcat trusted ";" dir)))
(princ)
)
(AddTrustedPath "D:\\Users\\%Username%\\AppData\\Roaming\\Autodesk\\C3D 2018\\enu\\Support")
(AddTrustedPath (strcat"D:\\Users\\" (getenv "Username") "\\AppData\\Roaming\\Autodesk\\C3D 2018\\enu\\Support"))
(AddTrustedPath (vl-filename-directory (findfile "VDOT.LSP")))
(AddTrustedPath (strcat"D:\\Users\\" (getenv "Username") "\\AppData\\Roaming\\Autodesk\\VLisp"))
(defun AddPlotStylePath (dir / PlotStylePath Uname)
; http://forums.augi.com/showthread.php?168357-Plotting-another-company-s-drawing&p=1322685&viewfull=1#post1322685
(setq PlotStylePath (getenv "PrinterStyleSheetDir") Uname (getenv "Username") dir (vl-string-subst Uname "%Username%" dir))
(or (vl-string-search dir PlotStylePath) (setenv "trustedpaths" (strcat PlotStylePath ";" dir)))
(princ)
)
(AddPlotStylePath "G:\\Acad")
(AddPlotStylePath "G:\\BeaufordT\\Autocad\\Application Data\\Plot Styles")
(setenv "PrinterStyleSheetDir" "C:\\Users\\%Username%\\appdata\\roaming\\autodesk\\c3d 2018\\enu\\plotters\\plot styles;G:\\Acad;G:\\BeaufordT\\Autocad\\Application Data\\Plot Styles")
(if(vl-string-search "enu"(vla-get-CustomIconPath (vla-get-files (vla-get-preferences (vlax-get-acad-object)))))
(vla-put-CustomIconPath (vla-get-files (vla-get-preferences (vlax-get-acad-object))) (strcat "D:\\Users\\" (getenv "username") "\\AppData\\Roaming\\Autodesk\\C3D 2018\\enu\\Support\\Icons"))
) ; http://www.cadtutor.net/forum/showthread.php?69519-Adding-Folders-to-Support-File-Search-Path&p=475896&viewfull=1#post475896