Zmiana czcionki w makrze SolidWorks

3D Design Other applications
1

Cze wszystkim

Mam pytanie, pracuję nad makrem w solidworks, które pozwala na napisanie tekstu, a następnie zastosowanie do niego usunięcia materiału. Makro działa, ale nie rozumiem, jak zmienić czcionkę tekstu w makrze. Czy masz jakieś rozwiązania?

Z góry dziękuję

2

Witam
Opublikuj swój kod, łatwiej będzie go później dostosować.

2 polubienia
3

Witam

Obiekt ITextFormat interfejsu API jest używany do zarządzania czcionkami tekstowymi w SolidWorks.
Jeśli jest to tekst szkicu, szkic powinien być edytowany.

W załączonym bardzo krótkim przykładzie należy również zaznaczyć tekst, aby zastosować do niego zmiany.

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

Pozdrowienia.

3 polubienia
4

Dziękuję, teraz działa bardzo dobrze