---

Hallo,

ich glaube ich stehe momentan auf der Leitung.

Ich möchte bei einer Dialog-Variable mit Mehrfach-Auswahl prüfen ob Baugruppen enthalten sind und damit eine andere Variable aktiv oder inaktiv setzen.

Ich habe dazu folgenden etwas länglichen Code geschrieben: (nur das Codeschnipsel)

Code:

---

(Teile
  :title "Teil/Bgr"
  :value-type :Part-assembly
  :multiple-items t
  :wire-part-allowed t
  :face-part-allowed t
  :with-container t
  :initial-value nil
  :after-input
    (let (bgr)
      (setq bgr nil)
      (if (listp Teile)
        (when (find t Teile :test #'(lambda (a b) (if (sd-inq-assembly-p b) t nil)))
          (setq bgr t)
        )
        (when (sd-inq-assembly-p Teile)
          (setq bgr t)
        )
      )
      (if bgr
        (progn
          (setq rekursiv nil)
          (sd-set-variable-status 'rekursiv :enable t)
        )
        (progn
          (setq rekursiv nil)
          (sd-set-variable-status 'rekursiv :enable nil)
        )
      )
    )
)

---

Da gibts doch sicherlich eine kürzere und elegantere Möglichkeit, oder?

------------------
Gruß aus dem Salzkammergut

Thomas

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

---

Erster Versuch:

Code:

---

(Teile
  :title "Teil/Bgr"
  :value-type :Part-assembly
  :multiple-items t
  :wire-part-allowed t
  :face-part-allowed t
  :with-container t
  :initial-value nil
  :after-input
    (progn
      (setq rekursiv nil)
      (if (find-if #'sd-inq-assembly-p Teile)
        (sd-set-variable-status 'rekursiv :enable t)
        (sd-set-variable-status 'rekursiv :enable nil))))

---

------------------
CoCreate Modeling FAQ: http://www.clausbrod.de/CoCreateModeling/

[Diese Nachricht wurde von clausb am 29. Apr. 2009 editiert.]

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

---

Super! Danke! 10x10 Us für die tolle Lösung und die schnelle Reaktion!

Sehr übersichtlich und macht genau das was ich wollte.

Wenn man deinen Code betrachtet fällt auf, dass mein Code auch kürzer möglich gewesen wäre (z.B. das doppelte (setq rekursiv nil), ...) Aber so kompakt hätte ich das wohl nie hingebracht. find-if - muss man sich merken.

Hätte ich mir die Prüfung auf Liste auch mit find sparen könnnen?

------------------
Gruß aus dem Salzkammergut

Thomas

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

---

Das mit der Typprüfung auf Liste habe ich offen gesagt nicht wirklich verstanden (und dann einfach unter den Teppich gekehrt  ). In welchen Fällen bekommt man denn keine Liste aus der Selektion?

------------------
CoCreate Modeling FAQ: http://www.clausbrod.de/CoCreateModeling/

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

---

Ich war bisher immer der Meinung, dass bei Einzelauswahl ein einzelnes Element kommt und nur bei Mehrfachauswahl eine Liste. Hab aber gerade in der IKIT-Doku nachgelesen. Da steht drin dass man immer eine Liste bekommt wenn :multiple-items t eingestellt ist.
War also wirklich überflüssig. 

Und jetzt weiß ich auch womit ich das verwechselt habe:
Bei get_selection ist wird je nach Auswahl ein Einzelelement oder eine Liste geliefert.

------------------
Gruß aus dem Salzkammergut

Thomas

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

---

Zitat:

---

Original erstellt von holt:
Und jetzt weiß ich auch womit ich das verwechselt habe:
Bei get_selection wird je nach Auswahl ein Einzelelement oder eine Liste geliefert.

---

Falsch.  Bei get_selection bekommst Du immer eine Liste.  Nur wenn Du :single_selection spezifizierst nicht.

------------------
● Seamonkey Firefox Thunderbird ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ●

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

---

Zitat:

---

Original erstellt von der_Wolfgang:
Falsch. 

---

Tatsächlich!

Ich gebe mich geschlagen! 

------------------
Gruß aus dem Salzkammergut

Thomas

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