[Gaa2001]

Можеь быть кто нибудь подскажет, как на лиспе можно переключать язык клавы

[{Smirnoff}]

Как я незнаю. Однако вероятно это возможно. В Download скачай книжку Visual LISP Developer Bible, там есть некоторые примеры управления "виндоусовскими" объектами. В частности Windows Scripting Host, File System Object, Windows Messaging. Короче примеры есть, а вот куда залезть чтобы это осуществить я не имею понятия. См. главу Inerfecing With Other Applications.

[Jurasic]

Можно. Используй ARX-приложение Мансура Мамкина:
http://www.alx.ncn.ru/page.php?lang=...ct=MtmdLoadDLL
"Модуль для вызова функций пользовательской DLL из LISP-программ." (с) Мансур Мамкин
Пример вызова функции:
Смена layout

Код:

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

(MtmdLoadDll "user32" "LoadKeyboardLayoutA" 1 "STRING" "00000419");;;русский
(MtmdLoadDll "user32" "LoadKeyboardLayoutA" 1 "STRING" "00000409");;;английский

Если хочешь узнать текущую раскладку

Код:

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

(setq layout (MtmdLoadDll "user32" "GetKeyboardLayoutNameA" 1 "STRRESULT" 60))

[Gaa]

Jurasic, Спасибо тебе за помощь.
определил текущую раскладку - "0000040D", вставил

Код:

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

(MtmdLoadDll "user32" "LoadKeyboardLayoutA" 1 "STRING" "0000040D")

в прогу, но ничего не вышло. М.Б. что-то делаю не так?

[Jurasic]

Ну, я так понимаю - "0000040D" это именно ТЕКУЩАЯ раскладка, поэтому при исполнении:

Код:

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

(MtmdLoadDll "user32" "LoadKeyboardLayoutA" 1 "STRING" "0000040D")

ничего не происходит... Нужно поменять раскладку и посмотреть второй код "00000..." И уже на него менять...
А, если не секрет, "0000040D" это какого языка раскладка?

[Gaa]

"0000040D" - Ивритская раскладка HEBREW (HE).

Перед выполнением проги переключаю на EN, запускаю прогу, она проходит эту функцию, но раскладку не меняет.
Запускал трассировку с остановом. Кстати, и первод 00000419 на 00000409 не получается.
М.Б. что ARX, в которой описана эа функция не подходит к АКАД2006?

[BigBrother]

Сообщение от Gaa М.Б. что ARX, в которой описана эа функция не подходит к АКАД2006?

А что пишет при загрузке arx? Дело в том, что там 2 версии под 2000 и 2004...
Под 2006-м работать должна последняя.

[Arkady]

Поробуй так,проверял на МАР 3D 2005

Код:

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

(MtmdLoadDll "user32" "LoadKeyboardLayoutA" 2 "STRING" "0000040D" 
"LONG" 1)

Если пишешь на VB могувыслать исходник програмки редакирования иврита (когда-то начал и бросил)

[Gaa]

Поставил код Аркадия.

заработало!

Спасибо ВСЕМ !!!

Аркадий, писал (но не дописал ВСЕ задуманное) на лиспе, под себя лет 8 назад, пользуюсь до сейчас, правда переключение клавы доставало, теперь установил 2006 и решил продолжить!

Болванку на лиспе могу выслать, работает только при писанине.