---

Hallo zusammen
Kann mir jemand sagen was an diesem Makro falsch ist ? Ich will nach dem Ausführen des Befehls den alten layer wieder haben.

^C^C(setq lay_old (getvar "clayer"))^C^C-layer;se;0_K_line; ^C^C_xline;ho;$(setvar "clayer" lay_old)

------------------
Danke...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Metallbau,

du vermischst Diesel mit Lisp. Lass das $-Zeichen vor dem (setvar ...) weg, dann könnte das passen.

Grüße Holger
CAD on demand GmbH        AUGCE - Manager Deutschland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Holger
leider funktioniert es immer noch nicht

^C^C(setq lay_old (getvar "clayer"))^C^C-layer;se;0_K_line; ^C^C_xline;ho;(setvar "clayer" lay_old)

------------------
Danke...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

^C^C(setq lay_old (getvar "clayer"));_-layer;_m;0_K_line;;_xline;_h;\;(setvar "clayer" lay_old)

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Es ist ein fortschritt, aber nach einmal setzen bricht der Befehl ab. Hat nicht mehr die gleiche gleiche Funktion wie vorher.

------------------
Danke...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Metallbau:
Es ist ein fortschritt, aber nach einmal setzen bricht der Befehl ab. Hat nicht mehr die gleiche gleiche Funktion wie vorher.

---

uppss .. wo stand das vorher???

ansonsten für Befehlswiederholung ein "Sternchen" davor :

*^C^C(setq lay_old (getvar "clayer"));_-layer;_m;0_K_line;;_xline;_h;\;(setvar "clayer" lay_old)

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Metallbau,

mit diesem Problem, akt. Layer auf eine Variable setzen und am Ende wieder zurücksetzen, hatte ich auch schon meine Probleme. Sonst hatte ich mit dem zurücksetzen von Variablen noch nie Probleme, nur beim Layer.

Ich habe mir so geholfen, dass ich zum rücksetzen nicht "SETVAR" sondern "COMMAND" verwende.
Beispiel:

(setq C_L (getvar "CLAYER")
(command "_LAYER" "_SET" C_L "")

Das Beispiel ist für Lisp, Du kannst es ja für Deine Befehlszeile entsprechend umbauen.

Guß
Theodor Schönwald

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Metallbau

Da du DIESEL und LISP und MENÜMAKROŽs mischt crazy
mach ich es mal layertechnisch ganz einfach:

Du hast doch ACAD2005, sehe dir mal den Befehl _LAYERP an !
deutsch Befehl =  (getcname "_LAYERP")

LAYERVORHER stellt also den zuvor eingestellten Layerstand
wieder her (aber auch Farben / Sichtbar oder nicht usw. !!)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Metallbau,
Dein in der *.mnu aufgerufener Befehl: ....^C^C_xline;ho;
lässt weitere Eingaben zu.

Die Antwort: $(setvar "clayer" lay_old)
bei Dir: ^C^C_xline;ho;$(setvar "clayer" lay_old)
ist falsch.

Schaue in die Befehlszeile
Befehl:_xline;ho;
Durchpunkt angeben: (also Punkt klicken)
Durchpunkt angeben: (also Punkt klicken)
.
.
.
usw.

Die Antwort auf Durchpunkt angeben: $(setvar "clayer" lay_old) ist falsch

Deine Variante geht nicht mit einer Zeile in der *.mnu
mit einem Lisp-Programm schon.

------------------
Gruß Werner
http://www.konstruktionsbuero-meyer.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen zusammen

so funktioniert es schon
^C^C_-layer;_m;0_K_line;;_xline;_h;\;layerv
aber nach eingabetaste (rechtsklick) bricht es den Befehl ab. Für Wiederholung des Befehls kann ich nicht mehr mit rechtsklick weiterfahren sonder muss das icon anwählen

gibt es keine alternative für \, das bis zur rechtsklick den Befehl xline ausführt ?

------------------
Danke...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sonst probier es mal so:

^C^C(setq vorh (getvar "CLAYER"))(while (setq pux (getpoint))(command "_.-layer" "_M" "0_K_line" "")(command "_.xline" "_H" pux "")(setvar "CLAYER" vorh))

Gruß Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP