---

Moin !

die allgemeine Fehlerfunktion ist bekannt - aber es gibt diese ja noch nach Art vl-catch-all-apply (http://www.activex.autolisp.info/catch.html).

Ehrlich gesagt ist stehte damit seit Jahren auf Kriegsfuss - da ich es einfach nicht verstehe. Der Vorteil ist aber bekanntlich, das nicht die gesamte Funktion bei einem Fehler den "Bach runtergeht".

Vielleicht kann mir einer weiterhelfen. Es geht einfach darum das es folgende Funktion gibt bei der es aus verschiedenen Gründen zu einem Fehler kommen kann. Zudem wird diese mehrmals im gesamten Ablauf aufgerufen.

Der Code lautet:

Code:

---

(defun ChangePlotter
      (Layout NewPlotter OutputDevice / FormatOld Status)
  ;; Altes Format
  (SETQ FormatOld  (VLA-get-CanonicalMediaName Layout)
Status   nil
NewPlotter (strcat NewPlotter ".pc3")
) ;end-setq
  ;; zuweisen des neuen Plotters
  (vla-put-configname Layout NewPlotter)

  (cond
    ((eq OutputDevice "DRUCKER") ; die kleinen Geräte
    ;; wenn es sich um ein A4-Format handelt
    (if (AND (/= (EBLib_String_StrIndex "A4" FormatOld) 0)
      (= (EBLib_String_StrIndex "A3" FormatOld) 0)
      )
      (VLA-put-CanonicalMediaName Layout "A4")
      ) ;endif
    ;; wenn es sich um ein A3-Format handelt
    (if (AND (/= (EBLib_String_StrIndex "A3" FormatOld) 0)
      (= (EBLib_String_StrIndex "A4" FormatOld) 0)
      )
      (VLA-put-CanonicalMediaName Layout "A3")
      ) ;endif
    ;; weder A4 noch A3
    (if (AND (= (EBLib_String_StrIndex "A3" FormatOld) 0)
      (= (EBLib_String_StrIndex "A4" FormatOld) 0)
      )
      (setq
Status (strcat FormatOld
" -->> kein passendes Papierformat gefunden!"
)
)
      ) ;endif
    )
    ((eq OutputDevice "PRINTER") ; der Plotter
    (VLA-put-CanonicalMediaName Layout "910*3000")
    )
    ) ;end-cond
  Status
  )

---

Der Aufruf wäre dann entsprechend zum Beispiel:

Code:

---

(ChangePlotter IAcadLayout "A4A3FA_AKTUELL" "DRUCKER")

---

Ich bin gespannt - vielleicht kommt diesmal die Erleuchtung! Die Hoffnung stirbt zuletzt.

Gruß Jan

------------------
jan :-)

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

---

Hallo Jan,
ich habe mal 2 Beispiele, gehe die mal mit dem VLIDE und dem Überwachungsfenster durch, dann müßte es Klick machen:

Code:

---

(defun c:test ( / DIVISOR RESULT WERT)
  (setq Divisor 0
        Wert 1000)
  (if(not
      (vl-catch-all-error-p;;;wenn 'T dann, dann Fehler
        (setq Result
                (vl-catch-all-apply
                  '/(list Wert Divisor)))))
    Result
    (alert "Durch Null teilen wird nix.")))

(defun c:test1 ( / FILE LISTE)
  (setq File "c:\\temp\\test.lsp")
  (if(not(vl-catch-all-error-p
          (setq liste(vl-catch-all-apply'load (list File)))))
    liste
    (alert "Datei nicht vorhanden oder fehlerhaft.")))

---

vl-catch-all-apply: erwartet eine Funktion und eine Liste mit Argumenten für die Funktion.
Als Rückgabe gibt es im Erfolgsfall den Rückgabewert der Funktion, wenn ein Fehler in der Funktion auftritt wird ein Fehler-Objekt zurückgegben.

vl-catch-all-error-p: wertet die Rückgabe von vl-catch-all-apply aus. Wenn diese ein Fehler-Objekt ist, dann wird 'T zurückgegeben und ich weiß das ein Fehler aufgetreten ist.

viel Spaß beim ausprobieren.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Liniensignaturen Youtube

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

---

Hallo Jörn,
zunächst vielen Dank. Wenn ich das jetzt mit meiner "plumpen" Betrachtung interpretiere, dann steht vor dem Funktionsnamen ein Hochkomma und die zu übergebenden Parameter werden als Liste übergeben.

Dann kommt da so etwas wie folgt bei raus:

Code:

---

(setq ChangeResult
   (vl-catch-all-apply
     'ChangePlotter
     (list IAcadLayout
   "PLOTTER_AKTUELL"
   "PINTER"
   )
     )
  ) ;end-setq
     (if (vl-catch-all-error-p ChangeResult)
       (alert "Fehler beim Ausführen der Funktion")
       )
     )

---

ChangeResult ist der Wert, den ich später auswerten will.

Die Funktion durchläuft auch - aber bei dem Teil mit dem vl-catch-all-error-p kommt es zu einer Fehlermeldung wie folgt:

Zitat:

---

Fehler: no function definition: nil

---

Kannst Du mir hier nochmal weiterhelfen? Lag ich falsch mit meiner Interpretation?

Gruß Jan

------------------
jan :-)

[Diese Nachricht wurde von tappenbeck am 28. Okt. 2016 editiert.]

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

---

Hallo Jan,
vom Prinzip ist bei Dir scheinbar alles richtig, prüfe Deine Funktion einschließlich Argumenten, ob die so auch ohne vl-catch-all-apply funktioniert.

"PINTER" ist das der richtige Name der Variablen oder soll das vielleicht "PRINTER" heißen?

Hier noch mal das 1. Beispiel von gestern mit einer weiteren Funktion, damit ist es eigentlich genau wie bei Dir, nur daß Deine Funktion umfangreicher ist:

Code:

---

(defun c:test ( / DIVISOR RESULT WERT)
  (setq Divisor 10
        Wert 1000)
  (if(not
      (vl-catch-all-error-p;;;wenn 'T dann, dann Fehler
        (setq Result
                (vl-catch-all-apply
                  'test:Teilen(list Wert Divisor)))))
    Result
    (alert "Durch Null teilen wird nix.")))

(defun test:Teilen (Wert Divisor / )
  (/ Wert Divisor))

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Liniensignaturen Youtube

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

---

Hallo Jörn,

jetzt habe ich nach langem Suchen die Ursache gefunden.

Die Funktion wurde in einem COND eingesetzt und da fehlte einfach ein Klammernpaar.

Danke nochmal für die Unterstützung.

Gruß Jan

------------------
jan :-)

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