---

Hallo Mitstreiter,

ich knabbere am Problem mapcar den aufzurufenden Befehl in einer Variablen zu übergeben.

so etwa :

Code:

---

(defun Test ( / )
  (setq fkt "Testfkt")
  (mapcar 'fkt '(1 2 3))
  )

(defun Testfkt (Va / )
  (print (+ Va 2))
  )

---

bringt aber immer ungültige Funktion.

wer kann helfen ?

MfG
GE

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

---

Hallo Gerd,

um Deine Frage (wer kann helfen?) korrekt zu beantworten: ich (und sicher auch ein paar andere, die hier im Forum unterwegs sind)

Im Ernst: so geht's:

Code:

---

(defun Test ( / )
  (setq fkt (eval(read"Testfkt")))
  (mapcar 'fkt '(1 2 3))
  )

(defun Testfkt (Va / )
  (print (+ Va 2))
  )

---

Schau dir mal in der Hilfe an, was mit (read ..) und (eval ..) angestellt wird.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

... oder so

Code:

---

(defun Testfkt (Va / )
  (print (+ Va 2))
  )

(defun c:Test ( / )
  (setq fkt Testfkt)
  (mapcar 'fkt '(1 2 3))
  )

---

Gruß
Thomas

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

---

...oder die klassische MAPCAR-Variante, ist leichter zu überschauen, was passiert:

Code:

---

(defun c:test ( / )
  (mapcar '(lambda(n)
            (Testfkt n))
    '(1 2 3))
  (princ))

(defun Testfkt (Va / )
  (print (+ Va 2))
  )

---

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

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

Liniensignaturen Youtube

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

---

Danke an Brischke,

  Dein Beitrag ist die Lösung, da der Befehlsname als Zeichenkette vorliegt.

Üs sind unterwegs, noch einen schönen Tag.

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

---

Zitat:

---

Original erstellt von Gerd_Ecke:
Danke an Brischke,

  Dein Beitrag ist die Lösung, da der Befehlsname als Zeichenkette vorliegt.

Üs sind unterwegs, noch einen schönen Tag.

---

Nur zur Klarheit: das EVAL ist nicht nötig. (setq fkt (read "FUNKTIONSNAME")) reicht völlig aus
(setq fktstr "PRINT")
(setq fkt (read fktstr))
(mapcar fkt '(1 2 3))

oder natürlich gleich so:
(mapcar (read fktstr) '(1 2 3))

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