---

Hallo Leute,

ich habe mal wieder zwei Fragen. Wie stelle ich es an, das sich das DIA in ein image wechselt wenn ich ein Radio_Button betätige?
Habe im Forum nichts gefunden und es so versucht. Komme aber zu keinem Ergebnis.

Dias:  rechteck.sld
          kreis.sld

-------------------------------------------------
test : dialog {
      label = "Testdialog";

      : column {
        : image {
          key = "bild";
          height = 10;
          width = 20;
          color = -2;
        }
        : radio_column {
          key = "radiokey";
          : radio_button {
            label = "Rechteck";
            key = "rechteck";
            value = 0;
          }
          : radio_button {
            label = "Kreis";
            key = "kreis";
            value = 1;
          }
        }
      ok_cancel;
      }
    }
---------------------------------------------
(defun c:test ()
  (setq dcl_id (load_dialog "test.dcl"))
  (if (not (new_dialog "test" dcl_id))
      (exit)
  )

  (action_tile "radiokey" "(setq image $value)")
 
  (start_image "bild")
  (slide_image 0 0 x y image)
  (end_image) 

  (setq OK (start_dialog))
  (unload_dialog dcl_id)
)
-------------------------------------------------

Mein zweite Frage ist, ob es ein Handbuch in Deutsch für DCL gibt und wenn wo man es bekommt.

Bin für jede Hilfe Dankbar!

mfg Alfonso

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

---

Hallo Alfonso,

keine 10 Beiträge tiefer findest du folgenden Thread

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

Jackpot on demand - Wir eröffnen den Spätsommer mit einer Verlosung!

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

---

Hallo Holger,

habe den Beitrag auch gefunden, komme damit aber nicht weiter.
Beim versuch den Code einzubauen hat es nie funktioniert (Bin noch Anfänger in Sachen Autolisp).
Trotzdem Danke!

mfg Alfonso

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

---

Ich erledige das in einem kleinen Unterprogramm :

(defun neues_bild (neu_bild / )
  (start_image "bild")
  (fill_image 0 0 x y -15) ; altes Bild mit Hintergrundfarbe überschreiben. x + y sind sicherlich vorher deklariert
  (slide_image 0 0 x y neu_bild)
  (end_image)
) ; ende defun

Im aufrufenden Programm wurde deklariert :
(setq bild1 "mein_bild_1"
      bild2 "mein_bild_2")

Aufruf :
(action_tile "rechteck" "(neues_bild bild1)")
(action_tile "kreis" "(neues_bild bild2)")

Ich habe es nicht getestet; klappt es trotzdem ?

Schönes Wochenende
Helmut

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

---

Hallo Helmut,

so funktioniert es. Besten Dank!

mfg Alfonso

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

---

Und was mach ich da falsch .......
Probier jetzt schon eine Weile

Will beim Drücken eines Radiobutton das dazugehörige slb Bild angezeigt bekommen, solange bis ich OK drücke

Code:

---

bauland : boxed_radio_column {
label = "  Bauland  ";
: radio_button { label = "Garten"; key = "GT"; }
: radio_button { label = "Gebäude"; key = "GB"; }
: radio_button { label = "Gebäudenebenfläche"; key = "GN"; }  }

grunland : boxed_radio_column {
label = "  Grünland  ";
: radio_button { label = "Alpe"; key = "AL"; }
: radio_button { label = "Dauerkulturanlage od. Erwerbsgarten"; key = "DK"; }
: radio_button { label = "Feuchtgebiet"; key = "FE"; }
: radio_button { label = "Forststraße"; key = "FS"; }
: radio_button { label = "Gewässer fließend"; key = "GF"; }
: radio_button { label = "Gewässer stehend"; key = "GS"; }
: radio_button { label = "Gewässerrandfläche"; key = "GR"; }
: radio_button { label = "Krummholzfläche"; key = "KF"; }
: radio_button { label = "Landwirtschaftlich genutzt"; key = "LN"; }
: radio_button { label = "Verbuschte Fläche"; key = "VB"; }
: radio_button { label = "Wald"; key = "WD"; }
: radio_button { label = "Weingarten"; key = "WG"; }  }

sonstig : boxed_radio_column {
label = "  Sonstige  ";
: radio_button { label = "Abbaufläche"; key = "AF"; }
: radio_button { label = "Betriebsfläche"; key = "BF"; }
: radio_button { label = "Fels und Geröll"; key = "FG"; }
: radio_button { label = "Freizeitfläche"; key = "EF"; }
: radio_button { label = "Friedhof"; key = "FR"; }
: radio_button { label = "Gletscher"; key = "GL"; }
: radio_button { label = "Parkplatz"; key = "PA"; }
: radio_button { label = "Schienenverkehrsanlage"; key = "SA"; }
: radio_button { label = "Straßenverkehrsanlage"; key = "SV"; }
: radio_button { label = "Vegetationsarme Fläche"; key = "VA"; }
: radio_button { label = "Verkehrsrandfläche"; key = "VR"; }  }

dkm_sym :  boxed_radio_column {
label = "  DKM-Symbol  ";
: image { key = "bild"; height = 2; width = 1; color = 0; }  }

teil1 : column {
bauland;
dkm_sym;
}

Nutzung_einsetzen_Dialog : dialog {
  label = "  N U T Z U N G S S Y M B O L    E I N S E T Z E N";
  spacer;
  spacer;

     

: row {
          teil1;
          grunland;
          sonstig;
    }

spacer;
spacer;

  : row {
: spacer {width = 1; }
: button { label = " Ok "; is_default = true; key = "accept";
                width = 8; fixed_width = true; alignment = centered; }
: spacer { width = 2; }
        : button { label = "Abbrechen"; is_cancel = true; key = "cancel";
                width = 8; fixed_width = true; }
        : spacer { width = 2; }
  }
}

------------------------------------------------------------------------
(defun neues_bild (neu_bild key );    Unterprogramm
(setq width (dimx_tile key))
(setq height (dimy_tile key))
(start_image "bild")
(fill_image 0 0 width height 0)
(slide_image 0 0 width height neu_bild)
(end_image)
)

(defun c:nutzung_einsetzen ()    ; eigentliches Programm

(setq bild1 "Garten.sld")
(setq bild2 "Gebaeude.sld")
(setq bild3 "Gebaeudenebenfl.sld")

(setq dcl_id (load_dialog "nutzung_einsetzen.dcl"))
(new_dialog "Nutzung_einsetzen_Dialog" dcl_id)

(action_tile "GT" "(neues_bild bild1)")
(action_tile "GB" "(neues_bild bild2)")
(action_tile "GN" "(neues_bild bild3)")

(action_tile "cancel" "(done_dialog) (setq UserClick nil)")
(action_tile "accept" "(done_dialog) (setq UserClick T)")
 
(start_dialog)
(unload_dialog dcl_id)

; Taste OK gedrückt

(if (= UserClick T)
    (progn
usw......................

---

------------------
Grüße Bernd

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