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