There is one particular routine I would like to Load in after all other routines and commands have loaded from the acaddoc.lsp
Load the program using the
s::startup function - this is a 'post-initialisation' funciton which is evaluated after all other drawing startup processes.
Here is an example of a wrapper for the
load function to enable you to define a post-initialisation load call:
(defun post-load ( lsp )
(if (findfile lsp)
(if (= 'list (type s::startup))
(if (not (member (list 'load lsp 'nil) s::startup))
(setq s::startup (append s::startup (list (list 'load lsp 'nil))))
)
(eval (list 'defun-q 's::startup 'nil (list 'load lsp 'nil) '(princ)))
)
(prompt (strcat "\n\"" lsp "\" not found."))
)
)
Add an expression to your
acaddoc.lsp with the filename of the program to load, e.g.:
(post-load "mylisp.lsp")