VetCAD

Автоматическая смена языка при работе в AutoCad

    0 оценок

Володя

размещено: 04 Июля 2005
Автоматическая смена языка при работе в AutoCad
При выполнении команд DTEXT и DDEDIT выполняется автоматичесий переход с англиского на руский язык по окончании выполнения команды язык меняется на английский.
Установка - Запустить редактор VBA импортировать файлы из архива. Текст кода из модуля Thith drowing1 перенести в оригинальный модуль Thith drowing в редакторе модуль Thith drowing1 можно удалить.
Замечание - програма не обрабатывает событие "Отмена" (при нажатии ESC смена языков не производится кто исправит замните програму под другой версией)

========================================
Дополнение от fz-mix
---------------------
Коллеги по работе попросили для удобства дописать данную утилитку...
Комментарий:
- добавлена обработка ESC'а

Установка:
- Импортировать файлы в проект. Скопировать код из ThisDrawing_S2R в ThisDrawing

Всего доброго, Михаил

ЗЫ: Замечания приветствуются :)
========================================

Комментарии

Комментарии могут оставлять только зарегистрированные участники
Авторизоваться
Комментарии 1-10 из 20
assenizator , 12 мая 2005 в 18:45
#1
Очень полезная утилита. Жизнь упрощает.
fz-mix , 04 июля 2005 в 10:36
#2
Каким образом можно загрузить сюда новую версию (с обработкой ESC)? Если интересно, конечно.
Admin , 04 июля 2005 в 10:49
#3
>>fz-mix
Скинь на support[dog]dwg.ru
fz-mix , 04 июля 2005 в 11:40
#4
2 Admin
отправил
Александр А.А. , 05 июля 2005 в 10:33
#5
А подскажите пожалуйста поподробнее про инсталяцию. Там ведь ещо 2 файл modSwitchToRussian.bas.
ZZZ , 06 июля 2005 в 00:47
#6
В 2006 добавленая обработка ESC'а не коректно работает(иногда).
В целом очень полезная утилитка.
Спасибо.
ZZZ , 06 июля 2005 в 11:25
#7
Подскажите пожалуйста, какой код для украинского языка?
ZZZ , 06 июля 2005 в 11:40
#8
Описание не сработки при ESC:
1)Редактируешь текст и отменяешь свою редакцию нажатием ESC.
2)акад повторно запрашивает выбрать следующий объект для редактирования, и тут ещё раз ESC.
3)В итоге язык назад на английский не переключается, остаётся русским.
Это конечноже не смертельно. Но обработочку следовало бы доработать до совершенства.
fz-mix , 06 июля 2005 в 16:40
#9
ZZZ, у меня нет возможности протестить в 2006 АКАДе :(. Сейчас проверил в 2005 версии - вроде все работает. А что значит иногда?
fz-mix , 06 июля 2005 в 17:09
#10
Пл поводу украинского. Попробуйте добавить следующий код в модуль:
'--К декларациям
Declare Function GetKeyboardLayout Lib "user32" (ByVal idThread As Long) As Long

'--можно в конец
Sub KLTest()
MsgBox Hex(GetKeyboardLayout(0))
End Sub

Далее следует переключить раскладку на желаемую,запустить ЭТУ процедуру (можно прямо из VBA IDE) и посмотреть на результат.
zip

0.1 МБ

СКАЧАТЬ
Vetcad