Володя
размещено: 04 Июля 2005
Автоматическая смена языка при работе в AutoCad
При выполнении команд DTEXT и DDEDIT выполняется автоматичесий переход с англиского на руский язык по окончании выполнения команды язык меняется на английский.
Установка - Запустить редактор VBA импортировать файлы из архива. Текст кода из модуля Thith drowing1 перенести в оригинальный модуль Thith drowing в редакторе модуль Thith drowing1 можно удалить.
Замечание - програма не обрабатывает событие "Отмена" (при нажатии ESC смена языков не производится кто исправит замните програму под другой версией)
========================================
Дополнение от fz-mix
---------------------
Коллеги по работе попросили для удобства дописать данную утилитку...
Комментарий:
- добавлена обработка ESC'а
Установка:
- Импортировать файлы в проект. Скопировать код из ThisDrawing_S2R в ThisDrawing
Всего доброго, Михаил
ЗЫ: Замечания приветствуются :)
========================================
0.1 МБ
СКАЧАТЬ
Комментарии
Авторизоваться
Скинь на support[dog]dwg.ru
отправил
В целом очень полезная утилитка.
Спасибо.
1)Редактируешь текст и отменяешь свою редакцию нажатием ESC.
2)акад повторно запрашивает выбрать следующий объект для редактирования, и тут ещё раз ESC.
3)В итоге язык назад на английский не переключается, остаётся русским.
Это конечноже не смертельно. Но обработочку следовало бы доработать до совершенства.
'--К декларациям
Declare Function GetKeyboardLayout Lib "user32" (ByVal idThread As Long) As Long
'--можно в конец
Sub KLTest()
MsgBox Hex(GetKeyboardLayout(0))
End Sub
Далее следует переключить раскладку на желаемую,запустить ЭТУ процедуру (можно прямо из VBA IDE) и посмотреть на результат.