Define 2 key commands inside a routine that will run another routine

[jonathanschade]

I am trying to define, and load, 2 key commands inside of a lisp routine (ACADDOC.LSP) that will define another lisp routine, or a script routine.

Is this possible? I am putting together an office menu, and I need to be able to define multiple methods of inputting commands. I have created the individual commands, and gotten them to work in the CUI. There I have created both pull down menu's and tool bars. I just don't know how to create 2 key commands that call other lisp (or scripts).

Anyone out there done this?

Thanks

[T.Willey]

I don't think I understand what you are talking about. You can define functions in other functions.

(defun c:Test ()

(defun c:Test2 ()
(prompt "\n This is test 2 function.")
(princ)
)

(prompt "\n This is test function.")
(princ)
)

You just have to call the main one first. In this case 'test' has to be called before 'test2'.

Command: test2
Unknown command "TEST2". Press F1 for help.

Command: test

This is test function.
Command:
Command: test2

This is test 2 function.

Does this help?

[.T.]

Or do you mean access a function with a two key function like:

(defun c:TestFunction ()
   (princ "This is a test")
)

(defun c:TF ()
(c:TestFunction)
)

[ccowgill]

or are you looking for something like this?

 
(setq logan (getvar "loginname"))
(if (wcmatch logan "arch")
(load "Architecture.lsp")
);end if architecture
;(if (wcmatch logan "")
;(load "survey.lsp")
;)
(if (wcmatch logan "Chris")
(load "Engineering.lsp")
);end if engineering

[abdulhuck]

Hi,
What do I normally do is define the functions with full name in a compiled files and create another file, with a short description to the function and shortcut command, which can be edited by the user. For example:

;MainFunctions.LSP
(defun c:EditAttributes (/ var1 var2)
....
) ;end defun
(defun c:ExtractAttributes (/ )
...
) ; end defun

;ShortCmds.lsp
; The following command is used for global attribute edit.
(defun C:EAD ()(c:EditAttributes))
;The following command extracts all the attributes in the drawing to a text file.
(defun C:AXT ()(c:ExtractAttributes))

This will prevent the users from tampering the original code, while giving them the flexibility to edit the keyboard shortcuts according to their preference. When I call these commands from a menu, I use

[Extract Attributes]^p^c^c(if (not c:ExtractAttributes)(load "MainFunction.lsp"));ExtractAttributes

so that I can make sure that the original function is called irrespective of the short command names in individual computers.

Note: If the function is not loaded, include the code to load the file when the short command is called.

Regards,
AH

[jonathanschade]

what I am trying to do is create an Acaddoc.lsp (for the whole office) that will load automatically. These will have shortcuts for new commands that I created for the office menu.

I tried to do it this way - (defun C: D4() ("script" "d4") - but it did not work.

I have about 20 script files that we run to set up layers and variables. D4 sets up all of the variables for dim style 3"=1'-0".

Am I trying to do something that is impossible?

Thanks for all of your help.

[T.Willey]

Since it's a script, and to issue a script its a command, you would have to do something like.

(command "_.script" "d4")

edit: I don't work a lot with scripts, so I'm not sure if you need the extension, but you might want to add it plus the path to the file. Or use (findfile "ScriptName.scr") as the name and path of the script file.

[jonathanschade]

That worked GREAT!
Thank you.

Do you know if there is a way to call (defun) a lisp routine from inside another lisp routine.

I am setting up some company wide standard 2 key commands, and I have not been able to figure this out.

As an example I need to set up a two key command alias for FUDGE.LSP. I have only gotten to
(defun C:FD() (command - so far. I have no idea how to load and then define a lisp routine this way.

For other single line lisp routines I have just incorporated them into the ACADDOC.LSP, but I really do not like that idea. If for some reason I have to change the code, I will have to change the code in two places (the original lisp file and ACADDOC.LSP) this is not good coding.

Thank you for all of the help.

[kpblc2000]

If you're using menu, try to create .mnl-file. Place it near with a mnu(cui) file. For example:

mymenu.mnu
mymenu.cui
mymenu.mnl

Within mymenu.mnl define all functions you need. Or anything else

[rkmcswain]

Do you know if there is a way to call (defun) a lisp routine from inside another lisp routine.

As an example I need to set up a two key command alias for FUDGE.LSP. I have only gotten to
(defun C:FD() (command - so far. I have no idea how to load and then define a lisp routine this way.

It depends on how "fudge.lsp" is defined.

A --- If there is a defined function inside this file (say it's called fudge), then there are a few ways....


1. Edit "fudge.lsp" and add another defun like this

(defun c:FD () (c:fudge))


2. Add something like this to your acaddoc.lsp:

(defun c:FD ()
(if (not c:fudge)(load "fudge"))
(c:fudge)
)


3. Preload the lisp routine using acaddoc.lsp [with a line like this (load "fudge")], then also create a wrapper function like this

(defun c:FD ()
(c:fudge)
)




B --- If fudge.lsp just contains lisp code an no defined functions, then all you need to do is this:

(defun c:FD ()
(load "fudge")
)