| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Von lisp -> lisp aufrufen (2257 mal gelesen)
|
CADesigner Mitglied Diplom-Ingenieur
Beiträge: 45 Registriert: 20.10.2003
|
erstellt am: 07. Jun. 2004 16:35 <-- editieren / zitieren --> Unities abgeben:
|
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 07. Jun. 2004 16:44 <-- editieren / zitieren --> Unities abgeben: Nur für CADesigner
Hallo CADesigner, Klar, warum nicht? (defun c:irgendwas () (princ "Irgendwas") ) (defun c:rufeirgendwas () (c:irgendwas) ) Evtl. vorher die Datei laden, die die Funktion zur Verfügung stellt. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man's hat! Treffen Sie (defun auf dem Autodesk Anwendertreffen am 15.06. in Steyr/Österreich! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 07. Jun. 2004 22:21 <-- editieren / zitieren --> Unities abgeben: Nur für CADesigner
Hi, in dem Zusammenhang ist vielleicht folgendes Konstrukt interessant: Code:
;; Funktion zum sicheren Ausführen von Code ;; Beispiel: ;; Normaler Aufruf: ;; (setq value (MS_multiList "Titel" "Aufforderung" '("C" "F") '("A" "B" "C" "D" "E" "F" "G"))) ;; Safe Aufruf: ;; (setq retval (MS:SAFE-EVAL '(MS_multiList "Titel" "Aufforderung" ("C" "F") ("A" "B" "C" "D" "E" "F" "G")))) ;; oder ;; (setq retval (MS:SAFE-EVAL (list 'MS_multiList "Titel" "Aufforderung" '("C" "F") '("A" "B" "C" "D" "E" "F" "G")))) (defun MS:SAFE-EVAL (EVALFUNCTION / ARGLST FUNCNAME RETVAL) (if EVALFUNCTION (if (setq FUNCNAME (car EVALFUNCTION)) (progn (setq ARGLST (cdr EVALFUNCTION)) (if (vl-catch-all-error-p (setq RETVAL (vl-catch-all-apply FUNCNAME ARGLST)) ) ;_ end of vl-catch-all-error-p (setq RETVAL NIL) ) ;_ end of if ) ;_ end of progn ) ;_ end of if ) ;_ end of if RETVAL ) ;_ end of defun
Dieses Pgm dient dazu ein anderes Lisp "sicher" auszuführen. D.h. es wird IMMER ein gültiger Wert zurückgegeben, entweder der Rückgabewert oder eben nil bei kein Rückgabewert oder Fehler. Ist 'ne nette Geschichte. Spart einiges an Abfragen. Anstatt diesem ganzen Errorhandling und Abfrage-Gewese macht man z.B. einfach ein:
Code:
(if (setq PT (MS:SAFE-EVAL (list 'getpoint "\nPunkt wählen: "))) (progn ;; Mach was mit Punkt ) (alert "\nKein Punkt definiert!") )
Nun ist es egal, ob der User ESC drückt, oder anderen verrückten Kram macht. Gibt er KEINEN Punkt ein kommt auf jeden Fall ein nil zurück. Natürlich funzt Safe-eval auch mit jedem anderem Lisp-Prog. ------------------ Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
helmut51 Mitglied bautechniker
Beiträge: 244 Registriert: 12.08.2003 ACAD2006
|
erstellt am: 11. Sep. 2007 15:50 <-- editieren / zitieren --> Unities abgeben: Nur für CADesigner
Nach vielen vergeblichen versuchen habe ich gehofft,in diesem Beitrag eine Hilfe zu finden. Leider vergebens. Kann mir jemand sagen, warum folgender Codeschnipsel +Test4 soll die Routine NL aufrufen - nicht funktioniert(Problem wurde auf Minimum reduziert): ; Routine NL wird aufgerufen (defun c:test4 ( / ) (setq a "nl") ; name der Routine (setq b "c:") (setq c (strcat b a)) ; String zusammenfügen (print (strcat "die Variable c ist belegt mit :'" c "'")) ; Kontrollausgabe (c) ; Start der Subroutine (princ) ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 11. Sep. 2007 15:58 <-- editieren / zitieren --> Unities abgeben: Nur für CADesigner
du mischt da einiges .. les dir mal mapcars Tutorials noch mal genau durch. Probier mal (defun c:nl()(princ"\nHALLO")) (defun c:test4 ( / a b c ) (setq a "nl") (setq b "c:") (setq c (strcat b a)) (print (strcat "die Variable c ist belegt mit :'" c "'")) (eval (read (strcat "(" c ")"))) (princ) )
------------------ - 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 |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 ich hab eh keine Probleme damit...
|
erstellt am: 11. Sep. 2007 16:02 <-- editieren / zitieren --> Unities abgeben: Nur für CADesigner
Abgesehen davon, dass CADmium das Problem (wahrscheinlich) schon perfekt gelöst hat... Ist deine Funktion NL überhaupt definiert? Wenn ja - ist dies auch der Fall bevor sie aufgerufen wird... (also im Lsp-File vor dem Aufruf - nicht erst "weiter unten"...) ------------------ Grüsse Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
helmut51 Mitglied bautechniker
Beiträge: 244 Registriert: 12.08.2003 ACAD2006
|
erstellt am: 12. Sep. 2007 07:01 <-- editieren / zitieren --> Unities abgeben: Nur für CADesigner
Zitat: Original erstellt von CADmium: du mischt da einiges
Hallo Cadmium, perfekte Lösung. nachdem aber (defun c:test ( / ) (setq a c:nl) (a) (princ) ) funktioniert, dachte ich, dass test4 auch funktionieren muss. Hast Du einen kurzen Tipp für mich, was ich mische? Zitat: Original erstellt von tunnelbauer: Ist deine Funktion NL überhaupt definiert? [/B]
Natürlich ist NL definiert und der Umweg wird gemacht, da NL auch BLABLA oder WASANDERES sein kann. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 12. Sep. 2007 07:34 <-- editieren / zitieren --> Unities abgeben: Nur für CADesigner
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 12. Sep. 2007 08:01 <-- editieren / zitieren --> Unities abgeben: Nur für CADesigner
C .. ist ein String , nämlich "C:NL" (strcat "(" c ")") .. macht daraus "(C:NL)" das sieht schon mal wie ein Funktionsaufruf aus, ist aber immer noch ein String (read (strcat "(" c ")"))) macht (c:NL) draus .. ist sowas wie ein Symbol (eval (read (strcat "(" c ")"))) und eval evaluiert den übergebenen Ausdruck, d.h. wertet den an das Symbol gebundene Wert aus..ist im diesem Fall nu Subroutine, die ausgeführt wird.(eval (read (strcat "(" c ")"))) an c:nl ist ne subroutine gebunden -> siehe (type c:nl) (setq a c:nl) a übernimmt den Inhalt von c:nl (a) fürht die Subroutine aus
Alles klar? ------------------ - 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 |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 12. Sep. 2007 08:10 <-- editieren / zitieren --> Unities abgeben: Nur für CADesigner
Aus Freude, dass ich CADmiums Code etwas verkürzen kann, noch ein Hinweis: Das Verketten der Klammern mit dem String "c:NL" ist nicht notwendig. Man kann auch einfach ((eval (read c))) schreiben. Grüße Holger ------------------ Holger Brischke CAD on demand GmbH Individuelle Lösungen von Heute auf Morgen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
helmut51 Mitglied bautechniker
Beiträge: 244 Registriert: 12.08.2003 ACAD2006
|
erstellt am: 12. Sep. 2007 08:17 <-- editieren / zitieren --> Unities abgeben: Nur für CADesigner
|