Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Textzeilenumrandung > Textblockumrandung

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Textzeilenumrandung > Textblockumrandung (681 mal gelesen)
Snofru
Mitglied
Haustechnik Engineering


Sehen Sie sich das Profil von Snofru an!   Senden Sie eine Private Message an Snofru  Schreiben Sie einen Gästebucheintrag für Snofru

Beiträge: 46
Registriert: 08.07.2004

Win XP Pro SP2, AutoCAD 2006 d
P IV - 3.20 GHz - 1'024 MB RAM

erstellt am: 13. Mrz. 2006 19:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


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

Proxy
Ehrenmitglied
Stateless-DHCP v6-Paketfragmentierer


Sehen Sie sich das Profil von Proxy an!   Senden Sie eine Private Message an Proxy  Schreiben Sie einen Gästebucheintrag für Proxy

Beiträge: 1629
Registriert: 13.11.2003

Tastaturen, Mäuse,
Pladden, ...,
AutoCADs 200X, SWX 2kX

erstellt am: 13. Mrz. 2006 20:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Snofru 10 Unities + Antwort hilfreich

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

Snofru
Mitglied
Haustechnik Engineering


Sehen Sie sich das Profil von Snofru an!   Senden Sie eine Private Message an Snofru  Schreiben Sie einen Gästebucheintrag für Snofru

Beiträge: 46
Registriert: 08.07.2004

Win XP Pro SP2, AutoCAD 2006 d
P IV - 3.20 GHz - 1'024 MB RAM

erstellt am: 14. Mrz. 2006 06:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Proxy

Also ich meinte eigentlich den MText ...

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

Paulchen
Mitglied
Bauing./SW-Entwickler


Sehen Sie sich das Profil von Paulchen an!   Senden Sie eine Private Message an Paulchen  Schreiben Sie einen Gästebucheintrag für Paulchen

Beiträge: 1227
Registriert: 19.08.2004

erstellt am: 14. Mrz. 2006 10:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Snofru 10 Unities + Antwort hilfreich

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

Snofru
Mitglied
Haustechnik Engineering


Sehen Sie sich das Profil von Snofru an!   Senden Sie eine Private Message an Snofru  Schreiben Sie einen Gästebucheintrag für Snofru

Beiträge: 46
Registriert: 08.07.2004

Win XP Pro SP2, AutoCAD 2006 d
P IV - 3.20 GHz - 1'024 MB RAM

erstellt am: 14. Mrz. 2006 11:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Snofru
Mitglied
Haustechnik Engineering


Sehen Sie sich das Profil von Snofru an!   Senden Sie eine Private Message an Snofru  Schreiben Sie einen Gästebucheintrag für Snofru

Beiträge: 46
Registriert: 08.07.2004

Win XP Pro SP2, AutoCAD 2006 d
P IV - 3.20 GHz - 1'024 MB RAM

erstellt am: 16. Mrz. 2006 08:58    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz