Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  aktueller *error* handler

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  aktueller *error* handler (126 mal gelesen)
Temuedschin
Mitglied



Sehen Sie sich das Profil von Temuedschin an!   Senden Sie eine Private Message an Temuedschin  Schreiben Sie einen Gästebucheintrag für Temuedschin

Beiträge: 33
Registriert: 15.08.2018

AutoCAD 2023 / Windows 11

erstellt am: 30. Okt. 2022 13:36    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo zusammen,

Ich bin gerade dabei meine kleinen LSP´s auf den aktuellen Stand zu bringen.
In meinen LSP´s benutze ich einen uralt *error* handler. 

Im Netz (Forum hier, LeeMac, AfraLisp, http://advanced.autolisp.info/, ...) finde ich nur *error* handler, welche älter als 7-10 Jahre sind.
Hat sich bezüglich *error* handler in den letzten jahren so wenig getan, dass man auch die alten bedenkenlos einsetzen kann?

Suche nur einen einfachen *error* handler, welcher mir gesetzte variablen zurücksetzt und einen "undo" Befehl sauber ausführt.

mein *error* handler von http://advanced.autolisp.info/error2.html:

Code:
(defun startErrorHandler(name undoMode varsToSave /
                          ErrorTemplate saveList)
  (setq errorTemplate
  '( (msg / name undo savedVars previousHandler)
      ;... Zeile wird eventuell noch eingesetzt
      ;... Zeile wird noch eingesetzt
      ;... Zeile wird noch eingesetzt
      ;... Zeile wird noch eingesetzt
      (while(>(getvar "cmdactive")0)(command))
      (princ(strcat "\n"name": previous Handler = "))
      (princ previousHandler)
      (command"_undo""_end")
      (if undo(command"_u"))
      (foreach pair savedVars
        (setvar(car pair)(cdr pair))
        (princ
          (strcat"\n"name": Setze \""
                    (car pair)"\" zurück auf "))
        (princ(cdr pair))
      )
      (setq *error* previousHandler)
      (if msg
        (progn
          (princ(strcat"\n" name ": \"" msg "\""))
          (if previousHandler(previousHandler msg))
        )
      )
    )
  )
  ;************
  (command"_undo""_begin")
  (foreach pair varsToSave
    (setq saveList
      (cons
        (cons(car pair)(getvar(car pair)))
        saveList
      )
    )
    (setvar(car pair)(cdr pair))
  )
  (setq *error*
    (append
      (list(car ErrorTemplate))
      (if undomode'((setq undo 'T)))
      (list
        (list 'setq
          'PreviousHandler
          (cons'quote(list *error*))
        )
      )
      (list(list 'setq 'name name))
      (list
        (cons'setq
          (cons'savedvars
            (list(cons'quote(list savelist)))
          )
        )
      )
      (cdr ErrorTemplate)
    )
  )
)
(defun endErrorHandler( / )
  (*error* nil)
)


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



Ingenieur / Techniker (m/w/d) Konstruktion*

Für uns als Technologie-Dienstleister arbeiten Sie bei namhaften Unternehmen im Anlagenbau, der Automobil- und Schifffahrtsindustrie, Energie- und IT-Branche, Luft- und Raumfahrt oder an Projekten bei uns im Hause und tragen so dazu bei, die Zukunft zu gestalten. Aber als Ihr Arbeitgeber orientieren wir uns an den drei Werten: familiär, verantwortungsbewusst und loyal. Was für unsere Mitarbeiterinnen und Mitarbeiter heißt, dass sie sich auf uns verlassen können....

Anzeige ansehenKonstruktion, Visualisierung
Peter2
Ehrenmitglied V.I.P. h.c.




Sehen Sie sich das Profil von Peter2 an!   Senden Sie eine Private Message an Peter2  Schreiben Sie einen Gästebucheintrag für Peter2

Beiträge: 3678
Registriert: 15.10.2003

Win 10/64 Pro
AutoCAD MAP 3D 2018
BricsCAD 22

erstellt am: 31. Okt. 2022 08:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Temuedschin 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von Temuedschin:
...Hat sich bezüglich *error* handler in den letzten jahren so wenig getan, dass man auch die alten bedenkenlos einsetzen kann?...

Ich wüsste nicht,  was sich zwischen alt und neu geändert haben sollte. Der Zweck ist der wie du schreibst: Variablen zurücksetzen, evtl. _undo, ...
Vielleicht hat sich eine Variable geändert oder eine neue ist betroffen, aber das muss man sowieso klären bzw. sieht man im Hauptcode.

Der gezeigte Code ist natürlich "_advanced", manchmal geht es auch mit 2-3 Zeilen. Aber das scheint ja nichts neues für dich zu sein.

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2022 CAD.de | Impressum | Datenschutz