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