Topic: Compiling multiple lisps into one larger lisp...

[Dommy2Hotty]

That is my Electrical toolbar.  I am writing a lisp for each button, but I don't want 19 seperate lisp files.  Each button inserts a block.  The lisp will put the block on it's correct layer.  I am aware I can just add the change command after the insertion macro, but I want to add a TBLSEARCH "LAYER" to each one to make sure the layer exists, and if not, then it would create it.

How would I go about arranging them within 1 lisp file, and how would the buttons call the correct lisp?  I'm guessing I make one lisp named "Electrical.lsp" with each button having it's own defun.  Something along the lines of...

Code: [Select]

Electrical.lsp
**********************
(defun c:button1 ()
          ----------
          ----------
)

(defun c:button2 ()
          ----------
          ----------
)

(defun c:button3 ()
          ----------
          ----------
)


And then each button macro would just be "^C^C_button1" "^C^C_button2"  etc....

Is all this correct???

[Jeff_M]

[quote="Dommy2HottyAnd then each button macro would just be "^C^C_button1" "^C^C_button2"  etc....

Is all this correct??? [/quote]

Yes, however I would suggest a slightly different strategy. I'm going out on a limb here and assume that you have your toolbar in it's own mnu/mns file, instead of the base acad menu. If not, I strongly suggest you do. This will make upgrades, re-installs, further customization, etc, much easier to manage.
Now, based on that, create a .mnl file that mimics the name of your menu file. Such as: your toolbars are in MyElectric.mns so create a MyElectric.mnl file. Now place all of the button defuns into this mnl file and they will always load with the menu.

edited to show the use of files having the same name, not similar names....thanks to Slim for catching that.

Just my $0.02....
Jeff    [/i]

[Slim©]

MyElectric.mns so create a MeElectric.mnl file.

Both should be MyElectric.*, Right Jeff.  

[Kerry]

.. and further to that ..
Change the command names to  c:elec_button01  .. etc .. or similar to ensure the names are unique, and wont overwrite the button01 command from the next menu toolbar that you write.

Re the layer setting command : I assume that would be a stand alone library routine called from each buttonxx command. .. rather than just repeat a block of code in each routine.
Sort of like this :-

Code: [Select]


;;; Elect_tb1.mnl file
(vl-load-com)

(defun myChangeLayerCommand (LayerName / )
;;
;;
;Do Layer change stuff here ..
; < snip >
)

(defun c:Elect_tb1_01 ( / prevLayer)
;save prevLayer
(myChangeLayerCommand "ElecBlocks")

; < snip >
; < do your stuff here >

;restore prevLayer
)

[Slim©]

Nice stuff, Kerry

[Dommy2Hotty]

AHHH.....yes....mnl files...buh-duh....

ok...now what's up with the (vl-load-com) stuff...

a pointing to a website for the vla, vlax, ex-lax or whatever that is would be nice...have to learn it sooner or later...

[Kerry]

ok...now what's up with the (vl-load-com) stuff...

a pointing to a website for the vla, vlax, ex-lax or whatever that is would be nice

RTFM will work.

.. and you're welcome.

[MP]

RTFM will work.

I can verify that.

[Dommy2Hotty]

ok...now what's up with the (vl-load-com) stuff...

a pointing to a website for the vla, vlax, ex-lax or whatever that is would be nice

RTFM will work.

.. and you're welcome.

Pardon my ignorance...but now what's RTFM :crazy:

[Mark]

"read the fine manual" the word "fine" can be substituted with another word of four letters.

[Kerry]

RTFM is a specialist technical consulting organisation for the solving of difficult problems.

[Mark]

RTFM is a specialist technical consulting organisation for the solving of difficult problems.

lmao 2 points for Kerry.

[Kerry]

 They will also do peoples homework, If asked properly.

[Anonymous]

RTFM is a powerful tool that every competent developer continually uses, and surprisingly, the very thing that frequently prevents casual coders from evolving. No attitude here, just statin' facts.

[Kerry]

.. No attitude here, just statin' facts.

Even if it was attitude, I wouldn't apologise. ... attitude is what keeps me at this game.