| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PLM und ERP fest zusammengeschweißt - IDEAL-Werk , ein Anwenderbericht
|
Autor
|
Thema: Textstile ändern (4985 mal gelesen)
|
FlorianP Mitglied Verm.-Ing
Beiträge: 44 Registriert: 04.12.2002 AutoCAD Map 2000i
|
erstellt am: 16. Jun. 2005 14:47 <-- editieren / zitieren --> Unities abgeben:
Hallo, gibt es eine Möglichkeit den Textstile von Texten über die Befehlszeile oder über LISP zu ändern? Ich will das automatisieren und deshalb ist der Weg über das Eigenschaftsfenster nicht geeignet. Eine Möglichkeit wäre, dass ich jedes Objekt anpacke und verändere über 'entmod' oder so. Aber vielleicht gibt es ja auch eine andere Variant, mit der es schneller geht. Viele Grüße Florian Priel
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Nauplia Mitglied Konstrukteurin Strassenbau
Beiträge: 121 Registriert: 24.06.2002 WIN 7; Intel Xeon CPU 3.07 GHz; 8 GB RAM; Bricscad Pro 19; ProVi_Brics V6; Was man nicht begreift, verlernt man auch nicht...
|
erstellt am: 16. Jun. 2005 14:55 <-- editieren / zitieren --> Unities abgeben: Nur für FlorianP
Ueber die Schnellauswahl kannst Du auch den Textstil ändern, will heißen, Du wählst alle Texte des Stils "ab" aus und ersetzt den Stil durch "cd". Sicher gibt es aber noch eine viel elegantere Lösung... Eine andere Möglichkeit wäre, den Stilnamen andere Textfonts zuzuordnen. ------------------ Gruß aus der Provence Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 16. Jun. 2005 15:05 <-- editieren / zitieren --> Unities abgeben: Nur für FlorianP
|
FlorianP Mitglied Verm.-Ing
Beiträge: 44 Registriert: 04.12.2002 AutoCAD Map 2000i
|
erstellt am: 16. Jun. 2005 15:12 <-- editieren / zitieren --> Unities abgeben:
Hallo mit dem Befehl '_-style' kann ich den Textstil ändern, ich will aber Texte, die den Stil 1 haben auf den Stil 2 bringen. Und das ohne eine Aktion tätigen zu müssen. Also komplett in einem Programm versteckt. Gruß Florian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 16. Jun. 2005 15:21 <-- editieren / zitieren --> Unities abgeben: Nur für FlorianP
|
FlorianP Mitglied Verm.-Ing
Beiträge: 44 Registriert: 04.12.2002 AutoCAD Map 2000i
|
erstellt am: 16. Jun. 2005 15:24 <-- editieren / zitieren --> Unities abgeben:
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 16. Jun. 2005 15:43 <-- editieren / zitieren --> Unities abgeben: Nur für FlorianP
Hi, Objektklasse: TEXT oder MTEXT? Wenn MTEXT, hast Du die Textstilzuweisungen richtigerweise ausschließlich über den Stil gemacht oder hast Du fälschlicherweise im Mtext-Editor Einzelzuweisungen auf die Zeichen des MTextes vorgenommen? ------------------ Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
FlorianP Mitglied Verm.-Ing
Beiträge: 44 Registriert: 04.12.2002 AutoCAD Map 2000i
|
erstellt am: 22. Jun. 2005 13:20 <-- editieren / zitieren --> Unities abgeben:
Hallo hab mir jetzt selbst eine LISP zusammengestellt. Sie sieht folgendemaßen aus: ;*** Programmteil zum Ändern des Textstils ;*** Es werden alle Texte geändert, die nicht vom Stil 'Arial' oder 'Standard' sind ;*** Die Texte bekommen den Stil 'Arial' zugeordnet (setq slist (list (cdr (assoc 2 (tblnext "STYLE" T))))) (while (setq sname (cdr (assoc 2 (tblnext "STYLE")))) (if (/= sname "")(setq slist (cons sname slist))) )
(setq slist (vl-remove "Arial" slist)) (setq slist (vl-remove "Standard" slist)) (foreach v slist (setq ss (ssget "X" (list (cons 7 v))) i 0) (while (< i (sslength ss)) (setq e (entget (ssname ss i)) eneu (subst (cons 7 "Arial") (assoc 7 e) e)) (entmod eneu) (setq i (1+ i)) );END 'while );END 'foreach Gruß Florian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |