自动输入法切换工具.Net版本（支持Lisp平台定义的快捷命令）
本帖最后由 wyb36870 于 2020-4-8 00:21 编辑输入法切换程序升级了，支持Lisp平台定义的快捷命令，CAD关闭后，解压压缩包文件后替换原来程序即可。
程序免费使用，如果没有明经币请加QQ群938433557获取程序--最新版本程序请群内下载。
联系软件作者：tencent://Message/?Uin=570869611&websiteName=q-zone.qq.com&Menu=yes
自动输入法切换工具的MD5值如下，请避免恶意程序员注入病毒
MD5 Hash：79cc97269f186227910fc0410339dac2
SHA1 Hash：7583d7d22727ecc0d5c086eb4c785a3b924b7266
SHA256 Hash：50035b6d9c4cfa17856219ae0e78d9034f68f7464bcd71d6b8bad2e04df283de
测试地址：https://tool.lami.fun/jiami/filehash
非本群下载的程序如果有人注入病毒自己负责啊！
非本群下载的程序如果有人注入病毒自己负责啊！
非本群下载的程序如果有人注入病毒自己负责啊！
重要事请说三遍啊
程序使用教程
1、 程序功能：当cad执行命令列表内的命令式调用对应的中文输入法，执行其它命令、命令执行结束、取消命令或未知命令时切换到对应的英文输入法，避免了画图时频繁切换中英文输入法的烦恼。
2、 加载命令：Netload命令选择对应的DLL文件，对应关系如下：
CAD2010~CAD2012 程序保存路径/R18/Wyb.AutoInputSwitching.dll
CAD2013~CAD2014 程序保存路径/R19/Wyb.AutoInputSwitching.dll
CAD2015~CAD2016 程序保存路径/R20/Wyb.AutoInputSwitching.dll
CAD2017 程序保存路径/R21/Wyb.AutoInputSwitching.dll
CAD2018 程序保存路径/R22/Wyb.AutoInputSwitching.dll
CAD2019 程序保存路径/R23/Wyb.AutoInputSwitching.dll
CAD2019 程序保存路径/R23/Wyb.AutoInputSwitching.dll
CAD2020 程序保存路径/R23/Wyb.AutoInputSwitching.dll
CAD2021 程序保存路径/R24/Wyb.AutoInputSwitching.dll
其它版本CAD暂时不支持。
程序加载后再次启动会自动加载，若修改程序集的路径重新加载新路径下的对应dll文件即可。
如果程序有更新覆盖原文件或重新加载新程序即可。
3、 程序界面(命令行输入SRFQH)如下：
① 增加命令；
② 删除命令；
③ 程序开关，当未选中时程序将不会工作；
④ 英文输入法；
⑤ 中文输入法；
⑥ 保存设置并关闭窗口；
⑦ 保存设置；
⑧ 关闭窗口但是不保存设置；
⑨ 本程序的帮助信息；
4、卸载命令为：UNLOADSRFQH，重启CAD后不再加载；
5、法，添加方法为：开始菜单→时间和语音→区域和语言→添加语言→英语→英语美国→添加键盘→美式键盘。详细方法参见链接：https://jingyan.baidu.com/article/b2c186c8ca3172c46ef6ffe8.html
6、要添加的命令必须是执行的命令的全称
① CAD自身命令、.Net定义的命令及ARX定义的命令请执行命令后看函数的返回值；
② Lisp程序定义的命令一般就是你要执行的快捷键。如果是源码快捷命令如下红色字体的文字（MyCommand）：
(defun c:MyCommand()
(alert "欢迎使用CAD输入法快速切换程序！")
(princ)
)
7、关于在CAD界面时使用单独的输入法。Win10环境下请选中路径：控制面板\时钟、语言和区域\语言\高级设置 下的 允许我为每个应用程序窗口设置不同的输入法 。 其它操作系统未尝试，请自行尝试。
8、lisp环境下执行command类命令的时候需要临时关闭切换，否则会被干扰。本程序为开发人员定义了一组Lisp函数，详见以下代码。
;;这里假设已经添加了命令TTT
(defun C:TTT()
;;命令结束切换到中文
(vl-load-com)
(alert "1")
;临时关闭输入法自动切换,lisp开发的时候要执行command类命令的时候需要临时关闭切换，否则会被干扰
;可要求开发人员这里加一个错误捕捉避免因未加载自动输入法程序而出现错误
(YB-AutoInputSwitchingOff);临时关闭输入法自动切换
(command "Line" "0,0,0" "0,1000,0" "")
(vl-cmdf "Line" "0,0,0" "0,1000,0" "")
(vla-SendCommand "Line ")
(alert "2")
(YB-SwitchToEnglish);切换到英文
(alert "3")
(YB-SwitchToChinese);切换到中文
(alert "4")
(YB-SwitchToEnglish);切换到英文
(alert "5")
(YB-SwitchToChinese);切换中文
(alert "6")
)
;;命令结束切换到英文
这个厉害了
本帖最后由 pxt2001 于 2020-6-28 23:44 编辑
在DLL文件上右键属性，解除锁定。解决了无法加载的问题。
此程序是目前国内输入法切换程序里做得最好的。以下几个自定义lisp函数太强大了，可以在自己的lisp程序里面随心所欲自由切换输入法。
虽然免费，可惜广告太频繁。
(defun C:TTT()
;;命令结束切换到中文
(vl-load-com)
(alert "1")
;临时关闭输入法自动切换,lisp开发的时候要执行command类命令的时候需要临时关闭切换，否则会被干扰
;可要求开发人员这里加一个错误捕捉避免因未加载自动输入法程序而出现错误
(YB-AutoInputSwitchingOff);临时关闭输入法自动切换
(command "Line" "0,0,0" "0,1000,0" "")
(vl-cmdf "Line" "0,0,0" "0,1000,0" "")
(vla-SendCommand "Line ")
(alert "2")
(YB-SwitchToEnglish);切换到英文
(alert "3")
(YB-SwitchToChinese);切换到中文
(alert "4")
)
CAD里面netload加载，选择对应CAD版本的程序，CAD命令行显示以下信息： netload 无法加载程序集。错误详细信息: System.IO.FileLoadException: 未能加载文件或程序集“file:///C:\Users\091241930\Desktop\CAD自动输入法切换（SRFQH）\R19\Wyb.AutoInputSwitching.dll”或它的某一个依赖项。不支持操作。 (异常来自 HRESULT:0x80131515)文件名:“file:///C:\Users\091241930\Desktop\CAD自动输入法切换（SRFQH）\R19\Wyb.AutoInputSwitching.dll” ---> System.NotSupportedException: 尝试从一个网络位置加载程序集，在早期版本的 .NET Framework 中，这会导致对该程序集进行沙盒处理。此发行版的 .NET Framework 默认情况下不启用 CAS 策略，因此，此加载可能会很危险。如果此加载不是要对程序集进行沙盒处理，请启用 loadFromRemoteSources 开关。有关详细信息，请参见 http://go.microsoft.com/fwlink/?LinkId=155569。 不错，非常实用，多谢分享。 多谢分享!！！！ 楼主程序呢? 明经币不够啊~~~~ 有低版本的吗？比如2006，谢谢分享 收币的话建议是不是可以有个截图或使用示意啊，至少让购买的人了解是不是自己需求的 tumu8420 发表于 2018-10-21 15:25
收币的话建议是不是可以有个截图或使用示意啊，至少让购买的人了解是不是自己需求的
请加QQ群获取
不错，不错！
在AutoCAD2009，win7 64系统下测试成功。不晓得每次启动AutoCAD需不需要再加载呢。 下载下来 使用下 看好用吗