| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: Textfarbe durch Auswahl ändern (9545 mal gelesen)
|
gehry Mitglied Architekt
Beiträge: 140 Registriert: 06.05.2003
|
erstellt am: 12. Mai. 2010 13:01 <-- editieren / zitieren --> Unities abgeben:
Liebe Cadgemeinde, ich habe foldendes Problem: In vielen Zeichnungen befinden sich Mtexte die eine bestimmte Farbe haben (bunt) und auf schwarz geändert werden müssen. Die Farbe läßt sich nur über das Kontextmenü/Textformatierung ändern und nicht über Eigenschaftsfunktion. Leider funktioniert die Schnellauswahl nur auf die Eigenschaftfunktion aber nicht auf die Textformatierung. Die Frage lautet daher: Gibt es eine Möglichkeit die farbigen Texte auf einen Schlag auszuwälen und umzuändern? Vielen Dank im Voraus! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 12. Mai. 2010 13:07 <-- editieren / zitieren --> Unities abgeben: Nur für gehry
Hallo, mit dem LISP kannst du alle MTexte auf Farbe VONLAYER legen. Code: (defun c:ftext (/ aws n string) (princ "\nBitte Mtexte wählen:") (setq aws (ssget (list (cons 0 "MTEXT")))) (if aws (progn (setq n 0) (repeat (sslength aws) (setq string (cdr (assoc 1 (entget (ssname aws n))))) (while (vl-string-search "\\C" string) (setq string (strcat (substr string 1 (vl-string-search "\\C" string)) (substr (substr string (+ 4 (vl-string-search "\\C" string)) ) (+ 2 (vl-string-search ";" (substr string (+ 4 (vl-string-search "\\C" string)) ) ) ) ) ) ) ) (while (vl-string-search "\\c" string) (setq string (strcat (substr string 1 (vl-string-search "\\c" string)) (substr (substr string (+ 8 (vl-string-search "\\c" string)) ) (+ 2 (vl-string-search ";" (substr string (+ 8 (vl-string-search "\\c" string)) ) ) ) ) ) ) ) (entmod (subst (cons 1 string) (assoc 1 (entget (ssname aws n))) (entget (ssname aws n)) ) ) (setq n (+ n 1)) ) ) (alert "keine Mtexte ausgewählt.") ) (princ) )
------------------ 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: 12. Mai. 2010 13:10 <-- editieren / zitieren --> Unities abgeben: Nur für gehry
|
Ex-Mitglied
|
erstellt am: 12. Mai. 2010 13:10 <-- editieren / zitieren -->
Hi, mit Vorsicht zu genießen, aber möglich: Befehl: _PSELECT Objekte wählen: (ssget "X" (list (cons 0 "MTEXT")(cons 1 "*\\C*"))) Zum Aufruf von _PSELECT muss IMHO vorher das Eigenschaftsfenster mal eingeschaltet sein, Du kannst aber auch jeden anderen Befehl (Schieben, Wahl, ...) verwenden. Dies selektiert alle Texte, in deren Textinhalt \C vorkommt und damit (voraussichtlich) eine Farbüberschreibung. Wieso voraussichtlich: es könnte ja auch wer den Wert \C eingegeben haben. - alfred - PS: @xem: Dein Lisp putzt genau den von mir genannten Fall (im Text hat wer \C hineingeschrieben) aber auch weg! ------------------ www.hollaus.at [Diese Nachricht wurde von a.n. am 12. Mai. 2010 editiert.] |
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 12. Mai. 2010 13:42 <-- editieren / zitieren --> Unities abgeben: Nur für gehry
Zitat: Original erstellt von xem: Hallo,mit dem LISP kannst du alle MTexte auf Farbe VONLAYER legen.
@xem da die Zeilen nicht von dir sind, verweise ich mal auf diesen Beitrag und Henning ------------------ Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 12. Mai. 2010 14:31 <-- editieren / zitieren --> Unities abgeben: Nur für gehry
|
gehry Mitglied Architekt
Beiträge: 140 Registriert: 06.05.2003
|
erstellt am: 12. Mai. 2010 17:37 <-- editieren / zitieren --> Unities abgeben:
|