---

Hallo,

bei einem normalen Lisp das in der Kommandozeile läuft kann man ja jederzeit mit Esc das Ganze abrechen, bei einem Lisp mit DCL nicht, auch die Schaltfläche Abrechen scheint nicht ohne weiteres zu funktionieren, wie wird die DCL-Datei vom Lisp aus angesteuert damit das Ganze funktioniert ?
Hab folgendes BSP programmiert das dann aber in einer Schleife läuft die nicht mehr abgebrochen werden kann !

;Lisp:

(defun c:T10 ()
(setq ga 1)
(while (/= ga 0)
(setq dcl_id (load_dialog "T1.dcl"))
(if (not (new_dialog "T1" dcl_id))(exit))
(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")
(action_tile "fa" "(setq bt (atof $value))") 
(start_dialog)                                     
(unload_dialog dcl_id)                       
(princ)
(princ (strcat "\n " bt "\n "))
)
)

;DCL:

T1 : dialog {

  label = "TXT TXT";

: text {
        label = "XXXXxxxx";
        alignment = centered;
      }

  : edit_box {
            label = "Text: ";
            mnemonic = "T";
            key = "fa";
            allow_accept = true;
            edit_width = 5;
            edit_limit = 5;
            }
      ok_cancel;
}

Gruß, Jürgen

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

---

Hallo Jürgen,

du hast ja auch eine Endlosschleife programmiert.
(while (/= ga 1)
... nirgends wird der Wert von ga geändert.
)

Du musst die Rückgabe des Dialogfensters abfragen mit:
(setq ga (start_dialog))
Dann erhältst du den Wert, den du mit (done_dialog #)setzt.

Alles klar?

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Hallo Holger,

ich hatte jetzt Zeit das zu testen, und es läuft !

Danke

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