---

fri_tzu.lsp.txt

Hallo alle zusammen

Wir haben eine LISP-Datei aus dem Jahre 1994 von St. Vetter aus Dortmund für unsere Zwecke angepasst (Beilage).

Das Lisp umrandet beliebig viele Textzeilen mit einem Rahmen und erstellt gleichzeitig einen Schatten mit einer Polylinie. Genial!

Nun die Frage: Ist es schwierig eben dieses LISP-Tool für einen Textblock anzupassen?

Wir sind hier absolute LISP-Neulinge und haben schon mal so locker 2 Stunden nun verbraucht um den Schatten etc. auf unsere Masse und Farbenwünsche (vonlayer) anpassen zu können. ABER, wir haben's hingekriegt 

Man müsste "doch einfach" die Texblock-Umrandung auslesen können. Dann in einem fixen Abstand ne Linie drumrum ... Müsste eigentlich einfacher sein als bei einer Textzeile.

Könnte mir da jemand ein zwei Tipps zu geben? Wo sollen wir ansetzen? Oder gibt es da sogar schon ne Lösung von jemandem die wir zweckentfremden dürften?

Vielen Dank schon im Voraus.

Grüsse aus der Schweiz

Christian

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

---

kannst du genauer diesen Textblock beschreiben (ist es vielleicht einfach ein Block mit einem MText oder DText (oder auch mehreren )) ? 

Sollte es doch etwas mit INSERT und der bounding box von Blöcken gemeinsam haben dann schau die z.B. den Beitrag an.

------------------
MfG Proxy

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

---

Hallo Proxy

Also ich meinte eigentlich den MText ...

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

---

Hallo Christian,

ich habe mal versucht, Dein Anliegen nachzuvollziehen. Folgendes habe ich getan: mtext erstellen, entity auslesen, liste anzeigen lassen:

Code:

---

Befehl: mtext
Aktueller Textstil:  "Schedule-Header"  Texthöhe:  .0938
Erste Ecke: 0,0
Gegenüberliegende Ecke oder [Höhe/Ausrichten/Zeilenabstand/Drehen/Stil/Breite]:
20,20

Befehl: (setq test (entget (car (entsel))))

Objekt wählen: ((-1 . <Objektname: 7efdc800> ) (0 . "MTEXT") (330 . <Objektname:
7efd7d08> ) (5 . "1A90") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0")
(100 . "AcDbMText") (10 0.0 20.0 0.0) (40 . 0.09375) (41 . 20.0) (71 . 1) (72 .
5) (1 . "Test mit 0,0 und 20,20, Höhe 1") (7 . "Schedule-Header") (210 0.0 0.0
1.0) (11 1.0 0.0 0.0) (42 . 1.77115) (43 . 0.112871) (50 . 0.0) (73 . 1) (44 .
1.0))

Befehl: ls
LISTE
Objekte wählen: 1 gefunden
Objekte wählen:
                  MTEXT    Layer: "0"
                          Bereich: Modellbereich
                Referenz = 1A90
Position:        X=  0.0000  Y=  20.0000  Z=  0.0000
Breite:            20.0000
Normale:        X=  0.0000  Y=  0.0000  Z=  1.0000
Drehen:            0.00
Textstil:      "Schedule-Header"
Texthöhe:          0.0938
Linienabstand:    Mehrfach (1.000000x =    0.1563)
Ansatz:            ObenLinks
Fließrichtung:    VonStil
Inhalt:            Test mit 0,0 und 20,20, Höhe 1

---

Die Gruppencodes "(10 0.0 20.0 0.0") und "(41 . 20.0)" sollten diejenigen sein, die Du brauchst. Mit

Code:

---

(cdr (assoc 10 test))

---

bekommst Du den Eckpunkt links-oben als LISTe und mit

Code:

---

(cdr (assoc 41 test))

---

die aktuelle Breite, hier also 20.0, eine REALzahl. Ich hoffe, das hilft für den Anfang?! Viel Spaß beim Basteln, das wird schon, nur Mut!!!

[Edit]
Mir ist noch was eingefallen. Wenn Dein Text größer wird, stimmen die Begrenzungen ja nicht mehr. Such mal in der ACAD-Hilfe nach MTEXT-Gruppencodes...
[/Edit]

Freddy

[Diese Nachricht wurde von Paulchen am 14. Mrz. 2006 editiert.]

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

---

Hallo Freddy

Vielen vielen Dank erstmal. Ich stürze mich gleich in eine neue "Versuchsreihe" ...

Christian

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

---

Hallo Freddy

Nochmals besten Dank für Deine Hilfe. Hat super geklappt. Zu Beginn etwas holprig, aber jetzt hab ich das wunderbar hingekriegt ...

Grüsse aus der Schweiz

Christian

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