redefine a command

[x11start]

I would like to create a new version of the command "_bedit" (modifbloc) that allows me, when the blocks with the same name are more than 1 in the design, to warn that the change will affect the change of all the blocks.
to do so I created a command, also called "bedit", but obviously the original command is always called.

if I on the command wrinkle type:
(command "_undefine" "bedit")

... then I load my version of the command .. then everything works.

the problem is that I should launch "_undefine" every time I open the cad ... and do not need to put it in acad.lsp etc.

si-no.zip contains the lisp and its dcl

 

[x11start]

it will imply -> will imply ... moreover the command does not have the "rughe" but only the "righe" .... obviously I was not so "lucid" yesterday!

 

[dieva]

your problem is that acad.lsp is loaded only once at the opening of the first drawing.
changes the value of the variable acadlspasdoc a 1 in order to upload it to every dwg file opening

 

[x11start]

I created a small lisp (redef.lsp) composed only by the command:

(command "_undefine" "bedit")

this because the undefine command is only launched once, otherwise by mistake, so I can't enter it in the lisp bedit!

... then through the _appload command, I uploaded redef.lsp and bedit.lsp into the start group.

as you predicted, the thing worked... but only for the 1' file opened: so your suggestion was helpful to change the acadolspasdoc variable.

Thank you.

Let's say that now there is only one small thing: while with the original command it was enough 2 clicks on a block to enter the editor, now it takes 3: I should change bedit to take me as soon as selected, but I would like to keep it compatible with the possibility to launch the command alone... without double-clicking on a block.

 

[dieva]

to delete an input I recommend this replacement:
.... ;(setq :bb) (car (entsel "\nselect the block to be changed"))))(if (setq :bb)
(Sectq :bb)
(setq :bb (car (entsel "\nselect the block to change")))
)
...

for loading in each file do not forget also the existence and operation of acaddoc.lsp file

 

[x11start]

Thank you so much!