topic Re: Reg: autoload function for Lisp in Visual LISP, AutoLISP and General Customization Forum

Reg: autoload function for Lisp

Anonymous — Tue, 22 Sep 2015 06:17:18 GMT

Hi,

I loaded many lisp files by using below autoload function.but some of lisp files failed to load on Startup,but if we load Indiviually its Working Fine.

Whether My load function is wrong,By the way I m not a lisp Programmer,So please anyone Guide me.

I saved the Below as Acaddoc.lsp and loaded via Trusted locations.

(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/ALIGN_TEXT_ALT.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/ArxLoad.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/AutoBlockBreakV1-7.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/BFind.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/BLCC.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/Block_Annotative_Match_Orientation.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/Boreholes.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/CircularWipeout.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/COLORX.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/CopyRenameBlockV1-5.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/CopySwapTextV1-4.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/DDLyrAdd.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/DDLyrCas.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/DDLyrOn.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/DDLyrTh.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/DTCurve.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/FindReplaceALL.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/HATCHTOOLS.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/IncArrayV1-7.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/LenCal V1.7.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/MacAttV3-1.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/Netload.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/ObjectAlign.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/PTManagerV2-4.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/Random.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/RMS Alert.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/RMS Annotate.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/RMS Config.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/RMS DR2CAD.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/RMS Drainage.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/RMS Miscellaneous.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/RMS MX2CAD.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/RMS NRS2.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/RMS PageSetup.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/RMS Palettes.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/SetoutPoints.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/Steal.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/StripMtext.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/Supersede.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/TabSortV2-2.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/TfNSW Annotate.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/TrialPits.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/UTB.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/VLXLoad.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/WILDCARD SYNTAX.lsp")
(LOAD "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/XRV2.lsp")

Regards,

Dilipan.S

Re: Reg: autoload function for Lisp

ВeekeeCZ — Tue, 22 Sep 2015 07:15:19 GMT

Maybe try AUTOLOAD. It loads only when you call its commands.

(autoload "C:/Users/***/Autocad/Settings/Support/Apps/OneMtext.lsp" '("1MT0" "TXT2MTXT2" "1MT2" "ATT2TXT"))

... with all commands at the end.

Re: Reg: autoload function for Lisp

Kent1Cooper — Tue, 22 Sep 2015 11:54:31 GMT

Could it be that there are some little typographical errors in the super-file-path prefixes in some of them, or in the file names themselves? Those are never an issue when you load things manually by navigating and selecting file names, but they might be in spelled-out (load) functions. One way to avoid the possibility of filepath errors, and to shorten the code quite a lot, is to put the common filepath into a variable so you know it's spelled out exactly the same way in each line of code:

(setq base "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/")

(load (strcat base "ALIGN_TEXT_ALT"))

(load (strcat base "ArxLoad"))

(load (strcat base "AutoBlockBreakV1-7"))

.... etc. ....

[By the way, you don't need to include the .lsp filetype endings -- it knows what to look for.]

Or perhaps even better, with the file names in a list, and (load) applied to them all in one function:

(setq lisps '("ALIGN_TEXT_ALT" "ArxLoad" "AutoBlockBreakV1-7" .... etc. ....))

(mapcar

'(lambda (x)

(load (strcat "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/" x))

)

lisps

)

Either way contains that long filepath only once, and leaves you with a lot less to plow through looking for possible misspellings.

Re: Reg: autoload function for Lisp

Anonymous — Tue, 22 Sep 2015 12:53:24 GMT

Hi Kent Cooper,
It works fine now.Thanks for your answer and response.
Regards,
Dilipan

Re: Reg: autoload function for Lisp

jdiala — Tue, 22 Sep 2015 13:03:59 GMT

Why not load all lisp on entire directory without typing the file name. Something like this.

(setq path "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/RMS/")
(mapcar
(function
(lambda (x)
(load (strcat path x))))
(vl-directory-files path "*.lsp")
)
(setq path nil)
(princ "All lisp loaded!")
(princ)

Re: Reg: autoload function for Lisp

Kent1Cooper — Tue, 22 Sep 2015 13:38:07 GMT

@jeri32 wrote:

Why not load all lisp on entire directory without typing the file name. Something like this.

...

That's a good idea if they always want to load every AutoLisp file in that folder. I know I have a lot of such files in the place where I keep such things that I don't always want loaded [or autoloaded], because I use them only rarely, so I load one only if and when I need it. But certainly one could make a separate folder for things that should always be loaded, use your suggestion on that folder, and keep things that are used only occasionally in a different folder.

Re: Reg: autoload function for Lisp

Kent1Cooper — Tue, 22 Sep 2015 13:45:54 GMT

@Kent1Cooper wrote:

....

Or perhaps even better, with the file names in a list, and (load) applied to them all in one function:

(setq lisps '("ALIGN_TEXT_ALT" "ArxLoad" "AutoBlockBreakV1-7" .... etc. ....))

(mapcar

'(lambda (x)

(load (strcat "N:/GLOBAL/APPS RESOURCES/AUTODESK/AUTOCAD/2014/Client Library/2100047/SOC/Lisp/" x))

)

lisps

)

....

Now it occurs to me.... If you just put that folder in your Support File Search Path list in Options, and assuming there are no such files with the same names in any other folder(s) in that list, you don't need to spell out the filepath at all! My acaddoc.lsp file has lots of (load) and (autoload) functions with no filepaths in them, and it finds them because they're in a place where it knows to look. Simply:

(mapcar 'load '("ALIGN_TEXT_ALT" "ArxLoad" "AutoBlockBreakV1-7" .... etc. ....))

Re: Reg: autoload function for Lisp

scot-65 — Thu, 24 Sep 2015 23:01:18 GMT

>>Now it occurs to me....
🙂

In it's simplest form...

Create a file with key word "Utility" in it. File extension is ".LSP".
Load this file from one of the interface points (acad.lsp, acaddoc.lsp, MyMenu.mnl, etc.).

Inside, declare the keystroke combination, the load, the execution, and a brief
explanation AS A SINGLE LINE:
(defun c:ABC () (load "ABC")(c:ABC) ) ;a simple utility
(defun c:DEF () (load "DefineMe")(c:DEF) ) ;another utility

Lastly, gather all the "stand-alone" LSP files into one folder and declare the folder
in the support path and trusted location areas.

The hint here is to use the same keystroke that is declared inside the LSP file. When
this keystroke is used for the first time, the file is loaded, then executed. It also
redefines the keystroke so as it will not load repeatedly. This can be called
"progressive loading".

When a new routine is introduced, simply drop the file into the folder and update
the Utility file by adding another line.

I do not care for the autoload function as it is command line noisy.

Hope this helps, Dili.