乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 50|回复: 2

始终为英语命令输入

[复制链接]

30

主题

75

帖子

8

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
192
发表于 2012-5-8 04:29:43 | 显示全部楼层 |阅读模式
我是韩国人,在我的工作中,所有命令都是英语,但在做了新的层名称后,我忘记了多次更改英语kebyoard按钮,所以我想;始终使用英语;命令输入lsp您能理解吗;我的话
像这样;http://www.cadtutor.net/forum/showthread.php?66262-需要vb代码到vlisp迁移,但不能工作消息:user32.dll loadkeyboardlayout(00000 409 1)excute erro
回复

使用道具 举报

30

主题

75

帖子

8

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
192
发表于 2012-5-9 00:22:46 | 显示全部楼层
我发现了这个;但是;我必须更改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
回复

使用道具 举报

11

主题

968

帖子

919

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
99
发表于 2012-5-14 08:25:30 | 显示全部楼层
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
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-6-30 04:24 , Processed in 1.126703 second(s), 58 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表