---

Hi,
Leute ich hätte mal ein paar fragen zum Tehma Lisp.
Üb so ungefähr seit einer Woche AutoLisp. Vorher hab ich mich damit überhaupt nicht beschäftigt. Also nicht sauer sein sind anfänger fragen. So fagen wir mal an.
1.
Ich wollte fragen ob ich in dem Befehl getstring einen Wert anzeigen lassen kann. Ich meine das so:
(defun C:test
      (setq wert (getreal "zahl wählen:"))
      (setq test (getstring "sie haben die Zahl (hier soll nun der wert stehen von der Variable wert) gewählt"))
)

2.
Die nächste sache wer, kann ich eine Realzahl in einen Text umwandeln ???
z.b

(defun C:test
      (setq wert (getreal "zahl wählen:"))
      (+ wert 2)(das brauche ich zum rechnen nicht fragen warum ist nur ein Beispiel)
      (setq test (jetzt soll der wert von der variable wert in einen Text umgewandlt werden)
      (setq uhe  (strcat wert "un" ".dwg" ))
      (commend "einfüge" uhe "0,0" "1" "1" "0")
)

danke allen schon mal im vorraus
p.s die code sind nicht getestet und können fehler enthalten bin halt noch anfänger.

mfg

FiRePhoenix

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

---

Hallo FirePhoenix,

1.
- String zusammenfassen mit STRCAT
- Realwert mit RTOS in String umwandeln

(setq test (getstring
              (strcat "sie haben die Zahl "
              (rtos wert 2 0)
                " gewählt.")))

2. Ebenfalls mit RTOS

Wenn Dir Integerzahlen hinreichen => (GETINT
kannst Du diese mit ITOA in einen String wandeln.

2.

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

Jörn

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

---

Danke joern bosse. Man bist du gut von dem befehl hab ich noch nie gehört?? Du bist einfach gut, ok in diesen zug hab ich noch ne frage.
Wie kann ich realzahlen vorbestimmen mann soll nur diese zahlen wählen können. Mit dem Befehl getkword kann man String bestimmen. OK man auch sagen das man keine 0 wert eitippen kann etc.. Aber halt keine konkrten zahle. Z.B wie 1 2 3 kann man nur wählen kann mir da einer helfen.

(defun C:test ()
  (setq a ((:sry hab den befehl nicht im kopf)"1 2 3"))
  (setq b (getkword "welche zahl wählst du"))
)

Ich meine so sieht das aus wenn du einen String vorbestimmen kannst.
Danke schon mal joern bosse du hilft mir bestimmt  .
Nein, Nein ich danke allen.

mfg

FiRePhoeniX

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

---

wenns ne Real sein soll geht sowas:
(while (not(member(setq a (cond
                            ((getreal "\nWelche Zahl wählst du 1 2 3 4 5 oder 6 ? <1>"))
                            ('T 1.0)
                          )
                  )     
                  '(1.0 2.0 3.0 4.0 5.0 6.0)
          )
      )
  (princ (strcat "\nDu sollst dich für 1 2 3 4 5 oder 6 entscheiden und nicht für " (rtos a 2 2)))
)

mit getkword kann man es aber auch machen, ist aber IMHO hier nicht sinnvoll.

(initget "1 2 3 4 5")
(setq b
  (cond
    ((setq a(getkword "\nWelche Zahl wählst du ? [1 / 2 / 3 / 4 / 5] <1> "))(distof a))
    (1.0) 
  )
)

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

---

Danke CADmium,
Funktioniert super. Ich muss aber gestehen das ich überhaupt nicht weißt was du da gemacht hast. Könnste du vielleicht so nett sein und mir das erklären. Denn sonst lern ich ja nichts und muss euch immer 
auf die nerven gehen.

mfg

FiRePhoeniX

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

---

Also die einzelnen Funktionen sind in der Online-Hilfe erklärt. Zusammenhänge erschließen sich dir durch die Lektüre des Autolisp-Kochbuches bzw. durch Mapcars Onlinetutorials

Alles mundgerecht außereinderzuklamüsern fehlt mir die Zeit. Sorry. (und das bitte jetzt nicht falsch verstehen   )

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

---

nein nein, das versteh ich.
Trotzdem danke ich guck mir mal die seiten an.
Das schaff ich schon.
Danke noch mal.

mfg

FiRePhoeniX

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