---

Hallo!!

Frage: Wie kann ich eine Benutzerabfrage in einer Lisp erstellen?
Also zum beispiel eine Variable "a" definieren der dann mein eingegebener wert zugewiesen wird und dieser dann verwendet wird.

Bsp:
Ich will ein Objekt Varia(ieren) also größe ändern. Einmal will ich das mit F= 2 und einmal mit F= 3,78. Ich will nun vor der Objektwahl den faktor angeben und dann auswählen...

Und bitte ich weiß das der befehl Varia das umgekehrt selber macht -.- ES IST JA NUR EIN BEISPIEL. Es geht ums Prinzip, Wie ich eine LISP-Benutzerabfrage erstelle.

Hoffe auf hilfe.

Danke chris

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

---

Hallo Chris

Da hast du mehrere möglichkeiten.

ein paar Beispiele:
(setq A (getstring "\Bitte ein Wort eingeben: "))
(setq A (getint "\Bitte eine Ganzzahl eingeben: "))
(setq A (getreal "\Bitte eine reale Zahl eingeben: "))

Du kannst das ganze auch noch beschränken wenn du willst.
(initget 1 "2.00 3.75")
(setq A (getkword "\nBitte eine Auswahl treffen [2.00 /3.75]: "))

Bei dieser Variante musst du aber beachten das du den wert nachher wider in eine reale Zahl umwandelst, da der wert ein String ist.

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

---

COOLE SACHE^^

danke dir vielmals

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

---

und jetzt nur mal so gefragt...

gibt es auch sowas das man schon ein wert festlegen kann der standartmäßig ausgewählt is wenn man einfach nur enter drückt?
oder muss man sich das mit bedingungen selbst basteln?

wie hier im beipiel...
um wieviel wollen sie die größe ändern [2/3.78] <2>:

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

---

@Gordonsky
bei enter wird ja nil  bzw. bei getstring "" zurückgegeben
daher kann man das z.B: so lösen
(or(setq WERT(getreal "\nWert <5.34> :"   ))
   (setq WERT 5.34)
)

bei getkword mußt du aber bei initget die 1 weglassen , da sonst ein leeres Enter nicht akzeptiert wird

(initget  "2.00 3.75")
(or(setq A (getkword "\nBitte eine Auswahl treffen [2.00 /3.75]<2.00>: "))
  (setq A 2.00)
)
------------------
           - 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,

ich habe neulich ein paar Worte über schnippige Antworten und Gegenantworten geschrieben.
Deine Antwort zeigt genau das Gegenteil, Deine Erklärung über Abfragemöglichkeiten ist einfach, übersichtlich und doch umfassend, das gefällt mir.

Gruß
Theodor

[Diese Nachricht wurde von Theodor Schoenwald am 07. Jul. 2011 editiert.]

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

---

Hallo Gordonsky,
Du kannst auch die die Vorgabe in eine globale Variable setzen, und diese nach jeder Eingabe aktualisieren, dann hast Du immer den zuletzt verwendeten Wert als Vorgabe.

Code:

---

(defun c:abfrage ( / zahl)
  (if (not Zahl$$Global)
    (setq Zahl$$Global 3.123))

  (if (not(setq zahl (getreal
  (strcat "\nBitte Zahl eingeben<"
  (rtos Zahl$$Global 2 3)">:"))))
    (setq zahl Zahl$$Global)
    (setq Zahl$$Global zahl))
  (alert
    (strcat "Der Wert der Zahl lautet: "
    (rtos zahl 2 3))))

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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