---

Hallo miteinander

Bei Esc Betätigung sind die Benützereinstelungen nicht zurückgesetzt.
Wie kann ich beim Lisp das beibringen?

Gruss Nano

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

---

Befass dich mal mitdiesem Beitrag.

------------------
- 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

---

ich denke du meinst sowas in der Art

(setq tmpOSMODE (getvar "OSMODE"))
(setvar "OSMODE" 0)
; irgendeine Benutzereingabe z.B.: punkt oder Objektwahl
(setvar "OSMODE" tmpOSMODE)

wird jetzt bei der Benutzereingabe mit esc abgebrochen, wird natürlich der (in diesem Beispiel) der Objektfang nicht auf den ursprünglichen Wert zurückgesetzt (Lisp ist ja abgebrochen worden)

Da gibts im Prinzip zwei Möglichkeiten das abzufangen

1.) eine saubere ERROR Routine , ein Lisp Abbruch mit ESC startet automatisch eine Funktion die mit (defun *ERROR* definiert ist.
da kann man die vorher gespeicherten Benutzereinstellungen zurückstellen

2.) Lösung mittels sogenannter Reaktoren (das habe ich in Verwendung)
erster Reaktor vor jedem Lispaufruf (:vlr-lispWillStart) -> Benutzereinstellungen speichern
zweiter Reaktor nach jedem Lispaufruf (:vlr-LispEnded UND :vlr-lispCancelled) -> gespeicherte Benutzereinstellung zurückstellen

Die Lösung mittels Reaktor ist für mich einfacher, wenn es einmal eingestellt ist, und funktioniert, braucht man sich nie wieder um solche Dinge Kopf zerbrechen. Es würde aber hier den Rahmen sprengen die genaue Vorgehensweise zu erklären.

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

;Die Unterprogamme müssen oben stehen!

  (defun Init ()
    (setq
        Err *error*
        *error* Fehler
        Osx (getvar "OSMODE")
      )
    )

  (defun ReInit ()
      (setvar "OSMODE" Osx)
      (setq *error* Err)
      ;(redraw auswahl 4)
      (princ)
    )

  (defun Fehler (s)
      (print (strcat "Fehler: "s))
      (ReInit)
  )
 
(defun c:LispPrg (/ Err Osx) ;das vorhandene Lisp-Prg.
    (Init); Aufruf Unterprogramm (siehe oben)
    ;.....
    ;.....
    ;.....
)

Der fette Text muss zum vorhandenen Prog. hinzu gefügt werden!

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

---

hallo nano
in der acad.mnu oder deiner eigenen mnu kannst du unter accelerators die esc-taste umdefinieren und ein programm zum zurücksetzen der systemvariablen (die du vorher gesichert hast) aufrufen
auszug aus my.mnu
***ACCELERATORS
["F11"]%%c^Z
["F12"]%%d^Z
["ESCAPE"]^C^C(myresetsysvar)

gruß
michael

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

---

@mkronegger,

mit deiner Lösung hat man aber nur die halbe Miete drin. Wenn das Programm selber einen Fehler macht, dann ist die Lisp-Lösung, wie die in dem Beitrag, auf den CADmium verlinkt hat, schon die Richtige. Denn in dieser wird auf beide Ereignisse reagiert.

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

Jackpot on demand - Wir eröffnen den Spätsommer mit einer Verlosung!

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

---

Zitat:

---

Original erstellt von vision:
;Die Unterprogamme müssen oben stehen!

---

Warum denn?

Gruß, Axel Strube-Zettler

------------------
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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