How autoload subroutines code

[MANTONIOPM]

Goodnight. I would like to know how to load subroutines that I have in a directory, so that they only load when executing their command. The initial code is the following:

;loads all needed subroutines
(vl-load-com)
(if (findfile ".\\Subrutinas\\LeeMac")
(mapcar '(lambda (x)
(if (wcmatch (strcase x) "*.LSP")
(load
(strcat (findfile ".\\Subrutinas\\LeeMac") "\\" x)
) ;_load
) ;_ if
) ;_ lambda
(vl-directory-files
(findfile ".\\Subrutinas\\LeeMac")
) ;_ vl-directory-files
) ;_ mapcar
) ;_ if

I tried to change "load" for "autoload", but it does not work.

[Kent1Cooper]

---

@MANTONIOPM wrote:

Goodnight. I would like to know how to load subroutines that I have in a directory, so that they only load when executing their command. ….

….
(load
(strcat (findfile ".\\Subrutinas\\LeeMac") "\\" x)
) ;_load
….

---

The (autoload) function also needs to be given a list of command names defined in the file, to be able to recognize those when called for, and load the file itself:

(autoload

  (strcat (findfile ".\\Subrutinas\\LeeMac") "\\" x)

  '("CommandName1" "CommandName2" "CommandName3")

)

[Even if only one command is defined, it needs to be put into a list like that.]

[dgorsman]

Most run of the mill routines won't affect anything when loaded.  Just load them when the drawing is opened.

[MANTONIOPM]

Good morning, excuse me, but it doesn't work. I wrote this code:

(autoload

(strcat (findfile ".\\Subrutinas\\LeeMac") "\\" x)

'("cajaenvolvente" "strike" "strike2" "strike3" "under" "under2" "overunder2")
)

[dbhunia]

---

@MANTONIOPM wrote:

Goodnight. I would like to know how to load subroutines that I have in a directory, so that they only load when executing their command. The initial code is the following:

.......

---

You can try like this.......

(setq LispPath "D:\\Subrutinas\\LeeMac");;;Put here the full path of the Directory containing your subroutines(Lisp)
(foreach Lisp (vl-directory-files LispPath "*.lsp" 1)
  (autoload (strcat LispPath Lisp) '("cajaenvolvente" "strike" "strike2" "strike3" "under" "under2" "overunder2"))
)

[Kent1Cooper]

---

@MANTONIOPM wrote:

Good morning, excuse me, but it doesn't work. I wrote this code:

(autoload

(strcat (findfile ".\\Subrutinas\\LeeMac") "\\" x)

'("cajaenvolvente" "strike" "strike2" "strike3" "under" "under2" "overunder2")
)

---

Not knowing your whole file structure, etc., I can't diagnose completely.  But in the containing code, 'x' represents a different file name  for every file found in that folder as it goes through them.  Surely the set of command names defined in each file differs.  Does each file define one  command?  If so, you can't (autoload) the whole set of them for every file, because when a listed command is called for, it has to be associated with one  file that is to be loaded.  That may be why the code is set up to use (load) instead of (autoload), because (load) doesn't care what or how many commands are defined.

If there's one  command per file, and if the file name [minus the .lsp filetype ending] is the same as the command name  for each one, maybe this will work, taking the .lsp off the end to put that command name into the list [untested]:

(autoload (strcat (findfile ".\\Subrutinas\\LeeMac") "\\" x) (list (substr x 1 (- (strlen x) 4))))

[MANTONIOPM]

Hello, in leemac folder y have three files .lsp.

StrikethroughV1-1.lsp define "strike", "strike2", "strike3", "under", "under2", "overunder2"

cajaenvolvente(minboundingbox).lsp load minboundingbox.lsp.

according to what is written here now I have the following code:

(autoload

(strcat (findfile ".\\Subrutinas\\LeeMac") "\\" cajaenvolvente(minboundingbox) minboundingbox StrikethroughV1-1)

'("cajaenvolvente" "strike" "strike2" "strike3" "under" "under2" "overunder2")
)