Ändern der Schriftart in einem SolidWorks Makro

3D Design Other applications
1

Hallo ihr alle

Ich habe eine Frage, ich arbeite an einem Makro in SOLIDWORKS, mit dem Sie einen Text schreiben und dann eine Materialentfernung darauf anwenden können. Das Makro funktioniert, aber ich verstehe nicht, wie ich die Schriftart meines Textes in meinem Makro ändern kann. Haben Sie Lösungen?

Vielen Dank im Voraus

2

Hallo
Posten Sie Ihren Code, er lässt sich später leichter anpassen.

2 „Gefällt mir“
3

Hallo

Das ITextFormat-Objekt der API wird verwendet, um Textschriftarten in SolidWorks zu verwalten.
Wenn es sich um Skizzentext handelt, sollte die Skizze gerade bearbeitet werden.

In dem angehängten sehr kurzen Beispiel müssen Sie auch den Text ausgewählt haben, um die Änderungen darauf anzuwenden.

Sub main()
    Dim swApp                       As SldWorks.SldWorks
    Dim swModel                     As SldWorks.ModelDoc2
    Dim swSelMgr                    As SldWorks.SelectionMgr
    Dim SkText                      As SldWorks.SketchText
    Dim swTextFormat                As SldWorks.TextFormat
    Dim bRet                        As Boolean
    
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swSelMgr = swModel.SelectionManager
    Set SkText = swSelMgr.GetSelectedObject6(1, -1)
        
        Set swTextFormat = SkText.GetTextFormat
        'Change text to be 10mm, bold, italic, and Comic Sans MS font
        swTextFormat.TypeFaceName = "Comic Sans MS"
        swTextFormat.CharHeight = 0.01
        swTextFormat.Bold = True
        swTextFormat.Italic = True
        bRet = SkText.SetTextFormat(False, swTextFormat)
End Sub

Herzliche Grüße.

3 „Gefällt mir“
4

Danke, es funktioniert jetzt sehr gut