Loading Lisps in Specific Order

[gabecottam428011]

I did a quick search, but didn't find what I'm looking for.

I inherited an old CAD system that we are phasing out as we move over to Revit, so I don't want to reinvent the wheel. We are using the AP Load Startup Suite to load one company specific lisp that in turn loads all of our other lisps.

I added an IF statement at the bottom that looks for a specific user variable and if found, then loads some other lisps that overwrite our standard lisps (for corp jobs).

I want that IF statement to be run AFTER all our standard lisps are loaded, however it is running first - then overwriting all of the corp lisps with our standard lisps.

Is there an easy way to get this accomplished from within a single lisp?

Thanks,

[Tharwat]

If you would post your codes or at least apart of that needed IF statement, it would be easier for all to give you the direct answer.

Thanks.

Tharwat

[gabecottam428011]

(load xxx.lsp)
(load yyy.lsp)
(load zzz.lsp)
;;;----------------------------------
;;;---------------------------------- blah blah blah
;;;----------------------------------

(if (=(getvar "Useri5") 99)
(load "aaa.lsp")
)


They all seem to be working just fine, I just want to execute the IF portion after the other lisps load, and it's currently running the IF routine first.
Thanks,

[Tharwat]

Actually your way of IF usage is for somehow kind of security. And I think it is possible to use it that way.

Regards,

Tharwat

[gabecottam428011]

The IF statement is just checking for a specific user defined sysvar. It works great. I just want to know how to run the IF statement last instead of first.

[Tharwat]

Here is the Cad help book shows that clearly.

[gabecottam428011]

I appreciate your help tharwat313, but I think you're missing the point. The IF statement is fine.

Regardless of what the expression is, how do you tell it what order to execute?

[Tharwat]

Check this link out and let me know if you have any question.

http://www.theswamp.org/index.php?topic=34927.0

Good luck

Tharwat

[Simon.Weel]

LISP routines are executed from top to bottom.
Everything in a LISP file that's not part of a function (defun ....()) is executed immediately at load-time - with some exceptions. Functions in a file are loaded, but don't execute automatically - you need to call them.

So in your example, the (load ....) commands are executed when the file is loaded and since the (If...) portion is at the bottom, it's executed last.

Bear in mind how (IF ...) works.It executes the first statement if the evaluation is true and the second statement if it's false. Example:

(if (= a 1)
(print "True")
(print "False")
)

If a = 1, then it will print True. In all other cases, it will print False.

If I take your example, only (load "aaa.lsp") will be executed if the evaluation is true. Any subsequent lines will be executed if it's false.

If you need to load several other LISP files as well if the evaluation is true, you have to use (progn ...):

(if (=(getvar "Useri5") 99)
(progn
(load "aaa.lsp")
(load "bbb.lsp")
(.....)
)
)

Simon

[ccowgill]

in all reality, based on my experience, the routines should run in the order that they appear in the lisp program. At my office, I have a series of loads, that contain numbers printed to the command line (for trouble shooting assistance) and they always load up in the proper number order. And yes, many of them are within IF statements. Now however, if aaa.lsp doesnt replace a specific defun in xxx.lsp, then xxx.lsp will continue to function because it has been loaded. possibly you should set up your IF statement like so:

(if (= (getvar "Useri5") 99)
(progn
(load "aaa.lsp")
) ;_end progn
(progn
(load "xxx.lsp")
(load "yyy.lsp")
(load "zzz.lsp")
) ;_end progn
) ;_end If