---

Hallo,

bei folgender Überlegung komme ich nicht weiter:

User klickt einen Punkt an, die Punktnummer wird ausgelesen. Wenn die Punktnummer 7-stellig ist, lese die Koordinaten aus.
(if (= T (wcmatch wertj "#######"))(setq ref2koo......))

Nun das gleiche Spiel von vorne, nächster Punkt! Solange, bis der Punkt mit der 9-stelligen Nummer kommt! Dann mache ganz normal im Programm weiter.

Also, solange der Punkt nur 7-stellig ist, soll er immer wieder die Koordinaten auslesen, und in eine (immer wieder neue)Variable schreiben.
Wie realisiere ich dieses "Wiederholen der Funktion" (Damals in Basic war das "goto Zeile soundso" :-))

Gruß
Holger

Nun soll aber der User

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

---

(while <Bedingung>
;hier mach was
)
So heißt das in Lisp.

Bei Fragen ...

Grüße Holger
(Habe im Moment keine Zeit, deshalb nur so kurz)

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

hallo

geh mal in die entwickler-hilfe
und schau dir "WHILE" und "STRLEN" an
viel spass

------------------
...so long and thanx for all the fish!

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

---

Hallo Holger,

schreiben in eine (immer wieder neue) Variable bei unbekannter Anzahl mach eich imme so:

(setq zaehler 0)
(while ...
  (setq zaehler (1+ zaehler))
  (setq variable (read (strcat "ref2koo" (itoa zaehler))))
  ...
  (set variable deine_aktuellen_punkt_koordinaten)
  ...
)

liefert eine folge von variablen mit den namen ref2koo1, ref2koo2, usw. die mit
(setq variable (read (strcat "ref2koo" (itoa gewünschte_nummer))))
(eval variable)
wieder ausgelesen werden können.

Viele Grüße

spider

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

---

Hallo Holger,

ähm .. Lisp ist hervorragend dazu geeignet mit Listen zu hantieren, deshalb würde ich dir empfehlen, die Listenbearbeitungsfunktionen mal anzuschauen. Ich programmiere schon eine Weile, habe auch selber bereits mit variablen Variablennamen 'gespielt' aber wirklich gebraucht habe ich dieses noch nicht.

Mal ein paar Stichworte (Suchworte) für die Hilfe zum Suchen:
cons - assoc - nth - mapcar - lambda - apply - append - reverse - vl-sort - ...

Dein Konstrukt könnte dann wie folgt aussehen:

Code:

---

(while ...
  (setq erg (cons (setq zaehler(1+ zaehler))deine_aktuellen_punkt_koordinaten))
  ...
  (setq ergli (cons erg ergli))
  ...
)

---

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Hallo Leute,

vielen Dank für Eure Antworten!

Ich hab entschieden es mit der Listen-Methode (wie naheliegend) zu versuchen, mit append hats geklappt
(setq iii T)
(while (= iii T)
.....
(setq refkoo (append refkoo (list.....
(setq iii (wcmatch wertj "#######"))

Gruß und Danke

Holger

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

---

Holger,

tu dir selbst den Gefallen und hör auf deinen Namensvetter: Nimm cons und nicht append. Wirf mal die Suche an, da wirst du eine sehr ausführliche Begründung finden.

Aber immerhin verzichtest du auf die Idee, eine Invasion von globalen Variablen zu erzeugen. Da hat dein Namensvetter ebenfalls Recht, er formuliert das aber viel zu milde. Das ist nämlich ein ausgesprochen schlechter Ansatz, vor allem, wenn man die Technik nicht hat/beherrscht, um diese Variablen lokal zu machen, obwohl sie nicht 'oben hinterm Schrägstrich' stehen. Allein schon der Grund, dass man sich so den Arbeitsspeicher zumüllt bis zum Beenden von AutoCAD, sollte schon reichen. Und dass solche Programme in der Regel ab dem zweiten Durchlauf nicht mehr funktionieren, ist ein zweiter Grund, diese Idee ganz schnell in die Tonne zu treten.

Also: cons statt append, und du bist auf der sicheren Seite;-)

Gruß, Axel

------------------

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze
Meine Überzeugung...

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