| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Basispunkt eines Textes (1086 mal gelesen)
|
Gotti Mitglied
Beiträge: 67 Registriert: 21.07.2002 P2000 1GB Autocad 2000/Map4
|
erstellt am: 05. Mrz. 2004 11:23 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute Ich habe sehr viele Texte mit Basispunkt links unten. Ich muss den Basispunkt so verschieben dass er mittig im Text liegt, ohne den Text selber zu verschieben. Wer weiß wie das gehen könnte? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3358 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 05. Mrz. 2004 11:31 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
|
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 05. Mrz. 2004 11:39 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 05. Mrz. 2004 11:41 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
|
Gotti Mitglied
Beiträge: 67 Registriert: 21.07.2002 P2000 1GB Autocad 2000/Map4
|
erstellt am: 05. Mrz. 2004 11:45 <-- editieren / zitieren --> Unities abgeben:
|
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 05. Mrz. 2004 11:47 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
jetzt steht wieder AC2000 drin...hmm - naja, wie gesagt der Befehl ist erst ab R2002 vorhanden ! das von CADmium sollte aber funken ! - selbst getestet ! ------------------ - Sebastian Mattis - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Abschlussarbeit Hochintegration von EE-Komponenten im Bereich Batterie-Entwicklung ab Juni 2024 | Life is always about becoming? Im Leben geht es darum, sich auf eine Reise zu begeben, um die beste Version unseres zukünftigen Selbst zu werden. Während wir Neues entdecken, stellen wir uns Herausforderungen, meistern sie und wachsen über uns hinaus.
Bewerben Sie sich bei Mercedes-Benz und finden Sie den Aufgabenbereich, in dem Sie Ihre Talente individuell entfalten können. Dabei werden Sie von visionären Kolleginnen und Kollegen unterstützt, die Ihren Pioniergeist teilen.... | Anzeige ansehen | Elektrotechnik, Elektronik |
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 07. Mrz. 2004 22:22 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
Wer sich die E-Tools nicht intallieren will (warum auch immer), kann auch folgenes Tool nehmen. Dabei wird die Textausrichtung gesetzt , ohne dabei die Position des Textes zu ändern. In Erweiterung des E-Tool-Codes "tjust" wird auch "Einpassen uns "Ausrichten" beherrscht. (defun Justify_Text ( TEXTOBJEKT AUSRICHTUNG UPDATE / OBJEKTDATEN GC72 GC73 GC10 GC11) (if (and(=(type TEXTOBJEKT) 'ENAME)(=(type AUSRICHTUNG) 'STR)) (progn (setq OBJEKTDATEN (entget TEXTOBJEKT)) (if (=(cdr(assoc 0 OBJEKTDATEN)) "TEXT") (progn (cond ((=(strcase AUSRICHTUNG) "L") (setq GC72 0 GC73 0)) ((=(strcase AUSRICHTUNG) "Z") (setq GC72 1 GC73 0)) ((=(strcase AUSRICHTUNG) "R") (setq GC72 2 GC73 0)) ((=(strcase AUSRICHTUNG) "A") (setq GC72 3 GC73 0)) ((=(strcase AUSRICHTUNG) "M") (setq GC72 4 GC73 0)) ((=(strcase AUSRICHTUNG) "E") (setq GC72 5 GC73 0)) ((=(strcase AUSRICHTUNG) "UL") (setq GC72 0 GC73 1)) ((=(strcase AUSRICHTUNG) "UZ") (setq GC72 1 GC73 1)) ((=(strcase AUSRICHTUNG) "UR") (setq GC72 2 GC73 1)) ((=(strcase AUSRICHTUNG) "ML") (setq GC72 0 GC73 2)) ((=(strcase AUSRICHTUNG) "MZ") (setq GC72 1 GC73 2)) ((=(strcase AUSRICHTUNG) "MR") (setq GC72 2 GC73 2)) ((=(strcase AUSRICHTUNG) "OL") (setq GC72 0 GC73 3)) ((=(strcase AUSRICHTUNG) "OZ") (setq GC72 1 GC73 3)) ((=(strcase AUSRICHTUNG) "OR") (setq GC72 2 GC73 3)) ) (if (and GC72 GC73) (if (and(/=(strcase AUSRICHTUNG) "E")(/=(strcase AUSRICHTUNG) "A")) (progn (setq GC10 (cdr(assoc 10 OBJEKTDATEN))) (setq OBJEKTDATEN(subst(cons 72 GC72)(assoc 72 OBJEKTDATEN)OBJEKTDATEN)) (setq OBJEKTDATEN(subst(cons 73 GC73)(assoc 73 OBJEKTDATEN)OBJEKTDATEN)) (entmod OBJEKTDATEN) (if UPDATE (progn (setq OBJEKTDATEN (entget TEXTOBJEKT)) (setq GC11 (mapcar '+ (cdr(assoc 11 OBJEKTDATEN)) (mapcar '- GC10 (cdr(assoc 10 OBJEKTDATEN))) ) ) (setq OBJEKTDATEN(subst(cons 11 GC11)(assoc 11 OBJEKTDATEN)OBJEKTDATEN)) (entmod OBJEKTDATEN) ) ) ) (progn (Justify_Text TEXTOBJEKT "R" 'T) (setq OBJEKTDATEN (entget TEXTOBJEKT)) (setq GC11 (cdr(assoc 11 OBJEKTDATEN))) (setq OBJEKTDATEN(subst(cons 72 GC72)(assoc 72 OBJEKTDATEN)OBJEKTDATEN)) (setq OBJEKTDATEN(subst(cons 73 GC73)(assoc 73 OBJEKTDATEN)OBJEKTDATEN)) (entmod OBJEKTDATEN) (if UPDATE (progn (setq OBJEKTDATEN (entget TEXTOBJEKT)) (setq OBJEKTDATEN(subst(cons 11 GC11)(assoc 11 OBJEKTDATEN)OBJEKTDATEN)) (entmod OBJEKTDATEN) ) ) ) ) ) ) ) ) ) ) (defun C:Justify_Text ( / AUSWAHL OBJEKT AUSRICHTUNG ) (if (setq AUSWAHL (ssget '(( 0 . "TEXT")))) (progn (initget "L Z R A M E OL OZ OR ML MZ MR UL UZ UR") (if (not(setq AUSRICHTUNG(getkword (strcat"\nAusrichten auf <L>inks,<Z>entriert,<R>echts,<A>usgrichtet,<E>ingepasst" "\n <OL>/<OZ>/<OR>/<ML>/<MZ>/<MR>/<UL>/<UZ>/<UR> : ")))) (setq AUSRICHTUNG "L") ) (repeat (sslength AUSWAHL) (setq OBJEKT (ssname AUSWAHL 0)) (Justify_Text OBJEKT AUSRICHTUNG 'T) (ssdel OBJEKT AUSWAHL) ) ) ) ) Ach Sch.. irgentwie kommt die Formatierung nicht rüber, wie sie soll.. ------------------ - Thomas - [Diese Nachricht wurde von CADmium am 08. Mrz. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |