To a degree, that is what I am kinda trying to figure out. So I see this portion that finds the keyword. But I need it to run a lisp routine if that loads custom (Ribbons, Tool Palettes, etc.) loaded.
Am I heading the right direction with this?
(vl-load-com)
;If this exists in this path
(setq CurrentTemplatePath (vla-get-TemplateDwgPath *files*))
(if ((vl-string-search "C:\\" CurrentTemplatePath))
;then do load routine
(defun c:Setup_menus()
(load (findfile ".\\Library\\Setup_menus\\Setup_menus.lsp")))
(C:Setup_menus)
(princ)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq *files* (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
(setq CurrentSupportPaths (vla-get-SupportPath *files*))
(if (not (vl-string-search "H:\\Application Data\\" CurrentSupportPaths)) (vla-put-SupportPath *files* (strcat "H:\\Application Data\\" ";" CurrentSupportPaths)))
(vla-put-TemplateDwgPath *files* "H:\\Application Data\\Template\\")
Honestly, it would be nice if I could set this up where once the user clicks the icon shortcut it runs this code above.