| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Hilfestellung bei Error-Funktion nach Art vl-catch-all-apply (886 / mal gelesen)
|
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1213 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 27. Okt. 2016 15:14 <-- editieren / zitieren --> Unities abgeben:
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 |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1734 Registriert: 11.10.2004 Window 10 ACAD 2021 CIVIL 2021 BricsCAD V14-V22 Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz 16.0GB RAM NVIDIA GeForce GTX 1050<P>
|
erstellt am: 27. Okt. 2016 17:04 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
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 |
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1213 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 28. Okt. 2016 08:15 <-- editieren / zitieren --> Unities abgeben:
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 |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1734 Registriert: 11.10.2004 Window 10 ACAD 2021 CIVIL 2021 BricsCAD V14-V22 Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz 16.0GB RAM NVIDIA GeForce GTX 1050<P>
|
erstellt am: 28. Okt. 2016 08:28 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
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 |
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1213 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 28. Okt. 2016 10:07 <-- editieren / zitieren --> Unities abgeben:
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 |