---

Hallo zusammen,

wie kann ich alle Textstile in einer Zeichnung mittels VBA auf einen Schriftstil ändern?

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

cu
Heiko

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

---

Hallo Heiko,

wo hakt es denn?

1) Alle Textstile ermitteln
2) jedem Textstil die Eigenschaft FONTFILE entsprechend zuweisen.

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

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

---

Hi Holger,

ich glaub an dem Wetter. Steh ein bischen auf der Leitung. Brauchte wohl nur mal einen Schubser in die richtige Richtung.

Danke.... 

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

cu
Heiko

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

---

Hy Leute,

ich hab ein ähnliches Problem (nur das ich VB.Net benutze -> gibt ja leider keinen AutoCAD.Net - Thread)

ich durchlaufe alle Textstyles und ändere den Font mit der SetFont-Methode -> funktioniert in AutoCad2008 wunderbar ... aber in AutoCad2007 nicht

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

      lconvertfont = new font("Arial",10)

      If Not Document Is Nothing AndAlso Not Document.TextStyles Is Nothing Then

            For k As Integer = 0 To Document.TextStyles.Count - 1

                textstyle = CType(Document.TextStyles.Item(k), Autodesk.AutoCAD.Interop.Common.AcadTextStyle)
                textstyle.SetFont(lConvertFont.Name, False, False, 1, 1)
               
            Next

        End If

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

und noch ne theoretische Frage!

ich erstelle nen eigenen Textstyle "MYSTYLE"; in diesem Textstyle setz ich die Font zB. auf ARIAL
nun durchlaufe ich alle meine MTexte und setze deren Stylename auf "MYSTYLE" (funktioniert auch schön) jedoch ändert sich die Font nicht auf ARIAL
kommt mir so vor als bräucht ich ne art SetStylename damit der Font aktualisiert wird. ??

[Diese Nachricht wurde von AWagner am 27. Nov. 2007 editiert.]

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

---

Hallo und willkommen im Forum,

bin zwar noch ein alter vba'ler aber habe vielleicht trotzdem ne Idee zu deiner theoretischen Frage.

Hast Du mal die textstring angesehen? Evtl. ist ja dort noch mal eine Formatierung drin.
Wird der neue Textstyle überhaupt nicht angenommen? ( Eigenschaftsfenster? )

Grüße,
Klaus

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

---

jap, das ist es ... im Textstring kann auch "{\fTechnic|b0|i0|c2|p2;Only a Test}" stehen.

hab beim Testen leider immer nur MTexte erwischt bei denen der Style auf das ganze Objekt angewandt wurde, und dadurch im TextString immer der unformatierte String stand. (blöd gelaufen)

hmm... somit ergibt sich aber gleich das nächste problem - jetzt bräuchte ich eine Funktion die mir die Formatierung rausschmeist. So eine muss es doch bestimmt geben. Ich möchte keinen halben Tag od. Tag damit verbringen mir eine selber zu schreiben mit der ich alle mögl. Kombinationen abdecke um dann festzustellen das es bereits eine gibt

wo find ich eine sollche Funktion? (Utilities?)

jetzt noch eine ganz andere Sache! @KlaK: bist du der Kapeller Klaus?
ich bin Andreas Wagner - der neue Entwickler bei MCDS 

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

---

Wenn es nur um die Schriftart geht, sollte dieser Code funktionieren

txt = "{\fVerdana|b0|i0|c0|p34;Das ist \fVerdana|b1|i0|c0|p34;ein Test, \fVerdana|b1|i1|c0|p34;der \L\Owas \l\odie\fVerdana|b1|i0|c0|p34; Formatierung\fVerdana|b0|i0|c0|p34; testet.}"

    While InStr(1, txt, "\f") > 0
        start = InStr(1, txt, "\f")
        ende = InStr(start, txt, ";")
        txt = Left$(txt, start - 1) & Mid$(txt, ende + 1)
    Wend

->"{Das ist ein Test, der \L\Owas\l\o die Formatierung testet.}"

Allerdings andere Formatierungen wie Fett,Kursiv,Unterstrichen bleiben bestehen.

PS.: Grüße an MCDS (von einem alten MCDS Kunden)

[Diese Nachricht wurde von fuchsi am 29. Nov. 2007 editiert.]

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

---

Zitat:

---

Allerdings andere Formatierungen wie Fett,Kursiv,Unterstrichen bleiben bestehen.

---

nein ... solche Formatierungen werden mit dieser methode rausgelöscht;

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

d.h. also von AutoDesk wird keine Methode zur verfügung gestellt mit der sollche Formatierungen geändert werden können? (schwach)

danke für eure antworten.

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