---

Hallo!!
Ich möchte in der Bauteilumgebung (Planar Skizze) die Schriftgröße verändern.
Ich habe eine Prozedur geschrieben die auf ein Bauteil eine Skizze legt und alle Arbeitspunkte (in meinem Fall Messpunkte) mittes Bauteil-Skizze - Textbox durchnummeriert. Klappt super!!
Nur sind die Ziffern zu groß und überdecken sich. Ich habe Stunden probiert!! kein Erfolg!
Ich kan zwar mit
oTextBox.Style.FontSize  die Schriftgröße auslesen aber nicht ändern.

Code:

---

Option Explicit

Sub sketchWP()
Dim oNeueSkizze1 As PlanarSketch

If Not TypeOf ThisApplication.ActiveEditObject Is PlanarSketch Then
        'Definition des activen Dokument
            Dim oPartDoc As PartDocument
            Set oPartDoc = ThisApplication.ActiveDocument
       
        'Definition des activen Bauteil
            Dim oCompDef As PartComponentDefinition
            Set oCompDef = oPartDoc.ComponentDefinition
       
        Set oNeueSkizze1 = oCompDef.Sketches.Add(oCompDef.WorkPlanes.Item(3))
End If
'##########################################################################################
' Iterate through the workpoints in the document, skipping the base workpoint.
Dim oWorkPoints As WorkPoints
Set oWorkPoints = oPartDoc.ComponentDefinition.WorkPoints

Dim OrtX As Double
Dim OrtY As Double
Dim Nr As Integer
        Nr = 1
Dim i As Integer

For i = 2 To oWorkPoints.Count
Dim oWP As WorkPoint
Set oWP = oWorkPoints.Item(i)

'Format(Nr,Fontsize=1)
OrtX = Format(oWP.Point.X, "0.0000")
OrtY = Format(oWP.Point.Y, "0.0000")
'#########################################

        'Öffnen Sie die Skizze für die Bearbeitung, so dass die Textfelder erstellt werden kann.
        'Dies ist nur bei Zeichnung Skizzen, nicht Teil erforderlich.
    oNeueSkizze1.Edit

    Dim oTG As TransientGeometry
    Set oTG = ThisApplication.TransientGeometry

'Erstellen von Text mit einfachen String als Eingabe. Da dies nicht zu verwenden
'Irgendwelche Text überschreibt, wird es zum aktiven Textstil Standard????.

    Dim oTextBox As Inventor.TextBox

    Set oTextBox = oNeueSkizze1.TextBoxes.AddFitted(oTG.CreatePoint2d(OrtX, OrtY), Nr)
MsgBox oTextBox.Style.FontSize

    oNeueSkizze1.ExitEdit
Nr = Nr + 1
Next
End Sub

---

Wäre echt schön wenn mir jemand helfen könnte!!!
Ich muss wohl irgendwie eine Style objekt erstellen??????

------------------
Borstel

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