Hallo Forum,
über eine DCL Datei muss der Benutzer eine Zahl (Abstand) eingeben.
:edit_box {
label = "&Abstand";
key = "KB2";
edit_width = 6;
}//:end edit_box
Der eingegebener Wert wir dann an die LSP Datei übergeben und die Eingabe geprüft. Falls nichts eingegeben wurde, sollte über die Funktion WNG eine Warnung erfolgen.
;Aktiviert Funktion (K) je nach gewähltem Diafeld
(Action_tile "K3L" "(Setq K \"K3L\")")
(Action_tile "K3R" "(Setq K \"K3R\")")
;Eingegebene Werte werden an Variablen übergeben
(Action_tile "KB2" "(Setq KB2 (Get_tile \"KB2\"))")
(Action_tile "KB3" "(Setq KB3 (Get_tile \"KB3\"))")
(Action_tile "Accept" "(If (And (/= KB2 nil) (/= KB3 nil)) (Done_dialog 1)) (WNG)")
(Defun WNG ()
(cond
((= KB2 nil) (alert "1. Wert nicht eingegeben!\n") )
((= KB3 nil) (alert "2. Wert nicht eingegeben!\n") )
);Cond
);Defun
Das Programm funktioniert. Die Prüfung jedoch nicht.
Was habe ich falsch gemacht? Kann mir bitte jemand einen Tipp geben.
Schöne Grüße
Waldemar
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP