---

Hallo

Brauch Hilfe

Ich bekommen aus einem Lisp, eine Liste die in die Befehlszeile ausgegeben wird.

Der Blockname mit ATT-Nummer.
(alert (vl-princ-to-string blkLst)) "das Lisp ist von Lee".
((("Seco-Dkm" . "1004/1") ("Seco-Dkm" . "1006/1") ("Seco-Dkm" . "1101/1") ("Seco-Dkm" . "1102/1")

Jetzt will ich aus der Liste nur die ATT-Nummern auslesen, und als Text in die Zeichnung übernehmen.

Ich hoffe meine  Beschreibung ist ok so.

Danke heinz

------------------
Heinz 

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

---

Ok schon, nur nicht ausreichend.

Brauchst du Hilfe beim erstellen des (oder der) Textobjekte(s) ?
Dann fehlt dazu die Info wie es aussehen soll.

Ein Mtext mit mehreren Zeilen, pro Zeile eine Nummer zb. ?

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Ich will die Liste mit einem
Einfügepunkt dann in Autocad übernehmen.
Als Text
100/1
100/2
100/3

------------------
Heinz 

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

---

Das ist ein Beispiel mit 3 Texten.. oder doch einem MText mit Zeilenumbrüchen ?
Jaja, das Ergebnis steht und fällt mit der Beschreibung     .

Ich denke in erster Linie geht es um das auslesen der Textwerte: (mapcar 'cdr blklst)
als nächstes darum einen String zu generieren(wenn 1 MText mit ZU): (apply 'strcat (mapcar '(lambda(str)(strcat str "\\P"))(mapcar 'cdr blklst)))
(wobei in dieser billigVariante noch ein Zeilenumbruch am Ende zuviel ist)
Und damit man mal was am Bildschirm zum testen hat, habe das jetzt einfach in einen Command-MTexte gepackt:

(command "_.MTEXT"
         (getpoint "\nEinfügepunkt: ")
         (getvar "LastPoint")
         (apply 'strcat (mapcar '(lambda(str)(strcat str "\\P"))(mapcar 'cdr blklst)))
         ""
)

Man sollte das weiter anpassen, die letzten ZU entfernen (oder gar nicht erst erzeugen)
und die Commandsache durch eine entmake-Variante ersetzen.
Auch die Text-Box sollte angepasst werden damit es wirklich "rund" ist.

Aber das ist mal Grundlage zu weiteren Diskussion und konkret genug damit du dir nun ein Detail nach dem anderen vornehmen kannst.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Danke cadffm

Perfekt     

------------------
Heinz 

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