Topic: loading lisp routines

[danny]

thanks CAB,
This (autoload) is sweet.  I like the fact that it will only load a lisp file on demand.

[ronjonp]

I modified this routine sometime ago to write the autoload lines for all the lisp routines in a selected dir. The output file name is ACAD.LSP in the same dir picked. It's nice to use....especially if you have 100+ routines.

Code: [Select]

(defun c:acadlsp (/ fname dir dirlist file cntr)
  (setq fname (getfiled "Select a lisp file directory" "" "lsp" 8))
  (if fname
    (progn
      (setq dir     (vl-filename-directory fname)
    dirlist (vl-directory-files dir "*.lsp")
    file    (open (strcat dir "\\ACAD.LSP") "w")
    cntr    0
      )
      (repeat (length dirlist)
(setq fname (vl-filename-base (nth cntr dirlist)))
(write-line
  (strcase
    (strcat "(AUTOLOAD \"" fname "\" '(\"" fname "\"))")
    T
  )
  file
)
(setq cntr (1+ cntr))
      )
      (close file)
    )
  )
  (princ dir)
  (princ)
)
It will work with spaces in the directory.

*cleaned up code*

Ron

[CAB]

Very cool Ron.

[Birdy]

Hmmm... Interesting topic. Quite a few ways to skin this kitty.  I've been doing a few different things and just a week or so ago set up something similar to

have an acad.lsp with:

(AUTOLOAD "a2c" '("a2c"))
(AUTOLOAD "abl" '("abl"))
(AUTOLOAD "acret" '("acret"))......

except it's an acaddoc.lsp file.
A few lisps are "load" rather than "autoload" though.
I used to use the startup suite, but had periodic problems with it. Prolly something I did to screw it up though.

All our custom lisps are in one folder on the server and users s'port paths point to it.  I can just add files as I create them, and they're instantly available to everyone.

[danny]

ron,
dude...you just saved me choke time,
mahalo,

[CADaver]

Cool Ron, thanks.

[ronjonp]

Glad to have helped