始终为英语命令输入
我是韩国人，在我的工作中，所有命令都是英语，但在做了新的层名称后，我忘记了多次更改英语kebyoard按钮，所以我想；始终使用英语；命令输入lsp您能理解吗；我的话像这样；http://www.cadtutor.net/forum/showthread.php?66262-需要vb代码到vlisp迁移，但不能工作消息：user32.dll loadkeyboardlayout（00000 409 1）excute erro
我发现了这个；但是；我必须更改vlisp lang帮助我pls选项显式；用户32“；别名；系统参数sinfoa“；（ByVal uAction As Long、ByVal uParam As Long，ByRef lpvParam As Any，ByVal fuWinIni As Long）只要
私有声明函数ActivateKeyboardLayout Lib“；用户32“；（_ByVal HKL As Long，_ByVal标志As Long）As Long私有声明函数GetKeyboardLayout Lib“；用户32“；（_
ByVal dwLayout As Long）只要
私有声明函数GetKeyboardLayoutName Lib“；用户32“；别名；GetKeyboardLayoutNameA“；（_ByVal pwszKLID作为字符串）只要私有Const SPIF\u sendwinichange=&；H2私有常量SPI\u SETDEFAULTINPUTLANG=90常量HKL=；00000409“
私有子命令1\u Click（）
Dim retval As Long
retval=SystemParametersInfo（SPI\u SETDEFAULTINPUTLANG，0，HKL，SPIF\u SendWinInChange）
ActivateKeyboardLayout retval，0 AutoLisp无法链接到外部DLL函数。唯一可以使用的是ActiveX/COM接口
试试这个：http://translate.google.co.za/translate?hl=en&sl=自动（&A）；tl=en&；u=http%3A%2F%2Fwww.script coding.com%2Fdynwrap。该页面底部的html是使用user32.dll的示例-->；通过ActiveX调用DynWrap实现ActiveKeyboardLayout
页:
[1]