---

Hallo,

nach langem Suchen habe ich nicht wirklich was gefunden. Zwar gibts da schon was im Forum und die Datei MTEXT-NO-COLOR.VLX funzt auch - nur ist sie nicht uneingeschrängt nutzbar (Registrierung) hier der Link: http://ww3.cad.de/foren/ubb/Forum54/HTML/010738.shtml#000000

Bei dem Link ist auch noch das angegeben:

;;;Jörn Bosse, 09.05.05
(defun c:farbe_mtext ( / 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)))))))))
(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)
  )

Ich weiß aber nix damit anzufangen. Kann mir einer mal erklären was ich damit machen soll?

Auf einer anderen Seite haben ich noch das gefunden - hab aber auch kein Plan wie das zu händeln ist.

;;; - ------------------------------------------------------------------------------ - ; ;;; - Funktionsname : C:MTEXT-COLOR-DEL - ; ;;; - Beschreibung : Entfernt die Farbformatierung bei Mtexten - ; ;;; - Parameter : keine - ; ;;; - Rückgabe : keine - ; ;;; - ------------------------------------------------------------------------------ - ; (defun C:MTEXT-DEL-COLOR(/ AUSWAHL OBJ TEXTSTRING INDEX DT:STR-REMOVE-BEETWEEN) (defun DT:STR-REMOVE-BEETWEEN(STRING SEPARATOR1 SEPARATOR2 / REST POS1 POS2 OFFSET1 OFFSET2) (if(and(=(type STRING) 'STR)(=(type SEPARATOR1) 'STR)(=(type SEPARATOR2) 'STR)) (progn (setq OFFSET1 (1+(strlen SEPARATOR1))) (setq OFFSET2 (1+(strlen SEPARATOR2))) (while (and(setq POS1(vl-string-search SEPARATOR1 STRING)) (setq REST(substr STRING (+ POS1 OFFSET1))) (setq POS2(vl-string-search SEPARATOR2 REST)) ) (setq STRING (strcat (substr STRING 1 POS1) (substr REST (+ POS2 OFFSET2)) ) ) ) STRING ) ) ) (if(or(setq AUSWAHL(ssget "_i" '((0 . "MTEXT")))) (setq AUSWAHL(ssget '((0 . "MTEXT")))) ) (progn (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJ(vlax-ename->vla-object (ssname AUSWAHL(setq INDEX(1+ INDEX))))) (setq TEXTSTRING(vla-get-textstring OBJ)) (vla-put-textstring OBJ (DT:STR-REMOVE-BEETWEEN TEXTSTRING "C" ";") ) ) ) ) ) ;;; - ------------------------------------------------------------------------------ - ; (princ (strcat " MTEXT-COLOR-DEL :Entfernt die Farbformatierung bei Mtexten" " (C) Thomas Krüger 2005 (cadmium@cad.de)" " Befehlszeilenaufruf : MTEXT-COLOR-DEL " ) ) (princ) ;;; - ------------------------------------------------------------------------------ - ;

Link: http://autocad.cad.de/modules.php?name=News&file=article&sid=21

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

---

xem,

beide Autoren sind Mitglieder bei Cad.de. Frage sie doch direkt...

Lothar

------------------
From Autodusk Till Dawn

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

---

Ach so,

oder wolltest du die Lisp einfach nur laden? http://ww3.cad.de/foren/ubb/Forum54/HTML/007058.shtml

Lothar

------------------
From Autodusk Till Dawn

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

---

  Also der erste Code funzt!

Beim zweiten kennt er aber den Befehl nicht. Kann es daran liegen das der Text im Editor in einer Zeile dann steht und nicht wie beim ersten Code so schön untereinander?

Wenn ja kann bitte mal einer den Text richtig formatieren?

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

---

 

Zitat:

---

Original erstellt von xem:
:D  ...Kann es daran liegen das der Text im Editor in einer Zeile dann steht und nicht wie beim ersten Code so schön untereinander?  

Wenn ja kann bitte mal einer den Text richtig formatieren?

---

ja es liegt daran
CADmium ist Mitglied im Forum...

aber als tip
Code in editor kopieren (besser vlide in acad ausführen)
leerzeichen sind oftmals Zeilenumbrüche
mfg heiko

Edit:
Leerzeichen nach ; oder )(schließende Klammer) sind oftmals Zeilenumbrüche
... nimm einfach Jörn sein Code

[Diese Nachricht wurde von Dorfy am 08. Okt. 2008 editiert.]

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

---

Zitat:

---

Original erstellt von xem:
:D  Also der erste Code funzt!

Beim zweiten kennt er aber den Befehl nicht. Kann es daran liegen das der Text im Editor in einer Zeile dann steht und nicht wie beim ersten Code so schön untereinander? 

Wenn ja kann bitte mal einer den Text richtig formatieren?

---

Es liegt dann aber auch daran, dass der Befehlszeilenaufruf MTEXT-DEL-COLOR und nicht MTEXT-COLOR-DEL lautet

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

---

Hallo xem,

viell. ist auch das Tool Stripmtext etwas für Dich -> siehe hier
Mit Hilfe des Tools lassen sich alle möglichen Eingenschaften auf VONLAYER zurück setzen, neben der Farbe u.a. auch Schriftstil, Höhe...

Gruß

Christian 

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

---

Zitat:

---

Original erstellt von Sir Vival:
Hallo xem,

viell. ist auch das Tool Stripmtext etwas für Dich -> siehe hier
Mit Hilfe des Tools lassen sich alle möglichen Eingenschaften auf VONLAYER zurück setzen, neben der Farbe u.a. auch Schriftstil, Höhe...

Gruß

Christian    

---

Danke Christian,

auch ein feines Tool.

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