---

Hallo,

ich möchte in der Befehlszeile einen Realwert vom Benutzer auswählen lassen. Als Auswahl darf aber nur nil oder einer der beiden Werte möglich sein. Dazu folgendes Beispiel:
(setq rvorgabe 1000.0)
(initget 6 "750 1000")
(setq rget (getreal "Werte wählen [750/<1000>]: "))
(if (= rget nil)
  (setq rwert rvorgabe)
  (setq rwert rget) ; else
) ; if

Kann ich mit den Bits der Funktion initget erreichen, dass die erlaubten Rückgabewerte der Funktion getreal nur nil, 750 und 1000 sind?

Danke im Voraus und viele Grüße
Bernd

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

---

bei der Vorgabe würde ich es so machen :
(initget "750 1000")
(setq R(getkword  "\nWerte wählen [750 / 1000]<1000> : "))
(setq R(cond
         ((= R "750")750.0)
         ('T 1000.0)
       )
)

eine andere Variante wäre noch
(while(not(and(or(setq R (getreal "\nWerte wählen [750 / 1000]<1000> : "))
                (setq R 1000.0)
              )
              (member R '(750.0 1000.0 ))
          )
      )
  (prompt "\nUngültige Eingabe!")
)

------------------
      - 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,

Zitat:

---

Original erstellt von CADmium:
bei der Vorgabe würde ich es so machen :
(initget "750 1000")
(setq R(getkword  "\nWerte wählen [750 / 1000]<1000> : "))
(setq R(cond
         ((= R "750")750.0)
         ('T 1000.0)
       )
)

eine andere Variante wäre noch
(while(not(and(or(setq R (getreal "\nWerte wählen [750 / 1000]<1000> : "))
                 (setq R 1000.0)
              )
              (member R '(750.0 1000.0 ))
          )
      )
  (prompt "\nUngültige Eingabe!")
)

---

vielen Dank für Deine Vorschläge. Für mich ist mit getkword am einfachsten:
(setq cvorgabe "1000")
(initget 6 "750 1000")
(setq cget (getkword "Werte wählen [750/<1000>]: "))
(if (= cget nil)
  (setq rwert (atof cvorgabe))
  (setq rwert (atof cget)) ; else
) ; if

Viele Grüße
Bernd

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