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