Put the text in the command string without copying and pasting

[Nikon]

With the usual lisp load method:

1. Command: load

2. in the window that opens, select the desired lisp

3. Click on the "load" button

4. Click on the "close" button

5. copy the name of the team

6. Paste the command into the command string.

7. click enter
Thanks to Lee's code "ctext", I reduce the number of operations when loading lisp
1. The command "сtext" 

2. Select the desired string (_autoload...
Thanks to Lee's code "сtext" , I can reduce the number of lisp in the auto-upload, and the drawings will open a little faster.

Edited January 4 by Nikon

[Lee Mac]

34 minutes ago, Nikon said:

I use the Lee "text" command to load Lisp of this type (_autoload "11"). 11 is the name of the command.

At the end of the code with the extension (.lsp), I add (c:11), and the list is loaded and the command is immediately active.

How can I write a string (_autoload "11") for files with the extension (.fas) and (.vlx), since these files cannot
be edited and. I cannot add them at the end of the code (C:11).

For simple loading (_autoload "dim text_bgmask") it works, but the command is not active, 
it needs to be additionally entered into the command string.

I'm trying to add

 

(_autoload "dimtext_bgmask" '("dimtext_bgmask"))

or

(_autoload "dimtext_bgmask" '("c:dimtext_bgmask"))

or

(_autoload "dimtext_bgmask" (dimtext_bgmask))

or

(_autoload "dimtext_bgmask" (c:dimtext_bgmask))

But it doesn't work, messages appear on the command string:
;error: too many arguments
;error: invalid function: "dim text_bgmask"

Please advise me how to write the string correctly (_autoload...

dimtext_bgmask.fas 19.96 kB · 0 downloads

 

The load expression could be something like the following to load and then execute the function:

(if (not c:dimtext_bgmask) (load "dimtext_bgmask.fas" nil)) (if c:dimtext_bgmask (c:dimtext_bgmask))

 

[Nikon]

@Lee Mac thanks!

(if (not c:dimtext_bgmask) (load "dimtext_bgmask.fas" nil)) (if c:dimtext_bgmask (c:dimtext_bgmask))

And it works!

(_autoload "dimtext_bgmask")(c:dimtext_bgmask)

This also works, but not with all files...

By the way, this expression can also be used for Lisps, so as not to add it at the end of the code (c:11)

(_autoload "11")(c:11)

Edited January 3 by Nikon

[BIGAL]

I still believe making a mnu is the way to go they are so easy to make, you can have hundreds of lisps at your mouse click, they can be loaded and ran, this is what the line would look like in the mnu file ^c^c(load "11") 11

 

***MENUGROUP=NIKON

***POP20
**CADLIB
             [->LISP1 A-B]
             [11]^c^c(load "11") 11
             [1/4 POINTS]^C^C(LOAD "1-4 POINTS")
             [Add 2 Level]^C^C(LOAD "add-to-levels")
             [Add-pits-drain]^C^C(LOAD"Add-pits-drain")
             [Allbylayer]^C^C(LOAD "Allbylayer")
             [Apndtext]^C^C^p(LOAD "apndtext")
             [Apparent int]^C^C^p(LOAD "apparent int")
             [Area-label]^C^C^p(LOAD "area-label")
             [Areaobj]^C^C^p(LOAD "AREAOBJ")
             [ARD layers]^C^C^Parduv7aclayerlistroadslocalnew
             [AttFind]^C^C^p(LOAD "AttFind")
             [average ht]^C^C^p(LOAD "average ht")
             [Batterticks]^C^C^p(load "batterticks") TBL
             [Blay]^C^C^p(LOAD "blay")
             [Blockrot]^C^C^p(LOAD "BLCKROT")
             [Blockscale]^C^C^p(LOAD "Blckscle")
             [Break path]^C^C^p(LOAD "Break path") dpath
[<-]
[->LISP2 C-D]      

 

[Nikon]

7 hours ago, BIGAL said:

I still believe making a mnu is the way to go they are so easy to make, you can have hundreds of lisps at your mouse click, they can be loaded and ran, this is what the line would look like in the mnu file ^c^c(load "11") 11

@BIGAL 

thanks

I'll try the mnu option as well...