---

Moin zusammen,

ich versuche mich gerade in DCL einzuarbeiten und bräuchte bei einem Problem hilfe.

Ich möchte, dass bei einem bestimmten Wert einer popup_list eine andere popup_list deaktiviert wird. Idealerweise sollte dieser wieder aktiviert werden, wenn man einen anderen Wert wählt.

Mein Ansatz:

Code:

---

  (action_tile "CB"
  "(if (= (get_tile \"CB\") \"ohne\")
(mode_tile \"BD\" 1)
(mode_tile \"BD\" 0))")

---

"CB" ist hierbei die popup_list die überwacht und "BD" die, die deaktivert/aktiviert werden soll.

-> Und noch eine allgemeine Frage zu DCL: Kann mir jemand eine gute Quelle empfehlen, wo die DCL-Programmierung gut erklärt ist?
Bisher lerne ich nur durch Forumsbeiträge oder Beispielprogramme von anderen. Die DCL-Codes schreibe ich mit Notepad++.

Danke!

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

---

ich fand die damals ganz gut
https://autolisp-exchange.com/Tutorials/MyDialogs.htm

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
-Lots of irritating superfluous parentheses!-

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

---

Hallo Meier2018,
die Funktion GET_TILE gibt die Positionsangabe als STRING wieder, beginnend bei "0".

Um also Deinen Wert "ohne" zu erhalten musst Du an Deine ursprüngliche Liste ran, mit der Du die POPUP_LIST gefüllt hast:

(nth (atoi (get_tile "CB"))PopupListe)

es geht auch mit der Variablen $value, die ebenfalls die Positionsangabe als STRING beinhaltet:
(nth (atoi $value)PopupListe)

Und ich würde mir inzwischen immer eigene Funktion für die Action_Tile-Anweisung schreiben (das muss aber nicht so sein, kann aber)

Code:

---

(action_tile "CB" "(Dbox:Action:cb)")
...
(defun DBox:Action:cb ( / )
(if (= (nth (atoi $value)PopupListe) "ohne")
    (mode_tile "BD" 1)
    (mode_tile "BD" 0)
  )
)

---

Wenn Du eine eigene Funktion nimmst mußt Du auch nicht die viele BackSlashes für die Anführungstriche verwenden.

Ist alles nur schnell reigetippt und ungetestet, probier einfach mal.

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

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

Bosse_tools-Überblick

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

---

Hallo Jörn,

funktioniert wunderbar! Besten Dank auch für die Erklärung! 

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