---

Zeichnung1.zip

Hallo,

ich habe ein LISP mit dem ich MTexte bearbeiten kann und die Farbe auf VONLAYER setzen kann.

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)))))))))
(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)
  )

---

In der Anlage habe ich mal einen MText bei dem das LISP nicht funzt.

Kann mir einer verraten woran das liegt

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

---

Truecolor - darauf war das Lisp nicht gefasst

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Zitat:

---

Original erstellt von cadffm:
Truecolor - darauf war das Lisp nicht gefasst

---

Gib es eins was drauf gefasst ist? 

Oder kann man meins umschreiben?

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

---

Hi,
auf die Schnelle würde ich sagen: tausche "c:ftext" mit "c:tctext", "\\C" mit "\\c" und "4" mit "8" und speichere es unter "tctext.lsp".
Stellt dann alle truecolor-Farben zurück.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Zitat:

---

Original erstellt von wronzky:
Hi,
auf die Schnelle würde ich sagen: tausche "c:ftext" mit "c:tctext", "\\C" mit "\\c" und "4" mit "8" und speichere es unter "tctext.lsp".
Stellt dann alle truecolor-Farben zurück.

Grüsse, Henning

---

Danke - funzt auch so

Code:

---

(defun c:fctext ( / 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 (+ 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)
  )

---

nur jetzt aber nicht mehr bei MText mit den normalen Farben.

Kann man die beiden LISP jetzt zusammen setzen?

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

---

Bitte sehr...

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)
)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

      http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 11. Mrz. 2009 editiert.]

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

---

supi

Danke  

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

---

Hallo Leidensgenossen   ,

auch ich war auf der Suche nach dieser tollen Möglichkeit.
Ich hantiere sehr oft mit Dateien die kunterbunt sind.
Ihr habt mir bei der Anpassung mehrerer MTexte sehr weitergeholfen.

Nun hole ich das alte Thema mal wieder aus der Grube.
Und zwar besteht ja das gleiche Problem bei MTexten die aber
in einer Multi-Führungslinie (MFL) integriert sind.

Aktuelle kann ich da auch nur die Textformatierung anwenden
bzw. die MFL auflösen sodass ich an den MText gelange.
Ich möchte und kann die MFL aber nicht immer auflösen.

Meint Ihr nun, es gibt hier auch die Möglichkeit mittels qcode?
Ich hatte versucht den qcode für die MTexte anzupassen aber vergebens.

Danke und Gruß
Andre

[Diese Nachricht wurde von millemania am 21. Mrz. 2017 editiert.]

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

---

Hallo Andre,

StripMtext war immer eines der besten "Werkzeuge" um vermurksten MTexten bei zu kommen. Auch für Multi-Führungslinien.

Gruß
Robert

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

---

Hallo Robert,

wow, das ging aber schnell. Vielen Dank.
Ich habe mir das tool mal angesehen und so kann ich es
leider nicht gebrauchen. Es macht ja genau das was ich nicht will.
Bsp.: Bei Entfernen einer Farbformatierung MTEXT oder MFL wird
nicht auf "VonLayer" sondern auf die erste Farbe , hier rot, angepasst.

Wenn ich eine Farbformatierung nun aber überhaupt nicht möchte
gibt es im Tool keine Lösung dafür. Somit völlig unbrauchbar.
Was hat sich der Entwickler dabei nur gedacht?

Oder geh ich das gar falsch an?

Danke
Andre

[Diese Nachricht wurde von millemania am 21. Mrz. 2017 editiert.]

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

---

Zitat:

---

Original erstellt von millemania:

Bsp.: Bei Entfernen einer Farbformatierung MTEXT oder MFÜHRUNG wird
nicht auf "VonLayer" sondern auf die erste Farbe , hier rot, angepasst.

---

Also das kann ich so weder nachvollziehen noch bestätigen - also ja: Du gehst da was vollkommen falsch an. Bist du dir sicher, dass die Farbe rot nicht dem Layer zugeordnet ist, auf welchem die Objekte liegen?

------------------
Grüsse
Thomas

www.autocadbuch.de

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

---

Was sich der Entwickler dabei gedacht hat? Genau das, was er schreibt: StripMText entfernt die Formatierungen, die man INNERHALB eines MTextes (zusätzlich) vergeben kann: Du kannst als ein Buchstaben rot, den nächsten grün und den letzten in ComicSans, Größe 35 schreiben.

Um *sowas* wegzubekommen, gibt es dieses tool.

Die von Robert verlinkte Version stellt auch nicht auf die erste Farbe (=rot) um, sondern auf die, die das Objekt eben in den Eigenschaften hat, was Du aber vor dem strippen nicht auf dem Bildschirm siehst.

Danach kannst Du den MText ja wieder über die Eigenschaften steuern, das klappt nur dann nicht, wenn sich Formatüberscheibungen drin befinden.

Diesen zweiten Schritt würdest Du sicherlich noch gern einsparen, aber das wirst Du wahrscheinlich selber (um)schreiben müssen, falls es nicht praktikabel für Dich ist, alle MTexte mit der Schnellauswahl, selectsimilar oder dem Filter zu greifen und gesammelt auf VonLayer zu stellen.

Vielleicht hast Du es wirklich nur nicht richtig verstanden. Oder wir Deine Anforderung, in dem Fall wäre eine Probedatei angebracht 

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

---

Hallo Thomas,

ich glaube ich komme gut mit dem Tool zurecht.
Nein, die MFL liegt nicht auf einem Layer der Farbe rot.

Ich habe das Problem aber bereits gefunden.
Das Tool scheint somit alles richtig zu machen.
Zumindest wenn es eine einfache MFL ist.

Ich habe eine MFL in der der integrierte MText
per Layer auf rot ist. Das sieht man allerdings erst, wenn
man die MFL auflöst. Ist die MFL intakt,
kann man den Text per Textformatierung von rot in VonLayer anpassen.

Nimmt man nun StripMtext und wählt nur Farbe zurücksetzen aus,
wird er hinterlegte Text wieder rot.

Die Zeichnung habe ich von einen Ing.-Büro erhalten.
Die arbeiten mit AutoCAD-MEP.

Danke
Andre

[Diese Nachricht wurde von millemania am 21. Mrz. 2017 editiert.]

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

---

Multilinie.dwg

Hallo Runkelruebe,

ich denke du hast es richtig erfasst. Es scheint Formatüberschreibungen zu geben.
Eine Testdatei mit enthaltener MFL die mir Kopfzerbrechen bereitet,
habe ich angehängt. In meiner Zeichnung gibt es viele von denen. ;(

Das Tool ist wirklich toll. Seine Daseinsberechtigung wollte ich hier
nicht in Frage stellen. Und Eure Kompetenz natürlich auch nicht.  

Vielen Dank nochmal allen.
Andre

[Diese Nachricht wurde von millemania am 21. Mrz. 2017 editiert.]

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

---

vorab: Bitte etwas auf die Begrifflichkeiten aufpassen - Multilinien vs Multi-Führungslinien, danke.

ahh, ok. Nun sind wir einen Schritt weiter.
Frage: Wie sind die MFührungen entstanden? Diese entsprechen ja nicht dem aktuellen Stil?!

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Bis du dich wieder meldest rate ich mal: Die Objekte wurden irgendwann mal mit "EIGANPASS" bearbeitet?

Ich hatte da nämlich ein Déjà-vu 
Siehe hier: Klick!

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Zitat:

---

Original erstellt von cadffm:
vorab: Bitte etwas auf die Begrifflichkeiten aufpassen - Multilinien vs Multi-Führungslinien, danke.

---

Hi, habe es angepasst.
Wie die MFL entstanden sind kann ich nicht sagen da ich die Zeichnung ja erhalten habe.
Ich weiß aber, dass sie mit Acad-MEP entstanden ist.

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

---

Dann bin ich raus.
Wenn ich es richtig sehe, so sind die Objektdaten/werte inkonsistent,
wie im verlinkten Beitrag auch.
Dort wurde Eiganpass als Übeltäter ausfindig gemacht, hier könnte es ebenso sein <ungetestet>.
Leider fällt das durch die Prüfung/Wherst Routine.

Eine Korrekturmöglichkeit geht demnach nur mit einem Zusatzprogramm.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Hallo,

hat denn überhaupt irgendwer die Datei getestet
und etwas feststellen können?

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

---

JA?
und nach dieser Rückfrage überlege ich meine aufgewendete Freizeit doch in Form einer Rechnung darzulegen  

Zitat:

---

Original erstellt von cadffm:
Wenn ich es richtig sehe, so sind die Objektdaten/werte inkonsistent,
wie im verlinkten Beitrag auch.
Eine Korrekturmöglichkeit geht demnach nur mit einem Zusatzprogramm.

---

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Hallo,

teste mal das hier:

Code:

---

(vl-load-com)

(defun c:MLeaderTextColor ( / col ss obj txt x y)
 
  (if (and (setq col (getint "\nText color number: "))
          (setq ss (ssget '((0 . "MULTILEADER"))))
          )
    (repeat (setq i (sslength ss))
      (setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i))))
            txt (vla-get-TextString obj)
            txt (vl-string-trim "{}" txt))
      (foreach e '("\\C" "\\c")
        (while (and (setq x (vl-string-search e txt))
                    (setq y (vl-string-search ";" txt x)))
          (setq txt (strcat (substr txt 1 x)
                            (substr txt (+ 2 y))))))
      (vla-put-TextString obj (strcat "{\\C" (itoa col) ";" txt "}"))))
  (princ)
)

---

ByLayer = 256
ByBlock = 0

------------------
Error in Layer 8

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

---

@xem
Du hättest sogar selber testen können, Datei steht oben zur Verfügung.
Es funktioniert auch mit Deinem code nicht 
Die Datei (bzw. das MLeader-Objekt) ist korrupt.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

---

Zitat:

---

Original erstellt von runkelruebe:
@xem
Du hättest sogar selber testen können, Datei steht oben zur Verfügung.
Es funktioniert auch mit Deinem code nicht  
Die Datei (bzw. das MLeader-Objekt) ist korrupt.

---

Servus,

ich habe es getestet 
Wenn ich es richtig verstanden habe soll der Text auf VonLayer oder?
Das hat bei mir funktioniert.

------------------
Error in Layer 8

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

---

Und wenn Du jetzt mal das MLeaderobjekt anpackst und die Farbe VonLayer auf blau änderst, was ändert sich? NUR Rahmen und Linien oder auch die Textfarbe? 

Und was steht im Textinhalt? Bei mir:

Code:

---

{\C256;rot\P{gelb\Pgrün}

---

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

---

Also eine MText-Formatierung mit einer MText-Formatierung zu überschreiben ist schon Lustig (im Sonderfall 256    ),
aber hier geht es mittlerweile um etwas anderes.

StripMText eignet sich für das Vorhaben hervorragend (um MTextformatierungen zu entfernen),
hier liegen aber Objekte mit inkonsistenten Daten vor, weshalb das Ergebnis nicht das Gewünschte ist.
Man müßte also einige Eigenschaften des MLeader gerade biegen damit dieser wieder "normal" arbeitet.

Auch dir steht der Link zum anderen Thread offen.
Bei dem geht es ebenfalls um MLeader - dort findest du auch ein paar Hinweise zu "korrupt"
um die Sachlage ggf. schneller zu erfassen.

 

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Hi, ich hab zwar wenig Hoffnung, aber frage trotzdem mal 

Gibts da auch eine Lösung für LT? 

Gruß

------------------
"Wenn er mal groß ist, will ich so sein wie Ich!"
Ralph Wiggum (S19/F13)

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

---

1. Wie in der Vollversion aus kann man nur (alle) internen Formatierungen
pro MText löschen

2. Beste Lösung für LT-User: Anderes Programm zum bearbeiten nutzen.
  Da es aber kein Programm gibt mit der Funktion muß man auch dort
  zuerst ein Tool haben (wie den Code von oben) der dort lauffähig ist.

3. Super-Nerds könnten es mit der Bearbeitung von ADCII-DXF Dateien versuchen.

4. Was immer geht: ALLE Formatierungen löschen in dem man MText zu Text konvertiert, Befehl: URSPRUNG.

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

---

Mtext.jpg

Zitat:

---

Gibts da auch eine Lösung für LT?

---

Mein Workflow damals, als ich nur LT zu Verfügung hatte war:
Text per Doppelklick in Mtexteditor öffnen; hier per Strg+A und Strg +C komplett in die Zwischenablage
anschließend neues Textfenster öffnen (oder vorbereiteten Mustertext mit bereits voreingestellter Formatierung verwenden) und darin den Text aus der Zwischenablage als Plain-Text (ohne Formatierung) einfügen.

Das ganze hilft selbstverständlich nur bei wenigen Texten.

Ansonsten s. Tipp cadffm mit "Ursprung" und anschließend ggf. über "Text kombinieren" (txt2mtxt) wieder in einen Mtext konvertieren.

------------------
www.gestalten-mit-autocad.de   .  www.CADgestaltung.de   . 

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