---

Servus!

Kann man anstatt

(action_tile "A" "(machwas 1")
(action_tile "B" "(machwas 2")

auch eine Liste verwenden?

(FOREACH n '(("A" 1) ("B" 2)) (action_tile (NTH 0 n) "(machwas (NTH 1 n))"))

Hintergrund: Ich möchte die keys plus Zusatzinfos aus einer Parameterdatei einlesen und dann eine temp. DCL-Datei schreiben.
Die DCL-Auswahl geht noch, dann bricht das Programm ab "Fehlerhafter Argumenttyp: consp nil".

Ciao Georg

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

---

STRINGs sind fett hervorgehoben
(action_tile "A" "(machwas 1")
(action_tile "A" "(machwas 1)")
(action_tile "B" "(machwas 2")
(action_tile "B" "(machwas 2)")

(FOREACH n '(("A" 1) ("B" 2)) (action_tile (NTH 0 n) "(machwas (NTH 1 n))"))

(NTH 0 n) => "A" = String, gut
"(machwas (NTH 1 n))" = String, gut - aber der Stringinhalt ist halt Mist? "(machwas (NTH 1 n))"

(FOREACH n '(("A" 1) ("B" 2)) (action_tile (NTH 0 n) (strcat "(machwas " (itoa(NTH 1 n)) ")")))

oder gleich (FOREACH n '(("A" "1") ("B" "2")) und
(FOREACH n '(("A" 1) ("B" 2)) (action_tile (NTH 0 n) (strcat "(machwas " (NTH 1 n) ")")))

oder

(FOREACH n '(("A" 1) ("B" 2)) (action_tile (NTH 0 n) (vl-princ-to-string (list 'machwas (NTH 1 n)))))
(FOREACH n '(("A" 1) ("B" 2)) (action_tile (car n) (vl-princ-to-string (list 'machwas (last n)))))
wobei ich "2er Listen nicht leiden kann, dafür gibt es dottedpairs, also
(FOREACH n '(("A" . 1) ("B" . 2)) (action_tile (car n) (vl-princ-to-string (list 'machwas (cdr n)))))

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

---

Merci, passt 

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

---

Servus!

Muss jetzt doch nochmal zu dem Thema fragen, evtl. kann mir jemand helfen.
Warum gibt mir Variante 1 den richtigen Wert für var zurück und Variante 2 nil?
Hab ich evtl einen Denkfehler mit foreach und das geht nicht mit action_tile ?

(SETQ dcl_id (LOAD_DIALOG "sbem.dcl"))
(IF (NOT (NEW_DIALOG "sbem_dcl" dcl_id)) (exit))

;******** Variante 1 *************
;(ACTION_TILE "1" "(SETQ var \"1\") (DONE_DIALOG)")
;(ACTION_TILE "2" "(SETQ var \"2\") (DONE_DIALOG)")
;(ACTION_TILE "3" "(SETQ var \"3\") (DONE_DIALOG)")
;(ACTION_TILE "cancel" "(SETQ var \"Abbruch\") (DONE_DIALOG)")

;******** Variante 2 *************
(FOREACH n '(("1" 0.305 1) ("2" 0.405 5) ("3" 0.505 7))
  (ACTION_TILE (NTH 0 n) "(SETQ var (NTH 0 n)) (DONE_DIALOG)")
)
(ACTION_TILE "cancel" "(SETQ var \"Abbruch\") (DONE_DIALOG)")
;*********************************

(START_DIALOG)
(UNLOAD_DIALOG dcl_id)

(ALERT var)

Ciao Georg

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

---

Zitat:

---

Original erstellt von gmk:
Servus!

Muss jetzt doch nochmal zu dem Thema fragen, evtl. kann mir jemand helfen.
Warum gibt mir Variante 1 den richtigen Wert für var zurück und Variante 2 nil?
Hab ich evtl einen Denkfehler mit foreach und das geht nicht mit action_tile ?

(SETQ dcl_id (LOAD_DIALOG "sbem.dcl"))
(IF (NOT (NEW_DIALOG "sbem_dcl" dcl_id)) (exit))

;******** Variante 1 *************
;(ACTION_TILE "1" "(SETQ var \"1\") (DONE_DIALOG)")
;(ACTION_TILE "2" "(SETQ var \"2\") (DONE_DIALOG)")
;(ACTION_TILE "3" "(SETQ var \"3\") (DONE_DIALOG)")
;(ACTION_TILE "cancel" "(SETQ var \"Abbruch\") (DONE_DIALOG)")

;******** Variante 2 *************
(FOREACH n '(("1" 0.305 1) ("2" 0.405 5) ("3" 0.505 7))
  (ACTION_TILE (NTH 0 n) "(SETQ var (NTH 0 n)) (DONE_DIALOG)")
)
(ACTION_TILE "cancel" "(SETQ var \"Abbruch\") (DONE_DIALOG)")
;*********************************

(START_DIALOG)
(UNLOAD_DIALOG dcl_id)

(ALERT var)

Ciao Georg

---

Trivial: die zweite Variante gibt korrekt die Auswertung des letzten Ausdrucks der FOREACH-Schleife zurück, und das dürfte NIL sein. Es geht Dir ja aber nicht um die Rückgabe der FOREACH-Schleife, sondern um die Zuweisung zur Variablen VAR

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

---

Servus Tom,

ich hatte ja schon die Vermutung dass hier mein Denkfehler liegt.

Ich hatte mir das immer so vorgestellt dass sich der Interpreter die ACTION_TILE Funktionen der Reihe nach "merkt" und beim Drücken eines Buttons dann die entsprechende ACTION_TILE Funktion ausführt. Das hätte mit FOREACH ja funktioniert...

Wie kann ich denn dann die Liste  '(("1" 0.305 1) ("2" 0.405 5) ("3" 0.505 7)), die aus einer Parameterdatei kommen soll, in die einzelnen ACTION_TILE Funktionen einlesen. Hab jetzt nur noch die Idee eine Sublisp-Datei aus der Hauptfunktion zu schreiben und die dann mit APPLOAD zur Laufzeit einzulesen .... oder bin ich da auch auf dem Holzweg?

Ciao Georg

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

---

Zitat:

---

Original erstellt von gmk:
Servus Tom,

ich hatte ja schon die Vermutung dass hier mein Denkfehler liegt.

---

Sorry, mein Fehler. Natürlich wird durch das ACTION_TILE festgelegt, was beim Drücken des Tiles passiert.

Wenn Du das Tile (Button?) mit key "3" drückst, wird dann für VAR NIL ausgegeben? Ein ALERT kann ja kein NIL ausgeben, sondern nur Strings. Was hast Du denn da sonst noch alles an Code vebastelt? Was ist der Rückgabewert welcher Funktion?

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

---

Hallo Georg,
Du könntest doch den ganzen String mit STRCAT zusammenbauen, dass müßte funktionieren:

Code:

---

(foreach n '(("1" 0.305 1) ("2" 0.405 5) ("3" 0.505 7))
  (action_tile (car n)
    (strcat "(setq var \"" (car n) "\")(DONE_DIALOG)")))

---

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

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

das Flächenstempel_Tool

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

---

Zitat:

---

Original erstellt von joern bosse:
Hallo Georg,
Du könntest doch den ganzen String mit STRCAT zusammenbauen, dass müßte funktionieren:

Code:

---

(foreach n '(("1" 0.305 1) ("2" 0.405 5) ("3" 0.505 7))
  (action_tile (car n)
    (strcat "(setq var \"" (car n) "\")(DONE_DIALOG)")))

---

---

Das ist mit Sicherheit der Fehler. Sorry, ist mir nicht aufgefallen.

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

---

Zitat:

---

Original erstellt von joern bosse:
Hallo Georg,
Du könntest doch den ganzen String mit STRCAT zusammenbauen, dass müßte funktionieren:

Code:

---

(foreach n '(("1" 0.305 1) ("2" 0.405 5) ("3" 0.505 7))
  (action_tile (car n)
    (strcat "(setq var \"" (car n) "\")(DONE_DIALOG)")))

---

---

Super Jörn, das war die Lösung.
Der Sebastian hat es ja in der ersten Antwort auch schon so vorgeschlagen aber ich hab's wohl falsch bei mir umgesetzt.

Danke Euch allen für die Hilfe !

Ciao Georg

[Diese Nachricht wurde von gmk am 03. Nov. 2022 editiert.]

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