Befehl neu definieren

[x11start]

Ich möchte eine neue Version des Befehls "_bedit" (modifbloc) erstellen, die es mir erlaubt, wenn die Blöcke mit demselben Namen mehr als 1 im Design sind, zu warnen, dass die Änderung die Änderung der Blöcke beeinflussen wird.
so erstellte ich einen Befehl, auch "bedit", aber offensichtlich wird der ursprüngliche Befehl immer aufgerufen.

wenn ich auf dem Befehl Faltentyp:
(Befehl "_undefine" "bedit")

... dann belade ich meine Version des Befehls .. dann funktioniert alles.

das Problem ist, dass ich "_undefine" jedes Mal starten sollte, wenn ich den Cad öffne... und es nicht in Acad setzen muss. lsp usw.

si-no.zip enthält die lisp und seine dcl

 

[x11start]

es wird implizieren -> wird implizieren... außerdem hat der Befehl nicht den "Rughe" sondern nur die "Righe" .... offensichtlich war ich gestern nicht so "verleumdet"!

 

[dieva]

Ihr Problem ist, dass acad. lsp wird nur einmal bei der Öffnung der ersten Zeichnung geladen.
den Wert der Variablen ändert acadlspasdoc eine 1 um es in jede dwg Datei zu laden

 

[x11start]

Ich habe eine kleine Lisp (redef.lsp) erstellt, die nur durch den Befehl komponiert wurde:

(Befehl "_undefine" "bedit")

Dies, weil der unfruchtbare Befehl nur einmal gestartet wird, ansonsten irrtümlich, so kann ich es nicht in den lisp Bettit eingeben!

... dann durch den Befehl _appload, habe ich redef.lsp und bedit hochgeladen. lsp in die Startgruppe.

wie Sie vorhersagen, die Sache funktionierte... aber nur für die 1' Datei geöffnet: so Ihr Vorschlag war hilfreich, um die acadolspasdoc Variable zu ändern.

Danke.

Lassen Sie uns sagen, dass es jetzt nur eine kleine Sache gibt: Während mit dem ursprünglichen Befehl war es genug 2 Klicks auf einen Block, um den Editor einzugeben, jetzt dauert es 3: Ich sollte Bettit ändern, um mich zu nehmen, sobald es ausgewählt wurde, aber ich möchte es mit der Möglichkeit, den Befehl alleine zu starten... ohne Doppelklick auf einen Block.

 

[dieva]

zum Löschen einer Eingabe empfehle ich diesen Ersatz:
... ;(setq :bb) (Auto (entsel "\nselect the block to change")))(falls zutreffend)
(Sectq :bb)
(setq :bb (car (entsel "\nselect the block to change")))
)
...

für das Laden in jeder Datei nicht vergessen auch die Existenz und den Betrieb von acaddoc. lsp Datei

 

[x11start]

Vielen Dank!