---

Hallo Community,

ich habe eine Makro erstellt, welches ein Textfeld auf einer Drawing erstellt (Programm Code folgt weiter unten). Das Textfeld wird nun natürlich mit unseren default Einstellungen erstellt (d.h. Font: Monospace  ; Font Size: 3.5 ; no Frame). Mein Frage ist an euch, ob es hier mit Hilfe von VBA eine Möglichkeit gibt die Schriftgröße auf 2.5 zu ändern und ein Circle Frame um das Textfeld einzustellen (im Anhang habe ich noch ein Bild, wie das ganze aussehen soll  )

Viele Dank schonmal an alle 

Programm Code:
Sub CATMain()

'Auswahl des Aktiven DRW Dokuments
Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

'Auswahl aller Seiten des Aktiven DRW Dokuments
Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

'Auswahl der ersten Seite des Aktiven DRW Dokuments
Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Item("Sheet.1")

'Erzeugen einer Liste aller Drawing Views
Dim drwViews1 As DrawingViews
Set drwViews1 = drawingSheet1.Views

'Auswahl der ersten DrawingView
Dim drwView1 As DrawingView
Set drwView1 = drwViews1.ActiveView    'Item(1)

'Erzeugen einer Liste aller Texte-------------------------------------------------------------------------------------------------------
Dim TextCollection As DrawingTexts
Set TextCollection = drwView1.Texts

'Erzeugt einen Text an der Position x=50 und y=50
Dim MyText As DrawingText
Dim Index As String
Dim Title As String

Title = "Index"
Index = InputBox("Änderungsindex Eingeben:", Title)
Set MyText = TextCollection.Add(Index, 50#, 50#)

'Eigenschaften der Schrift
oFontName = MyText.GetFontName(0, 2.5)
oFontSize = MyText.GetFontSize(0, 0)

MsgBox ("Schriftart: " & oFontName & " Schriftgröße: " & oFontSize)

End Sub

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

---

Servus

Bitte Code in entsprechenden Tags posten.
Hast du dir schon mal die Methoden FrameType und SetFontSize in der Doku zum DrawingText-Objekt angeschaut?

Gruß
Bernd

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

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

---

Hallo,

für das Textobjekt gibt es für deine Anforderung folgende Eigenschaften/Methoden:

Frame/Rahmen
Property FrameType( ) As CatTextFrameType

Returns or sets the frame type of the drawing text.
Example:
This example sets the frame type of the MyText drawing text to an ellipse.
MyText.FrameType = catEllipse

Fontsize/Schriftgröße
Sub SetFontSize( long  iFirst,
long  inbCharacter,
double  iFontSize)

Sets the font size on a substring of the drawing text.
Parameters:
iFirst
The first character to which the property should apply
inbCharacter
The number of characters to which the property should apply
iFontSize
The size of the font
Example:
This example sets the MyText font size to 3.5.
iFontSize = 3.5
MyText.SetFontSize 0,  0, iFontSize

Gruß Randle

------------------
Wer für nichts steht, fällt für alles!

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

---

Hi bgrittmann,

war ein guter Tipp. Super vielen Dank. Ich hab es gefunden und auch hin bekommen 

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