CADwiesel - Das Original

F A Q

Häufig gestellte Fragen

...mehr

Downloads

Error Funktion

Beschreibung:

Fehleroutine

Code:

;;Eigene Fehlerroutine einbinden

;;;gleich nach c:defun   in *.lsp einbinden

  (setq MD_ERR *ERROR*
 *ERROR* M:FEHLER
  ) ;_ end of setq
  ;;Marke für Zurück nach Abbruch setzen
  (command "_UNDO" "_MARK")

;;;Die eigentliche Funktion:

  (defun M:FEHLER (S)
    (print (strcat "M:fehler " S))
    (command "_UNDO" "_BACK")
    (setq *ERROR* MD_ERR)
    (princ)
  ) ;_ end of defun

F A Q

Downloads

Error Funktion

Suche