---

Hi,
ich versuche die Schriftart zu ändern. Aber wie es aussieht ist es nur möglich die Catia eigenen Schriftarten anzusprechen. Gerne würde ich aber die Windows TrueType Schriften nutzen. Hat da jemand noch eine Idee wie das zu programmieren ist?

In dem Beispiel Programm funktioniert "Monospac821 BT" aber "Arial" nicht.

Sub main()
  Dim drawingdoc1 As DrawingDocument
  Dim drawingSheet1 As DrawingSheet
  Dim drawingview1 As DrawingView
  Dim drawingViewGenerativeBehavior1 As DrawingViewGenerativeBehavior
  Dim text1  As DrawingText
  Dim textgoesse As Integer
  Dim temp As String
  Dim filename As String
  CATIA.Documents.Add ("Drawing")
  Set drawingdoc1 = CATIA.ActiveDocument
  Set drawingSheet1 = drawingdoc1.Sheets.ActiveSheet
  Set drawingview1 = drawingSheet1.Views.Add("Beschriftung")
  Set drawingViewGenerativeBehavior1 = drawingview1.GenerativeBehavior
  drawingViewGenerativeBehavior1.DefineFrontView 1, 0, 0, 0, 1, 0
  drawingview1.X = 0
  drawingview1.Y = 0
  drawingview1.Scale2 = 1
  drawingview1.Activate
  Set text1 = drawingview1.Texts.Add("Test", 0, 0)
  text1.SetFontSize 0, 0, 15
  text1.SetFontName 0, 0, "Monospac821 BT"
  text1.SetFontName 0, 0, "Arial"
  text1.SetFontName 0, 0, "SSS1"
  text1.SetFontName 0, 0, "CATIA Symbols"
  text1.SetFontName 0, 0, "Courrier10 BT"
End Sub

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

---

Servus
Versuch es mal mit:

Code:

---

drawingText1.TextProperties.FONTNAME = "Arial (TrueType)"

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hey,
das war es zum Teil. Um die Schriftart aktiv zu machen ist ein Update nötig:

text1.TextProperties.Update

Viele Dank dafür!!!!

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