Hoe meertalige tekeningen te maken

3D Design Volume Model
1

Ik gebruik SW in het Frans en sommige klanten vragen me om plannen in het Engels. Ik zou graag willen weten of er een manier is om doordringende annotaties eenvoudig van de ene taal naar de andere door te geven.

2

Hallo

Nee, je moet alles zelf vertalen, dat is vervelend, maar daar heb ik nooit een oplossing voor gevonden.

3

Hallo

Heeft u geprobeerd het vakje "Engelse functie en bestandsnamen gebruiken" in "Systeemopties / Algemeen" aan te vinken?

4

Hallo

Je hebt het over dit type annotatie:

Zo ja, dan is dit mogelijk door middel van een macro waarin u alle annotaties van het plan moet opsommen en in elk van hen de waarde in het Frans moet vervangen door de waarde in het Engels.

Zoiets als:

Sub ChangePrefixe()

Dim swApp               As SldWorks.SldWorks
Dim swDrawing           As SldWorks.DrawingDoc
Dim swView              As View
Dim swDispDim           As SldWorks.DisplayDimension
Dim swAnn               As SldWorks.Annotation
Dim swDimension         As SldWorks.Dimension

Set swApp = Application.SldWorks
Set swDrawing = swApp.ActiveDoc
Set swView = swDrawing.GetFirstView

Do While Not swView Is Nothing
    Set swDispDim = swView.GetFirstDisplayDimension5
    Do While Not swDispDim Is Nothing
        Set swAnn = swDispDim.GetAnnotation
        Set swDimension = swDispDim.GetDimension
            
        Dim Pref As String
        Pref = swDispDim.GetText(swDimensionTextPrefix)
        Pref = Replace(Pref, "lamés", "Ma traduction")
            
        swDispDim.SetText swDimensionTextPrefix, Pref

        Set swDispDim = swDispDim.GetNext3
    Loop
    Set swView = swView.GetNextView
Loop

End Sub

Natuurlijk moet je een bepaald aantal bedieningselementen toevoegen om er zeker van te zijn dat je alleen wijzigt wat je wilt, dit kan worden verbeterd en aangevuld om ook andere elementen weer te geven.

Vriendelijke groeten

[BEWERKEN] Kleine precisie, deze manip verbreekt de link met de automatische update van de annotatie in geval van wijziging van de 3D, u moet dan de annotatie verwijderen en vervolgens terugplaatsen voordat u de macro opnieuw afspeelt.

1 like