Jak tworzyć rysunki wielojęzyczne

3D Design Volume Model
1

Używam oprogramowania w języku francuskim, a niektórzy klienci pytają mnie o plany w języku angielskim. Chciałbym wiedzieć, czy istnieje sposób na proste przekazywanie przeszywających adnotacji z jednego języka na drugi.

2

Witam

Nie, wszystko musisz tłumaczyć sam, to denerwujące, ale nigdy nie znalazłem na to rozwiązania.

3

Witam

Czy próbowałeś zaznaczyć pole "Użyj angielskich nazw funkcji i plików" w "Opcjach systemowych / Ogólne"?

4

Witam

Mówisz o tym typie adnotacji:

Jeśli tak, to jest to możliwe za pomocą makra, w którym należy wypisać wszystkie adnotacje planu i w każdej z nich zamienić wartość w języku francuskim na wartość w języku angielskim.

Coś takiego:

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

Oczywiście musisz dodać pewną liczbę kontrolek, aby mieć pewność, że modyfikujesz tylko to, co chcesz, można to ulepszyć i uzupełnić, aby odzwierciedlić również inne elementy.

Pozdrowienia

[EDYTUJ | EDYTUJ KOD] Mała precyzja, ten manip zrywa połączenie z automatyczną aktualizacją adnotacji w przypadku modyfikacji 3D, należy następnie usunąć adnotację, a następnie umieścić ją z powrotem przed ponownym odtworzeniem makra.

1 polubienie