---

Moin alle zusammen,

hat von euch schon mal jemand die Schriftart einer Annotation geändert??
Kann man es überhaupt ändern??

Danke für Eure Hilfe
Proofin

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

---

manuell geht's, aber wie per Script?

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

---

Genau das ist ja meine Frage!
Ist ja das Programmierforum!

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

---

Hallo Leute,

Ein kleines Beispiel um die Schriftart einer Annotation zu ändern:

Sub catmain()

Set PartDocument1 = CATIA.ActiveDocument
Set mysel = PartDocument1.Selection

Dim tbobj(0)
tbobj(0) = "Annotation"
res = mysel.SelectElement2(tbobj, "Annotation", False)

Set MyAnnotation = mysel.Item(1).Value
Set mytext = MyAnnotation.Text.Get2dAnnot

'change the annotation font
mytext.SetFontName 0, 0, "Courrier 10 BT"

'to update 3D
MyAnnotation.ModifyVisu

End Sub

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

---

Moin Paic37,

Danke erstmal für den Code.

ABER

Ich bekomme die Fehlermeldung, das der Zugriff auf die Text Eigenschaft fehlgeschlagen ist.

Gibt es unterschiedliche Typen von Annotations?

Gruß
Proofin

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

---

Ich habe gleich probiert,

Bei mir funktionniert es mit "Text mit Bezugslinie" Annotation. Leider bekomme ich auc die Fehlermeldung mit "Falggenanmerkung" ...

Ich glaube dass es ein Bug ist !

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

---

Ok Danke für deine Mühen!

Gruß
Proofin

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