---

hallo miteinander

ist es möglich in einer foreach schleife defun zu erzeugen?

mit diesen zeilen komme ich nicht weit.
(foreach item
'(a b)
  (defun item ()
    (princ)
    )
  )
hat jemand einen gedankenstoß?

vielen dank

gruß
theo

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

---

Schau dir Defun-Konstrukt nochmal an:
(defun a () (alert "test"))

das ist also nichts weiter als eine Liste mit den Inhalten: defun a nil Liste(mit dem Inhalt: alert und a)

Eine List ebaut man mit LIST, und da steckt man dann rein was rein soll, zuletzt muß dann nur noch gesagt
werden das er die Liste ausführen soll, dann kommt des Defun zum Einsatz welches die Funktion definiert.
JA, meine Erklärungen sind schrott, aber ich komme damit zurecht 

(eval (list 'defun 'a '() (list 'alert "test")))

Und in der foreach Version ? Da mußt du noch einmal neu überlegen wo ein Ausdruck evaluiert
werden soll und wo nicht, weil das Symbol a ja an dem symbol 'item' hängt

Code:

---

(foreach item '(a b c d)
  (eval  ;ausführen
    (list 'defun item nil ; Liste erstellen mit DEFUN als Funktion
        (list 'alert (vl-princ-to-string item)) ; irgendwas soll in dem defun auch drinstecken 1
        '(princ)  ; irgendwas soll in dem defun auch drinstecken 2

    );_list_ende
  );_ausführen_ende
);_foreach_ende

---

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

(foreach ITEM '("A" "B")
  (set(read ITEM)
    (list '()
    (list princ (strcat "\nHallo-Funktion-" ITEM))
   )
)

Befehl: (a)

Hallo-Funktion-A

Befehl: (b)

Hallo-Funktion-B

------------------
      - 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

---

vielen dank für die erklärung (die ist überhaupt nicht schrott - wie du sagst)
so funktioniert es natürlich auch.

vielen dank

gruß
theo

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

---

Zitat:

---

Original erstellt von cadffm:
Schau dir Defun-Konstrukt nochmal an:
(defun a () (alert "test"))

das ist also nichts weiter als eine Liste mit den Inhalten: defun a nil Liste(mit dem Inhalt: alert und a)

Eine List ebaut man mit LIST, und da steckt man dann rein was rein soll

---

Das ist nur eingeschränkt richtig - falsche Erklärung, aber richtige Lösung :-). Eigentlich (jaja, lange ist's her) baut das DEFUN ja auch eine Liste, nur tut's das im VisualLisp nicht mehr. Dafür gibt's das alte DEFUN noch als DEFUN-Q.

Der entscheidende Punkt ist vielmehr, dass sowohl DEFUN als auch DEFUN-Q so gestrickt sind, dass sie das erste Argument NICHT evaluieren, sondern dass sie es wie beispielsweise die Funktion SETQ gequoted übernehmen. Deshalb kann das (defun item ...) in der foreach-Schleife nix werden.

Deine Lösung ist aber natürlich korrekt.

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

---

Zitat:

---

Original erstellt von GottesGeschenk:
hallo miteinander

ist es möglich in einer foreach schleife defun zu erzeugen?

mit diesen zeilen komme ich nicht weit.
(foreach item
'(a b)
  (defun item ()
    (princ)
    )
  )
hat jemand einen gedankenstoß?

vielen dank

gruß
theo

---

Das DEFUN evaluiert das erste Element nicht, weshalb das ITEM in Deiner Schleife nicht zu den Elementen der Liste '(a b) evaluiert.

So geht's richtig:

(foreach item '(a b)
  (set item (lambda (x) (* x x x)))
)

Danach ergibt (a 5) korrekt 125.

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

---

vielen dank für die ausführliche Erklärung.
jetzt hab ich es verstanden.

gruß
theo

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