CATIA UI language

[byrakham]

Привет всем!
Как можно получить текущую UI language для CATIA?
Никто с таким не сталкивался?

[Wireless_Fidelity]

Здравствуйте.

Есть два варианта: использовать тот факт, что в скриптах используются NLS (переведённые) имена параметров объектов, либо читать файл FrameGeneral.CATSettings и определять язык по значению определенных байтов.
Вторым вариантом поделиться не могу, а вот в первом случае для загруженного документа типа Part будет что-то такое:

Код: Выделить всё

Dim sPartNumber
On Error Resume Next
sPartNumber = CATIA.ActiveDocument.Part.Parameters.Item("Номер детали").ValueAsString

If (Err.Number <> 0) Then
    Err.Clear
    MsgBox " Язык не русский"
Else
    MsgBox "Язык русский"
End If

[[PTM]]

если только nls не правили

[Artem]

я так еще делал: If InStr(CATIA.StatusBar, "ы") > 0 Then lg = "RU" else...

[byrakham]

Привет Всем!
Спасибо большое Всем за ответы!
Все варианты работают, в том числе и с файлом FrameGeneral.CATSettings.
Теперь даже не знаю что выбрать. )))