Het lettertype wijzigen in een SolidWorks-macro

3D Design Other applications
1

Hoi allemaal

Ik heb een vraag, ik werk aan een macro in solidworks waarmee je een tekst kunt schrijven en er vervolgens een materiaalverwijdering op kunt toepassen. De macro werkt, maar ik begrijp niet hoe ik het lettertype van mijn tekst in mijn macro kan wijzigen. Heeft u oplossingen?

Bij voorbaat dank

2

Hallo
Plaats je code, het is later gemakkelijker aan te passen.

2 likes
3

Hallo

Het ITextFormat-object van de API wordt gebruikt om tekstlettertypen in SolidWorks te beheren.
Als het schetstekst is, moet de schets worden bewerkt.

In het zeer korte voorbeeld dat is bijgevoegd, moet u ook de tekst hebben geselecteerd om de wijzigingen erop toe te passen.

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

Vriendelijke groeten.

3 likes
4

Bedankt, het werkt nu heel goed