Автоматическая смена языка при работе в AutoCad
Автоматическая смена языка при работе в AutoCad
При выполнении команд DTEXT и DDEDIT выполняется автоматичесий переход с англиского на руский язык по окончании выполнения команды язык меняется на английский.
Установка - Запустить редактор VBA импортировать файлы из архива. Текст кода из модуля Thith drowing1 перенести в оригинальный модуль Thith drowing в редакторе модуль Thith drowing1 можно удалить.
Замечание - програма не обрабатывает событие "Отмена" (при нажатии ESC смена языков не производится кто исправит замните програму под другой версией)
========================================
Дополнение от fz-mix
---------------------
Коллеги по работе попросили для удобства дописать данную утилитку...
Комментарий:
- добавлена обработка ESC'а
Установка:
- Импортировать файлы в проект. Скопировать код из ThisDrawing_S2R в ThisDrawing
Всего доброго, Михаил
ЗЫ: Замечания приветствуются :)
========================================
При выполнении команд DTEXT и DDEDIT выполняется автоматичесий переход с англиского на руский язык по окончании выполнения команды язык меняется на английский.
Установка - Запустить редактор VBA импортировать файлы из архива. Текст кода из модуля Thith drowing1 перенести в оригинальный модуль Thith drowing в редакторе модуль Thith drowing1 можно удалить.
Замечание - програма не обрабатывает событие "Отмена" (при нажатии ESC смена языков не производится кто исправит замните програму под другой версией)
========================================
Дополнение от fz-mix
---------------------
Коллеги по работе попросили для удобства дописать данную утилитку...
Комментарий:
- добавлена обработка ESC'а
Установка:
- Импортировать файлы в проект. Скопировать код из ThisDrawing_S2R в ThisDrawing
Всего доброго, Михаил
ЗЫ: Замечания приветствуются :)
========================================
Комментарии
Авторизоваться
Сам 2006 акад очень интересно работает при редактировании текстов.
Стандартное поведение
1) Выставлен английский язык
2) заходиш редактировать текст - английский
3) меняеш на руский и редактируеш
4) выходиш(любой выход) из редактирования данного текста - переключается на английский
5) запрашивает выбрать следующий текст
6) при повторном редактировании см. п.1-5
В итоге чтобы вы не делали но язык возвращается на исходный.
Наверное достаточно для 2006 когда заходиш в окно редактирования (после входа в функцию) поменять язык, назад поменяется сам.
Возможно ли это?
Насколько я знаю реакторы обрабатывают события до запуска команды и после(зависит от выхода).
В принципе, без 2006 не напишешь патч :(
Добавляеш в файл acad2006.lsp строку
(vl-vbaload (findfile "c:/Program Files/AutoCAD 2006/Support/Key_switch.dvb"))
где Key_switch.dvb - файл с проектом VBA автоматического переключения клавиатуры, должен находится в папке c:/Program Files/AutoCAD 2006/Support/
Если да, каким образом?
>Nino
Возможно
Заходишь в VBA и ищешь и меняешь или добавляешь обрабатываемые команды:
Option Explicit
'---------------------------
' SwitchToRussian VBA plugin (rewritten by Michael Poltavtsev specially for PADAMS colleagues)
' - added processing of ESCAPE button
'---------------------------
Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
Select Case CommandName
Case "TEXT", "DTEXT", "DDEDIT", "MTEXT", "MTEDIT", "TABLEDIT", "Z-TEXT-REPLACE", "Z-TEXT-REPLACE-PARAMETR"
switchToRussian
SetHookOnESC
End Select
End Sub
Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
Select Case CommandName
Case "TEXT", "DTEXT", "DDEDIT", "MTEXT", "MTEDIT", "TABLEDIT", "Z-TEXT-REPLACE", "Z-TEXT-REPLACE-PARAMETR"
ClearHookOnESC
switchToEnglish
End Select
End Sub
Возможно ли доработать программку так, чтобы она переключала язык на русский при редактировании ячеек таблицы и мультивыносок? AutoCAD 2008