---

hallo

möchte gerne ein programm erstellen womit ich einiges erleichtere.
auswahl: punkt oder M
wie kann ich das vereinen oder trennen ?
(SETQ A (GETPOINT "\nPUNKT 1")) für punkt
(SETQ B (FIX (GETREAL "\nM"))) für einen ganz zahl zum eingeben ?

"nächster punkt oder M" bei "M" sollte eine ganz zahl zum eingeben sein. bei enter sollte "M" den alten wert übernehmen und der punkt 1 abgefragt werden.

wie löse ich das problem ?

mfg   

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

---

Wenn ich es richtig verstanden habe möchtest du einen
Punkt abfragen, alternativ dazu die Eingabe eines Wertes
zulassen?

Nun, wenn du eine Punkt abfragst und der User einen
Wert eingibt berechnet AutoCAD einen neuen Punkt
unter Winkel <Letzter Punkt zu Fadenkreuzzentrum> mit
eingegeben Abstand.

Also geht beides nicht, die Lösung ist offensichtlich
nur durch ein Keyword zu lösen:

Punkt eingeben oder [Abstand]:

oder

Abstand eingeben oder [Punkt]:

jenachdem wo die Priorität liegt.

Wenn du für Abstand bereits einen Wert besitzt
solltest du in anzeigen un als Vorgabe (Leereingabe)
anbieten:

Punkt eingeben oder [Abstand] <12.45>:

(Siehe Befehl VERSETZ)

Zum Abschluß, warum (FIX (GETREAL "\nM")) ?

Du fragst nach einer Realzahl, schneidest aber die
Nachkomma ab? Warum nicht gleich GETINT?
(FIX schneidet die Nachkomma ab ohne zu runden,
GETINT rundet die Eingabe)

------------------
Bernd Cuder
Cad&Co makes CAD easy

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

---

Meine Lisp Zeiten sind lange her aber
hier ein Bsp. Abfrage mit Keyword:

(initget 2 "Abstand")
'' 2 bedeutet keine 0 Eingabe
(setq Point (getpoint "Punkt eingeben oder [Abstand] <45>: "))

Jetzt prüfen was in Point steht, ein Punkt oder "Abstand" oder
Leer?

Ich wünschte in ARX wärs so einfach :-)

------------------
Bernd Cuder
Cad&Co makes CAD easy

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

---

danke Bernd

ausgabe:
Punkt1 oder M:

bei enter sollte er den punkt abfragen .
bei "M" soll er mir einen anderen abschnitt im programm abfragen und ausfüren .

eingabemöglichkeiten punkt oder M

wie löse ich das ?

mfg

Gregor

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

---

Hi Gregor,
hier ein Beispiel:

Code:

---

(defun test (/ RETVAL)
  (initget 9 "optionA optionB")
  (setq
    retval (getpoint
             "\nPunkt eingeben oder Option wählen [optionA/optionB]: "
           ) ;_ end of getpoint
  ) ;_ end of setq
  (cond
    ((= retval "optionA") (setq retval (subfunction-a)))
    ((= retval "optionB") (setq retval (subfunction-b)))
    (T) ;_ ansonsten tue nix
  ) ;_ end of cond
  retval
) ;_ end of defun

(defun subfunction-a ()
  "Ausführung von A"
) ;_ end of defun

(defun subfunction-b ()
  "Ausführung von B"
) ;_ end of defun

---

Zu Deinem: "bei "M" soll er mir einen anderen abschnitt im programm abfragen und ausfüren"

Das "riecht" nach einem "GoTo" Befehl... Gibt es in Lisp nicht, ist auch nicht nötig. Mußt Du mit z.B. einer Subfunktion lösen...

------------------
Ciao,
Marc

[Diese Nachricht wurde von marc.scherer am 01. Oktober 2002 editiert.]

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

---

Servus

Hole Dir das Programm edline.lsp von http://www.industrie24.com/ftp.php?31

Es enthält viele solche Verzweigungen, vielleicht nützt es Dir als Beispiel.

Gruß, Ernst

------------------
ACAD 2000

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

---

Zitat:

---

Original erstellt von marc.scherer:

Code:

---

(defun test (/ RETVAL)
  (initget 9 "optionA optionB")
  (setq
    retval (getpoint
             "\nPunkt eingeben oder Option wählen [optionA/optionB]: "
           ) ;_ end of getpoint
  ) ;_ end of setq
  (cond
    ((= retval "optionA") (setq retval (subfunction-a)))
    ((= retval "optionB") (setq retval (subfunction-b)))
    (T) ;_ ansonsten tue nix
  ) ;_ end of cond
  retval
) ;_ end of defun

(defun subfunction-a ()
  "Ausführung von A"
) ;_ end of defun

(defun subfunction-b ()
  "Ausführung von B"
) ;_ end of defun

---

---

wieder was gelernt !
hierzu noch mal eine frage...
funktioniert das auch mit Blockabfrage ???
also mittels dieser "Control Bits " (XX.. 9) und cond ??
Bsp.
script fragt nach einem AT-Block, oder der Anwender soll darauf picken. (Abfangfunktion wenn AT-Block mehrfach vorh. ist)

und wie bist du auf 9 gekommen ?? habe die tabelle in der onlinehilfe mir angesehen, aber 9 taucht da nicht auf...

wartend auf feedback... :-)

------------------
Grüße aus dem Rheingau.
Rolf aka Benwisch

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

---

Hallo Rolf,

die Werte der Initget-Optionen lassen sich durch Addition kombinieren.
in diesem Fall besteht die 9 aus der Option
1 - Leereingabe nicht erlaubt
und
8 - Limitenbegrenzung ausschalten

Das ist z.B. auch bei dem Objektfang so.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night

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

---

n'Abend Holger,

vielen Dank für die Antwort....bin schon am probieren..studieren..testen ;-)

------------------
Grüße aus dem Rheingau.
Rolf aka Benwisch

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