---

Hi zusammen

Ich habe in einem Plan diverse Texte die zwingend auf einen neuen Textstil gewechselt werden sollen. Das funktioniert soweit gut, ich erstelle den neuen Stil, suche alle Texte über Sauswahl und diese gehören dann dem neuen Stil an wenn ichs in den Eigenschaften ändere.

Aber...

In gewissen MTexten wurde manuell die Schriftart geändert sodass sie nicht mehr dem Textstil entsprach. Das bedeutet für mich das diese Texte zwar auf den richtigen Stil liegen, die Schriftart aber nicht geändert wurde.

Wie kann man sowas korrigieren dass der hinterletzte Buchstabe so dargestellt wird wie es der Textstil vorschreibt? Ich bin sicher das dieses Problem schon vorkam, mit der Suche finde ich auch diverses zu den Textstilen, leider aber nicht dieses Phänomen.

Grüsse
Hänk

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

---

Für die Farbe gehts so ... Prinzipiell funktionierts mit dem Font ähnlich. Viel Spaß beim umbasteln.

------------------
  - 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
Genau sowas möchte ich mit Textstilen erledigen. Jetzt stellt sich die Frage ob ich einen Tag aufwende um dieses Lisp zu verstehen oder einen halben Tag um alle Texte manuell zu durchsuchen  Wahrscheinlich das zweite, mal schauen. Oder hat sonst noch jemand einen Tip?

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

---

Hallo Hänk,
probier mal folgenden Code, überprüfe aber bitte die Ergebnisse da ich es nicht großartig getestet habe!!!

Code:

---

(defun c:textstil_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 "\\f" string)
  (setq string (strcat (substr string 1 (vl-string-search "\\f" string))
(substr
(substr string (+ 4 (vl-string-search"\\f" string)))
(+ 2 (vl-string-search ";"
      (substr string (+ 4 (vl-string-search"\\f" 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)
  )

---

------------------
viele Grüße

Jörn

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

---

zur not : wandel doch die Mtexte in Normale Texte mit _Explode .. dabei werden die eigenschaften des Textstils auf den gesamten Textinhalt angewandt. Und wenn du unbedingt Mtexte brauchst, gibs in den Etools die Funktion _TXT2MTXT zum zurückwandeln.

------------------
- 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,
Dein Problem scheinen (wie so oft und bei vielen...) im MText Editor zugewiesene Textformatierungen zu sein...
Guckst Du hier: http://discussion.autodesk.com/thread.jspa?threadID=382996

nach STRIPMTEXT.DCL und STRIPMTEXT.LSP.

Wenn Du nicht weißt, wie mam Lisp-Files anwendet, guckst Du hier:
http://ww3.cad.de/foren/ubb/Forum54/HTML/007058.shtml#000000

Was da nicht beschrieben ist: Du mußt beide Dateien in einem Ordner haben, der in Deinem Acad-Suchpfad enthalten ist oder aber (besser!) einen Extra-Ordner anlegen (z.B. "c:\Acad-Tools") und diesen dem Suchpfad hinzufügen.

------------------
Ciao,
Marc

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