Forum:Lisp
Thema:Edit_Box Eintrag in .txt speichern
Möchten Sie sich registrieren?
Wer darf antworten? Registrierte Benutzer können Beiträge verfassen.
Hinweise zur Registrierung Sie müssen registriert sein, um Beiträge oder Antworten auf Beiträge schreiben zu können.
Ihr Benutzername:
Ihr Kennwort:   Kennwort vergessen?
Anhang:    Datei(en) anhängen  <?>   Anhänge verwalten  <?>
Grafik für den Beitrag:                                                
                                                       
Ihre Antwort:

Fachbegriff
URL
Email
Fett
Kursiv
Durchgestr.
Liste
*
Bild
Zitat
Code

*HTML ist AUS
*UBB-Code ist AN
Smilies Legende
Netiquette

10 20 40

Optionen Smilies in diesem Beitrag deaktivieren.
Signatur anfügen: die Sie bei den Voreinstellungen angegeben haben.

Wenn Sie bereits registriert sind, aber Ihr Kennwort vergessen haben, klicken Sie bitte hier.

Bitte drücken Sie nicht mehrfach auf "Antwort speichern".

*Ist HTML- und/oder UBB-Code aktiviert, dann können Sie HTML und/oder UBB Code in Ihrem Beitrag verwenden.

T H E M A     A N S E H E N
Andreas Kraus

Beiträge: 1193 / 1

WIN 10
ACAD 2017

Hallo Der-T,
ich hab zwar nur einen Programmschnipsel hier aber ich denke du versuchst Werte aus dem Dialogfeld zu lesen nachdem der Dialog schon geschlossen ist.
DAS GEHT NICHT  

Mach das mal so:

Code:
(defun end_dialog (wert)
  (setq D1 (atof (get_tile "D1")))
  (setq D2 (atof (get_tile "D2")))
  (done_dialog wert)
)

(if (< (setq dcl_id (load_dialog "K1")) 0)
  (progn
    (alert "DCL - Datei nicht gefunden")
    (exit)
  )
)
(if (not (new_dialog "K1" dcl_id))
  (exit)
)
(setq breite (dimx_tile "bild")
      hoehe  (dimy_tile "bild")
)
(action_tile "accept" "(end_dialog '1)")
(action_tile "cancel" "(end_dialog '0)")

(action_tile "Bt" "(setq Bt (atof $Value))")

(action_tile "D1" "(setq D1 (atof $Value))")
(action_tile "D2" "(setq D2 (atof $Value))")
(action_tile "H" "(setq H (atof $Value))")
(action_tile "S" "(setq S (atof $Value))")
(action_tile "Z" "(setq Z (atof $Value))")

(mode_tile "Bt" 2)
(set_tile "D1" "")
(set_tile "D2" "")
(set_tile "H" "")
(set_tile "S" "")
(set_tile "Z" "")

(start_image "bild")
(slide_image -135 10 675 235 "K1")
(end_image)
(setq aktion (start_dialog))
(unload_dialog dcl_id)

(if (= aktion 1)
  (progn
    (setq file (open "C:\\Konus.txt" "w"))
    (princ (list D1 D2 "Test") file)
    (close file)
  )
  (exit)
)


Jetzt verstehst du vielleicht auch warum ich geschrieben habe

Zitat:
Du brauchst im Code noch:
(action_tile "accept" "(Funktion die die Textdatei macht)(done_dialog)")

Das ist im Prinzip das.
Also wenn du auf OK drückst muss erst mal alles was du brauchst aus dem Dialogfeld gelesen werden und erst dann kannst du das Ding schließen.

EDIT: noch einen Backslash bei (setq file (open "C:\\Konus.txt" "w")) ergänzt

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

[Diese Nachricht wurde von Andreas Kraus am 30. Jan. 2020 editiert.]