---

Text_ohne_Stil.dwg

Hallo Zusammen,

nach dem Einlesen von NAS-Daten (ich habe die Fachschalenlösung von Autodesk verwendet) sowie dem Export (maptodwg) habe in nun eine DWG mit Texten, die keinen Stil haben.
Ich habe bisher versucht die Eigenschaften anzupassen und als Quellobjekt einen neuen Text verwendet. Das führt immerhin dazu, dass der Text nun einen Stil erhält. Leider ändert sich auch die Drehung, was mir nichts nutzt.

Kennt jemand eine Lösung, wie ich den Stil-losen Texten einen Stil zuweisen kann, ohne gleich die Drehung zu ändern.

------------------
Viele Grüße
Torsten

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

---

Die Texte haben den Stil namens "" ... das macht das Umbenennen etwas kompliziert ...

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Woran erkennt man den Stil ""? In den Eigentschaften steht ja nix.

------------------
Viele Grüße
Torsten

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

---

Kopier dir diese LispZeile in die Befelszeile :

(cdr(assoc 7(entget(car (entsel "\nTextobjekt wählen: --> ")))))

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Du kannst aus allen Texten ein Mtext machen und den dann wieder zu Text.
Dann ist ein stil da.

------------------
Gruß Stefan

Nur Feiglinge speichern zwischen.

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

---

Zitat:

---

Original erstellt von Heimkehrer:

Kennt jemand eine Lösung, wie ich den Stil-losen Texten einen Stil zuweisen kann, ohne gleich die Drehung zu ändern.

---

Eiganpass ist schon mal keine schlechte Idee. Wenn Du in den zugehörigen Einstellungen das Häkchen bei "Text" rausnimmst, hat der dann angepaßte Text zwar noch immer den Stil "", ansonsten aber die gleichen Eigenschaften wie der Quelltext, ohne daß er gedreht wird.

Woran erkennt man den Stil ""?
Nur zur Info (ohne das jetzt zu vertiefen): Gib in der Befehlszeile (entget(car(entsel))) ein (mit den Klammern) und picke auf Anforderung einen der Texte. In der dann erscheinenden Datenzeile gibt es u. a. einen Klammereintrag (7 . ""). 7 ist der Code für den Textstil, der Wert dahinter dessen Name.

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 20. Mrz. 2018 editiert.]

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

---

E-Boys Lösung irritierte mich ein wenig, weil der Text plötzlich unsichtbar wurde, aber mit dem Stil MtXpl_ltypeshp_shx in der Schnellauswahl auftauchte. Daher ging mein Blick zur Multifunktionsleiste und siehe da: Die dropdownbox des Textstils ist zwar leer, eine Zuweisung funktioniert aber 

>> Alle Texte wählen und über Registerkarte Beschriftung, Gruppe Beschriften-Text >> ComboBox Multifunktionsleisten-Katalog - Textstil den gewünschten Stil vergeben.

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

---

Danke an Cadmium und jupa für den "entget" - Hinweis.

Super vielen Dank an E-Boy und runkelruebe, das war die lösung, die ich suchte und wieder etwas, was ich gelernt habe.

------------------
Viele Grüße
Torsten

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

---

Hallo Torsten,

anbei eine Lisp-Lösung, die alle Texte auf den Stil "Standard" setzt. Es kann natürlich auch jeder andere vorhandene Stil verwendet werden. Zu starten mit MTS

Code:

---

;  Alle Texte auf Stil "Standard" setzen
; 
(defun c:mts()
  (setq tl (ssget "x" '((0 . "TEXT")) ))
  (setq anz (sslength tl))
  (setq x 0)
  (while (< x anz)
    (setq ct (ssname tl x))
    (setq ctl (entget ct))
;  textstil setzen auf "Standard"
    (setq ctl (subst (cons 7 "Standard") (assoc 7 ctl) ctl))
    (entmod ctl)
    (entupd ct)
    (setq x (1+ x))
  ) 
)

---

HTH
Gruß
Thomas

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