lisp+c#混合编程之--超简单的输入法切换（源码）

print1985

1. (vl-load-com);加载VL函数
   
2. 
   
3. ;以下为自动加载dll代码，修改为你的AganInp.dll路径（注意路径为双斜杠）
   
4. (vl-cmdf "netload" "D:\\Program Files\\Autodesk\\AutoCAD 2014\\Support\\AganInp.dll")
   
5. 
   
6. ;反应器，加载lisp后即运行
   
7. (vlr-command-reactor nil '((:vlr-commandEnded . GL:changeen)     ;command命令完成后切换为英文
   
8.                            (:vlr-commandCancelled . GL:changeen)  ;command命令取消后切换为英文
   
9.                            (:vlr-unknownCommand . GL:changeen)    ;command输入未知命令后切换为英文
   
10. ))
    
11. 
    
12. (defun GL:changeen(a b)
    
13. (GC:changeen T) ;C#切换输入法为英文
    
14. (princ)
    
15. )

(vl-load-com);加载VL函数<br /> <br /> ;以下为自动加载dll代码，修改为你的AganInp.dll路径（注意路径为双斜杠）<br /> (vl-cmdf "netload" "D:\\Program Files\\Autodesk\\<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a> 2014\\Support\\AganInp.dll")<br /> <br /> ;反应器，加载lisp后即运行<br /> (vlr-command-reactor nil '((:vlr-commandEnded . GL:changeen)     ;command命令完成后切换为英文<br />                            (:vlr-commandCancelled . GL:changeen)  ;command命令取消后切换为英文<br />                            (:vlr-unknownCommand . GL:changeen)    ;command输入未知命令后切换为英文<br /> ))<br /> <br /> (defun GL:changeen(a b)<br /> (GC:changeen T) ;C#切换输入法为英文<br /> (princ)<br /> )

2. using Autodesk.AutoCAD.Runtime;
   
3. using Autodesk.AutoCAD.EditorInput;
   
4. using Autodesk.AutoCAD.ApplicationServices;
   
5. using Autodesk.AutoCAD.DatabaseServices;
   
6. using System;
   
7. using System.Runtime.InteropServices;
   
8. 
   
9. namespace inputting
   
10. {
    
11.     public class inputting
    
12.     {
    
13.         [DllImport("user32.dll")]
    
14.         public static extern IntPtr FindWindow(string ClassName, string WindowName);//窗口句柄
    
15.         [DllImport("user32.dll")]
    
16.         public static extern int GetWindowThreadProcessId(IntPtr hwnd, out int ID);//线程
    
17.         [DllImport("user32.dll")]
    
18.         public static extern int GetKeyboardLayout(int threadid);//键盘布局（输入法）
    
19. 
    
20.         //[DllImport("user32.dll")]
    
21.         //public static extern void keybd_event(byte bVk, byte bScan, int dwFlags, int dwExtraInfo);//模拟按键用
    
22. 
    
23.         [LispFunction("GC:changeen")] //lisp调用函数名字
    
24.         public static ResultBuffer qhenus(ResultBuffer rb)
    
25.         {
    
26.             if (rb == null) return null;
    
27.             TypedValue[] values = rb.AsArray();//返回值为数组，相当于lisp里面的表list
    
28. 
    
29.             Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
    
30.             IntPtr cadhwnd = FindWindow(null, null);//窗口句柄
    
31.             int cadID = 0;
    
32.             int threadid = 0;
    
33.             threadid = GetWindowThreadProcessId(cadhwnd, out cadID);
    
34.             int num = GetKeyboardLayout(threadid);//取得一个句柄，描述指定应用程序的键盘布局，经比较中文输入法都小于0
    
35.             if (cadhwnd != IntPtr.Zero)
    
36.             {
    
37.                 if (num < 0)
    
38.                 {
    
39.                     //API切换输入法为英文
    
40.                     System.Windows.Forms.InputLanguage.CurrentInputLanguage =
    
41.                     System.Windows.Forms.InputLanguage.FromCulture(System.Globalization.CultureInfo.GetCultureInfo("en-US"));
    
42. 
    
43.                     /* 也可用模拟按键切换 ctrl+空格
    
44.                     //模拟按下ctrl键
    
45.                     keybd_event(0x11, 0, 0, 0);
    
46.                     //模拟按下空格键
    
47.                     keybd_event(0x20, 0, 0, 0);
    
48.                     //模拟松开ctrl键
    
49.                     keybd_event(0x11, 0, 2, 0);
    
50.                     //模拟松开空格键
    
51.                     keybd_event(0x20, 0, 2, 0);
    
52.                     ed.WriteMessage("已切换");
    
53.                     */
    
54.                 }
    
55.             }
    
56.             else
    
57.             {
    
58.                 ed.WriteMessage("未找到CAD窗口，输入法自动切换失败");
    
59.             }
    
60.             return null;
    
61.         }
    
62.     }
    
63. }

using Autodesk.AutoCAD.Runtime;<br /> using Autodesk.AutoCAD.EditorInput;<br /> using Autodesk.AutoCAD.ApplicationServices;<br /> using Autodesk.AutoCAD.DatabaseServices;<br /> using System;<br /> using System.Runtime.InteropServices;<br /> <br /> namespace inputting<br /> {<br />     public class inputting<br />     {<br />         [DllImport("user32.dll")]<br />         public static extern IntPtr FindWindow(string ClassName, string WindowName);//窗口句柄<br />         [DllImport("user32.dll")]<br />         public static extern int GetWindowThreadProcessId(IntPtr hwnd, out int ID);//线程<br />         [DllImport("user32.dll")]<br />         public static extern int GetKeyboardLayout(int threadid);//键盘布局（输入法）<br /> <br />         //[DllImport("user32.dll")]<br />         //public static extern void keybd_event(byte bVk, byte bScan, int dwFlags, int dwExtraInfo);//模拟按键用<br /> <br />         [LispFunction("GC:changeen")] //lisp调用函数名字<br />         public static ResultBuffer qhenus(ResultBuffer rb)<br />         {<br />             if (rb == null) return null;<br />             TypedValue[] values = rb.AsArray();//返回值为数组，相当于lisp里面的表list<br /> <br />             Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;<br />             IntPtr cadhwnd = FindWindow(null, null);//窗口句柄<br />             int cadID = 0;<br />             int threadid = 0;<br />             threadid = GetWindowThreadProcessId(cadhwnd, out cadID);<br />             int num = GetKeyboardLayout(threadid);//取得一个句柄，描述指定应用程序的键盘布局，经比较中文输入法都小于0<br />             if (cadhwnd != IntPtr.Zero)<br />             {<br />                 if (num < 0)<br />                 {<br />                     //API切换输入法为英文<br />                     System.Windows.Forms.InputLanguage.CurrentInputLanguage =<br />                     System.Windows.Forms.InputLanguage.FromCulture(System.Globalization.CultureInfo.GetCultureInfo("en-US"));<br /> <br />                     /* 也可用模拟按键切换 ctrl+空格<br />                     //模拟按下ctrl键<br />                     keybd_event(0x11, 0, 0, 0);<br />                     //模拟按下空格键<br />                     keybd_event(0x20, 0, 0, 0);<br />                     //模拟松开ctrl键<br />                     keybd_event(0x11, 0, 2, 0);<br />                     //模拟松开空格键<br />                     keybd_event(0x20, 0, 2, 0);<br />                     ed.WriteMessage("已切换");<br />                     */<br />                 }<br />             }<br />             else<br />             {<br />                 ed.WriteMessage("未找到CAD窗口，输入法自动切换失败");<br />             }<br />             return null;<br />         }<br />     }<br /> }

自动切换输入法有很多种，我也凑热闹弄了个超简单的输入法切换给大家玩，源码源码
功能：在CAD命令结束时自动切换为英文输入法，妈妈再也不用担心忘记切换输入法了，soeasy!
我的测试环境：win7 64位 CAD2020、CAD2014
个人能力有限，更多功能大家共同开发，谢谢大家！
C#代码只做了个框架，可以增加内容，当然也可以精简优化，即使不做任何修改也是完全能用的。
lisp+c#混合编程只是为大家提供一个编程的思路，有lisp基础的童鞋简单学习一下C#，混合编程能做出 一些纯lisp很难实现的功能


现在明经上传不了附件，编译好的DLL文件可以到晓东下载http://bbs.xdcad.net/thread-727562-1-1.html
新版本：http://bbs.mjtd.com/thread-183157-1-1.html

xj6019

非常棒，谢谢分享，问两个反应器可以赐教吗，有没有ESC的反应器和CTRL+Z的反应器呀

print1985

xj6019 发表于 2021-1-30 22:03
非常棒，谢谢分享，问两个反应器可以赐教吗，有没有ESC的反应器和CTRL+Z的反应器呀

这2个按键好像是没有，关于反应器论坛有很多源码，感兴趣的话你可以研究一下，我也不太熟悉
如果你会C#，倒是可以用一个键盘钩子来解决

brainstorm

你这个是否区分是命令行输入 还是在opm 等其他面板输入

slmmwan2008

非常棒，谢谢分享