---

Sicherlich gibts das tool schon irgendwo im Netz, ich habs nur nicht gefunden. Ich möchte einzelne Text miteinander verknüpfen, sodass aus mehreren Texten ein kompletter Text entsteht.
Mein Problem ist jetzt, ich bekomme zwar eine Textliste - bekomme sie aber die Texte nicht verknüpft.

Eine solche Liste ist mein bisheriges Ergebnis
in strlist:
((1 "was") (2 "für") (3 "ein") (4 "Tag") (5 "ist") (6 "heute"))

Ich möchte jetzt das der erste Textstring mit seinem Einfügepunkt hergenommen wird und die gew. folgenden Texte hinten drangeklatscht werden.

Code:

---

(defun c:NameMix()
(setq i 0)
  (while (>= i 0 )
    (if (setq str (entsel "\n Gewünschte Strings "))
      (progn
(setq strlist (cons (list (setq i (1+ i)) (cdr (assoc 1 (entget (car str))))) strlist))
(setq ptlist (cons (cons i (cdr (assoc 10 (entget (car str))))) ptlist))
)
      )
    (princ (cdr (assoc i strlist)))
;;;    (command "_text" (cdr (assoc 1 ptlist)) 2.5 "0" (strcat (mapcar 'strcat (setq txtlist (mapcar 'cdr strlist)) txtlist)          str1 str2))(princ (cdr str))
    )
  )

---

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

(apply 'strcat (mapcar '(lambda(X)(strcat (cadr X) " "))'((1 "was") (2 "für") (3 "ein") (4 "Tag") (5 "ist") (6 "heute"))))

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Genau das wars, jetzt habe ich nur noch ein Problem, wenn ich die Text abgreife erhalte ich
((6 "heute")(5 "ist")(4 "Tag")(3 "ein")(2 "für")(1 "was"))

Ich versuche jetzt die Liste der Reihenfolge zu sortieren

reverse geht nicht anzuwenden

jedoch

Code:

---

(vl-sort '(mapcar 'car strlist) '< )

---

Ergibt jetzt zwar (1 2 3 4 5 6) aber ich brauche sowohl auch die Anhänge

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

Hi,

ganz so simpel ist es nicht. Eher so:
(vl-sort l '(lambda (e1 e2) (< (car e1) (car e2))))

Schau dir zu dem Thema "lexikalisch sortieren" mal das hier an:
http://ww3.cad.de/foren/ubb/Forum145/HTML/001355.shtml

Gruß
CADchup

------------------
CADmaro.de

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

---

Funktioniert!

Ich habe mal den Link genau durchlesen, aber nicht explizit erfahren was hinter

Code:

---

(lambda (e1 e2) (< (car e1) (car e2)))

---

steckt. Mir ist nur eins klar, dass die Funktion das erste Element der jeweiligen Liste (1 "string1" ..) rausfiltert.

Kann mir vielleicht einer mal aufzeigen, wie gleiche Funktion mit (defun test (e1 e2.... aufgebaut werden kann. Ich steige mit debuggen einfach nicht dahinter was in e1 und e2 genau steht.

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

HAllo Dirk,
zum debuggen bei der SortierFunktion noch ein Tipp:

anstelle
(vl-sort l '(lambda (e1 e2) (< (car e1) (car e2))))
nimmst Du
(vl-sort l (function(lambda (e1 e2) (< (car e1) (car e2)))))

Dann kannst Du auch überall einen Haltepunkt setzen.

Zur Sortierfunktion:
Es gibt die Funktion < , und die wird dann auf die jeweils CAR'te Elemente der Listeeinträge angewendet.

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

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

Koordinatenausgabe Youtube

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

---

Zitat:

---

Original erstellt von cadplayer:
...Kann mir vielleicht einer mal aufzeigen, wie gleiche Funktion mit (defun test (e1 e2.... aufgebaut werden kann....

---

Genau so. 

lambda definiert sozusagen ein defun ohne Namen - eine anonyme Funktion.
Die Frage ist auch nicht, was innerhalb lambda abläuft, sondern wie vl-sort arbeitet.
http://docs.autodesk.com/ACD/2014/DEU/files/GUID-F3B27BD2-27FA-4185-B22C-85509175C171.htm

vl-sort schickt immer zwei Elemente der Liste l in den <-Vergleich, der im lambda steckt und generiert so die Reihenfolge.

Gruß
CADchup

------------------
CADmaro.de

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

---

Super danke, der Groschen ist gefallen. Ihr seid eine echt toll Hilfe.

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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