---

Ist es möglich von Lisp aus wieder eine Lisp-Funktion aufzurufen!
Beispiel: Mittels (getpoint)  wird aus dem Standardmenü eine dort hinterlegte Lispfangfunktion aufgerufen!

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

---

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

---

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

---

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

---

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

---

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

---

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

---

In Deiner obigen Version belegst Du a mit "c:nl" - und das ist ein String.

------------------
Schöne Grüße
Ernst

www.geopaint.at

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

---

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

---

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

---

Zitat:

---

Original erstellt von CADmium:

Alles klar?

---

Noch nicht ganz, aber es wird schon.
Danke

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