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

print1985 · 发表于 2021-1-27 23:33:53

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 print1985 于 2022-5-17 10:33 编辑

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

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

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

自动切换输入法有很多种，我也凑热闹弄了个超简单的输入法切换给大家玩，源码源码
功能：在CAD命令结束时自动切换为英文输入法，妈妈再也不用担心忘记切换输入法了，soeasy!

我的测试环境：win7 64位 CAD2020、CAD2014
个人能力有限，更多功能大家共同开发，谢谢大家！

新版本请移步明经（晓东因为帖子关键词限制--也不提示是哪些关键词的问题，修改了几次也发布不了，只好放弃了）
http://bbs.mjtd.com/thread-183157-1-1.html

print1985 · 发表于 2021-1-30 23:31:53

st788796 发表于 2021-1-30 23:14

谢谢你给你点个赞
但是你自己也看见了，3行lisp函数，C#用了大几十条代码，还要调试，各种情况还不一定能正常，费力不讨好。
我觉得这个帖子应该让更多学习lisp的人看见，看见lisp和C#各自的长短，减小自己的学习量，编出更好的程序，节省画图时间。

huangpc27 · 发表于 2021-1-28 08:40:19

可惜C#有版本限制

print1985 · 发表于 2021-1-28 13:11:42

能用就行了，又不是不支持，c#能实现更多的功能，为什么不用呢？
纯lisp能实现的功能比较有限，比如动态、对话框、按键等涉及到系统底层的一些东西。
桌子公司不会再为lisp提供更多的支持，如果哪一天像VBA一样就杯具了，现在.NET才是王道。
个人觉得不要有抱残守缺的思想，拿来主义也不一定是错，C#的代码一搜一大把，各种功能花样玩耍。当然C#的入门要难一些，我也还不算完全入门，只能借用C#的一些功能，结合相对简练的lisp实现一些小功能（个人觉得很多功能lisp更简洁一些）。
学C#还有另外的好处，可以非常方便的做出Windows程序甚至手机端的程序，做一些小型专业程序不是事。

xvjiex · 发表于 2021-1-30 07:43:06

lisp+c#混合编程。各取所长，给个大赞！

st788796 · 发表于 2021-1-30 14:25:21

直接在 C# 都完成不是更省事？

print1985 · 发表于 2021-1-30 18:57:23

st788796 发表于 2021-1-30 14:25
直接在 C# 都完成不是更省事？

那你试试看省不省事
一句lisp代码，C#要N多代码才能达到目的
比如(princ " 123")你用C#在命令行打出来你算写出第一个C#程序了
不要看lisp里面反应器的这几条简单代码（1分钟的事），在C#里面也要弄一阵子才行，其中还涉及到开启CAD自动运行、新建文件和打开文件事件的自动加载反应器、卸载反应器等等一系列问题（你能一分钟搞定你是大神），而这些东西在lisp里面都不用考虑。
各取所需，各有特长

st788796 · 发表于 2021-1-30 23:14:43

print1985 发表于 2021-1-30 18:57
那你试试看省不省事
一句lisp代码，C#要N多代码才能达到目的
比如(princ " 123")你用C#在命令行打出来 ...

using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
using System;
using System.Globalization;
using System.Runtime.InteropServices;
using System.Windows.Forms;
using Autodesk.AutoCAD.DatabaseServices;
using Application = Autodesk.AutoCAD.ApplicationServices.Core.Application;
namespace inputting
{
public class MyPlus : IExtensionApplication
{
[DllImport("user32.dll")]
public static extern IntPtr FindWindow(string className, string windowName); //窗口句柄
[DllImport("user32.dll")]
public static extern int GetWindowThreadProcessId(IntPtr hwnd, out int ID); //线程
[DllImport("user32")]
public static extern int LoadKeyboardLayout(string pwszKLID, int flags);
[DllImport("user32.dll")]
public static extern uint GetKeyboardLayout(int threadid); //键盘布局（输入法）
[DllImport("user32")]
private static extern uint ActivateKeyboardLayout(uint hkl, uint Flags);
public void Initialize()
{
start();
}
public void Terminate()
{
}
[LispFunction("qc:changen")]
public object qhenus(ResultBuffer rb)
{
if (rb == null)
{
end();
}
else
{
start();
}
return true;
}
#region MyRegion
private void start()
{
Application.DocumentManager.MdiActiveDocument.CommandWillStart += MdiActiveDocument_CommandWillStart;
Application.DocumentManager.MdiActiveDocument.CommandCancelled += MdiActiveDocument_CommandWillStart;
Application.DocumentManager.MdiActiveDocument.CommandEnded += MdiActiveDocument_CommandWillStart;
Application.DocumentManager.MdiActiveDocument.UnknownCommand += MdiActiveDocument_UnknownCommand; ;
}
private void end()
{
Application.DocumentManager.MdiActiveDocument.CommandWillStart -= MdiActiveDocument_CommandWillStart;
Application.DocumentManager.MdiActiveDocument.CommandCancelled -= MdiActiveDocument_CommandWillStart;
Application.DocumentManager.MdiActiveDocument.CommandEnded -= MdiActiveDocument_CommandWillStart;
Application.DocumentManager.MdiActiveDocument.UnknownCommand -= MdiActiveDocument_UnknownCommand; ;
}
private void MdiActiveDocument_UnknownCommand(object sender, UnknownCommandEventArgs e)
{
Qhenus();
}
private void MdiActiveDocument_CommandWillStart(object sender, CommandEventArgs e)
{
Qhenus();
}
private void Qhenus()
{
var ed = Application.DocumentManager.MdiActiveDocument.Editor;
var cadhwnd = FindWindow(null, null); //窗口句柄
int cadId;
var threadid = GetWindowThreadProcessId(cadhwnd, out cadId);
var num = GetKeyboardLayout(threadid);
LoadKeyboardLayout("00000409", 1);
ActivateKeyboardLayout(num, 0);
if (cadhwnd != IntPtr.Zero)
{
var typeOfLanguage = new CultureInfo("en-US");
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(typeOfLanguage);
}
else
{
ed.WriteMessage("未找到CAD窗口，输入法自动切换失败");
}
}
#endregion
}
}

using Autodesk.AutoCAD.Runtime; 
using Autodesk.AutoCAD.ApplicationServices; 
using System; 
using System.Globalization; 
using System.Runtime.InteropServices; 
using System.Windows.Forms; 
using Autodesk.AutoCAD.DatabaseServices; 
using Application = Autodesk.AutoCAD.ApplicationServices.Core.Application; 
 
 
namespace inputting 
{ 
    public class MyPlus : IExtensionApplication 
    { 
        [DllImport("user32.dll")] 
        public static extern IntPtr FindWindow(string className, string windowName); //窗口句柄 
 
        [DllImport("user32.dll")] 
        public static extern int GetWindowThreadProcessId(IntPtr hwnd, out int ID); //线程 
 
        [DllImport("user32")] 
        public static extern int LoadKeyboardLayout(string pwszKLID, int flags); 
 
        [DllImport("user32.dll")] 
        public static extern uint GetKeyboardLayout(int threadid); //键盘布局（输入法） 
 
        [DllImport("user32")] 
        private static extern uint ActivateKeyboardLayout(uint hkl, uint Flags); 
 
 
 
        public void Initialize() 
        { 
            start(); 
        } 
 
        public void Terminate() 
        { 
 
        } 
 
        [LispFunction("qc:changen")] 
        public object qhenus(ResultBuffer rb) 
        { 
            if (rb == null) 
            { 
                end(); 
            } 
            else 
            { 
                start(); 
            } 
            return true; 
        } 
 
 
 
        #region MyRegion 
 
        private void start() 
        { 
            Application.DocumentManager.MdiActiveDocument.CommandWillStart += MdiActiveDocument_CommandWillStart; 
            Application.DocumentManager.MdiActiveDocument.CommandCancelled += MdiActiveDocument_CommandWillStart; 
            Application.DocumentManager.MdiActiveDocument.CommandEnded += MdiActiveDocument_CommandWillStart; 
            Application.DocumentManager.MdiActiveDocument.UnknownCommand += MdiActiveDocument_UnknownCommand; ; 
 
        } 
 
        private void end() 
        { 
            Application.DocumentManager.MdiActiveDocument.CommandWillStart -= MdiActiveDocument_CommandWillStart; 
            Application.DocumentManager.MdiActiveDocument.CommandCancelled -= MdiActiveDocument_CommandWillStart; 
            Application.DocumentManager.MdiActiveDocument.CommandEnded -= MdiActiveDocument_CommandWillStart; 
            Application.DocumentManager.MdiActiveDocument.UnknownCommand -= MdiActiveDocument_UnknownCommand; ; 
        } 
 
        private void MdiActiveDocument_UnknownCommand(object sender, UnknownCommandEventArgs e) 
        { 
            Qhenus(); 
        } 
 
        private void MdiActiveDocument_CommandWillStart(object sender, CommandEventArgs e) 
        { 
            Qhenus(); 
        } 
 
        private void Qhenus() 
        { 
            var ed = Application.DocumentManager.MdiActiveDocument.Editor; 
            var cadhwnd = FindWindow(null, null); //窗口句柄 
 
            int cadId; 
            var threadid = GetWindowThreadProcessId(cadhwnd, out cadId); 
            var num = GetKeyboardLayout(threadid); 
 
            LoadKeyboardLayout("00000409", 1); 
 
            ActivateKeyboardLayout(num, 0); 
 
            if (cadhwnd != IntPtr.Zero) 
            { 
                var typeOfLanguage = new CultureInfo("en-US"); 
                InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(typeOfLanguage); 
            } 
            else 
            { 
                ed.WriteMessage("未找到CAD窗口，输入法自动切换失败"); 
            } 
 
        } 
 
        #endregion 
 
    } 
}

Lisphk · 发表于 2021-1-30 23:27:44

print1985 发表于 2021-1-28 13:11
能用就行了，又不是不支持，c#能实现更多的功能，为什么不用呢？
纯lisp能实现的功能比较有限，比如动态、 ...

我认为，什么都没了，AUTOLISP也不会没，LISP是天然和ACAD融合在一起的，综合上看，也是最方便定制的

liuyj · 发表于 2021-1-30 23:34:45

看惯了alisp的语句，现在看别的语言都觉得复杂，还是lisp+API的方式用着最舒服

Lisphk · 发表于 2021-1-30 23:38:12

liuyj 发表于 2021-1-30 23:34
看惯了alisp的语句，现在看别的语言都觉得复杂，还是lisp+API的方式用着最舒服

对，LISP+API是王道，各干该干的事
C++,C#定制LISP不方便做的事情到函数，
最后都通过LISP去完成和ACAD的交互

print1985 · 发表于 2021-1-30 23:40:07

新建图纸、打开图纸、取消新建等事件没考虑？

print1985 · 发表于 2021-1-30 23:49:25

Lisphk 发表于 2021-1-30 23:38
对，LISP+API是王道，各干该干的事
C++,C#定制LISP不方便做的事情到函数，
最后都通过LISP去完成和ACAD ...

是的 lisp干很多事情反而更方便更省事
C++ C#等干lisp不能干的就行了
晓东的函数库不正式如此吗，感谢晓东

海盗曹 · 发表于 2021-2-1 12:22:55

很好用，感谢分享

jxwlkj · 发表于 2021-4-2 00:08:43

感谢分享,学习了

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评