[AlexV]

Собственно, хотелось бы знать, как сие можно осуществить.. Желательно из VBA.. В 32-битных системах работала такая функция:

Код:

[Выделить все]

Declare Function LoadKeyboardLayout Lib "user32" _
  Alias "LoadKeyboardLayoutA" (ByVal HKL As String, ByVal Flags As Long) As Long

Обращения к ней переключали раскладку:

Код:

[Выделить все]

LoadKeyboardLayout "00000419", 1 'на русский
'***
LoadKeyboardLayout "00000409", 1'to  eng

Как бы это дело реализовать под 64 бита?

[VVA]

Посмотри может это поможет: Автоматический переключатель языка
Я имею ввиду это: (vlax-invoke-method WScript "SendKeys" "^+")

[AlexV]

Сообщение от VVA Посмотри может это поможет: Автоматический переключатель языка Я имею ввиду это: (vlax-invoke-method WScript "SendKeys" "^+")

VVA, я в лиспе практически не ориентируюсь.. Попытался предложенную тобой функцию запустить, но автокад ругается:

Код:

[Выделить все]

 no function definition: VLAX-GET-OR-CREATE-OBJECT

Могу предположить, что "WScript.Shell" остался тоже в 32-битном прошлом и для 64 бит надо чем-то его заменить?

[Лиспер]

http://autolisp.ru/2010/06/09/no-fun...t-acad-object/ ?

[AlexV]

Сообщение от Лиспер http://autolisp.ru/2010/06/09/no-fun...t-acad-object/ ?

Спасибо! Вобщем, "я его слепила из того что было" :

Код:

[Выделить все]

(defun C:rus_eng()
(vl-load-com)
(setq WScript (vlax-get-or-create-object "WScript.Shell"))
(vlax-invoke-method WScript "SendKeys" "^+")
(vlax-release-object WScript)
(princ "!")
)

Ошибок при выполнении не выдает, но раскладка не переключается.. интересно, а что за параметр "^+"?

[VVA]

AlexV, Я имел ввиду не лисп, а способ

Код:

[Выделить все]

(setq WScript (vlax-get-or-create-object "WScript.Shell"))
(vlax-invoke-method WScript "SendKeys" "^+")
(vlax-release-object WScript)

На VBA:
1. Создать объект "WScript.Shell"
2. Вызвать метод "SendKeys" с параметром "^+"

[Лиспер]

Сообщение от AlexV интересно, а что за параметр "^+"?

http://msdn.microsoft.com/en-us/libr...83(VS.85).aspx ?

[VVA]

Лиспер, Дополню ссылку Лиспер'а:
"^+" - Ctrl+Shift Может у тебя раскладка по Alt+Shift переключается

[Do$]

Тогда надо, наверное, так (чтобы уж точно и гарантированно):

Код:

[Выделить все]

 (setq WScript (vlax-get-or-create-object "WScript.Shell"))
  (vlax-invoke-method WScript "SendKeys" "^+")
  (vlax-invoke-method WScript "SendKeys" "%+")
  (vlax-release-object WScript)

[Лиспер]

Я из вредности поставлю 3 языка в системе (кстати, не далее как позавчера такое видел)))

[Do$]

Ну переключение от этого не перестанет происходить

[Лиспер]

Ага, с русского на английский, потом на украинский, потом на немецкий... Не, тут надо как-то именно через Declare существовать. Может, вместо User32 надо что-то другое ставить?
P.S. С VB не дружу ни разу.

[AlexV]

Ну да, все довольно просто в плане переключения оказалось..

Код:

[Выделить все]

Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.SendKeys "^+"
objShell.SendKeys "%+"

Еще бы научиться узнавать текущую раскладку..

[Лиспер]

http://social.msdn.microsoft.com/For...1-9542fb5dbb53 ?
Далеко не уверен, что это "именно то"
---
Добавлено:
Вот еще нашел: http://stackoverflow.com/questions/4...ista-using-vba

[Александр Ривилис]

Скорее поможет это: http://stackoverflow.com/questions/4.../563552#563552

[sasha_lif]

А готового решения нет ? :

[sasha_lif]

Апну тему: за два года ни у кого не появилось решения по АВТОМАТИЧЕСКОМУ переключению языка для системы Win 7 или Win 8 для 64 bit ?

По аналогии с Key_switch.dvb
Т.е. по умолчанию стоит англ. язык, при заходе в Mtext- автоматом переключается на рус

[Хмурый]

sasha_lif, вот появилось AutoLng. Не тестировал. Offtop: Регистрация нужна.
вот она http://forum.dwg.ru/showpost.php?p=1387482&postcount=8