---

Hallo zusammen,

ich steh wiedermal völlig im Wald

Ich habe in einer DCL ein Button ( Key= dnam1)
wie bekomme ich es hin das bei Klick auf dieses Button

(setq dn(getfiled "*.LAE - LAEngsschnittdatei wählen\" PFAD "LAE" 8))

ausgeführt wird.

------------------
Servus,
Mario  

www.the-skier.de

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

---

in dem du dem Button in deinem Lisp-Quellcode ne Action zuweist..
(action_tile
   "dnam1"
  (strcat
     "(setq dn(getfiled \"*.LAE - LAEngsschnittdatei wählen\""
    PFAD
    " \"LAE\" 8))
   )
)

(hoffe, ich hab keine Klammer ect. vergessen..)
------------------
      - 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

---

Hallo Thomas,

erstmal vielen Dank, ich hatte strcat vergessen.
Ich habe aber noch viel mehr "Code" in meinem Code.
Im DCL sollen 2Dateien ausgewählt werden, und im Textfeld angezeigt werden - könntest du dir das bitte mal anschaun - Bitte Bitte

Code:

---

(defun
PARIS2GC_DIALOG
(/ DCL_ID_P2GC PFAD)
(setq PFAD "T://DWG//" )
(setq dname1 ""
dname2 "")
(setq DCL_ID_P2GC (load_dialog "PARIS2GC.dcl"))
(if (null (new_dialog "PARIS2GC" DCL_ID_P2GC))
(alert
"\nKann die Dialogbox für Signaturaustausch \n  nicht finden / laden !"
) ;_ Ende von ALERT
) ;_ Ende von if
(set_tile "DNAME1" DNAME1)
(set_tile "DNAME2" DNAME2)
(action_tile "DATNAME1" (strcat "(SETQ dname1 (getfiled \"*.PAR - PARIS Signaturdatei wählen\"" PFAD "\"par\" 8))")) ;_ Ende von action_tile
(action_tile "DATNAME2" (strcat "(SETQ dname2 (getfiled \"*.GCS - GeoCadSignaturdatei wählen\"" PFAD "\"gcs\" 8))")) ;_ Ende von action_tile
(action_tile "DNAME1" "(SETQ dname1 $value)")
(action_tile "DNAME2" "(SETQ dname2 $value)")
(start_dialog)
(unload_dialog DCL_ID_P2GC)
) ;_ Ende von defun

---

Code:

---

PARIS2GC : dialog {
    label="Dateiauswahl";
        : text {
            label      = "PARIS Signatur-Listendatei" ;
        }
        : button {
        key = "DATNAM1";
        label = "Datei . . .";
        is_default = true;
        fixed_width = true;
        alignment = left;
        }
        : edit_box {
  key = "DNAME1";
    value = DNAME1;
    width = 80;
        }
        : text { }
        : text {
          label      = "GeoCAD Signatur-Listendatei" ;
        }
        : button {
        key = "DATNAM2";
        label = "Datei . . .";
        is_default = true;
        fixed_width = true;
        alignment = left;
        }
        : edit_box {
  key = "DNAME2";
    value = DNAME2;
    width = 80;
        }
        : text { }

ok_only;
}

---

------------------
Servus,
Mario  

www.the-skier.de

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

---

mal ein Bsp für die Action für einen Button:

Code:

---

(action_tile "DATNAME1"
            (strcat
              "(if(SETQ dname1 (getfiled \"*.PAR - PARIS Signaturdatei wählen\"" PFAD "\"par\" 8))"
              "  (set_tile \"DNAME1\" dname1)"
              ")"   
            )
)

---

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

---

Hallo Thomas,

woran liegt es, dass wenn ich auf den Button picke das Dialogfenster geschlossen wird und nil zurückgegeben wird.
Ich komme gar nicht erst zur Auswahl einer Datei. 

------------------
Servus,
Mario  

www.the-skier.de

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

---

Deine Key Attribut ist falsch benannt Datnam/Datname
außerdem ist ein Fehler in der getfiled funktion

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Danke Wiesel,

für den Tip, es fehlte wohl 2x " in getfield function
da sieht ja kein Mensch mehr durch
aber es geht jetzt.

Danke für Eure Hilfe

------------------
Servus,
Mario  

www.the-skier.de

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