---

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

---

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

---

Zitat:

---

Original erstellt von xem:
Hallo,

mit dem LISP kannst du alle MTexte auf Farbe VONLAYER legen.

...

---

neee .. das entfernt die Mtextformatierung hinsichtlich der Farbe

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

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.]

---

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

---

@Dorfy

klar - war zu faul zum suchen. 

------------------

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

---

...super, das war spitze!!!!!!!!!!!!!!!!!!!!!!!
1000 Dank für die Hilfe

Schönen Feierabend und Vatertag

Gehry

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