定义lisp函数获取登录的QQ号

jun353835273

LISP调用方式(ReadTencentqqId)
如果登录的一个qq可以获取，多个qq只能获取最后登录的那个QQ号
代码网上找的，只是定义为LISP函数而已

2.         //导入库　[DllImport("user32.dll")]
   
3.         [DllImport("user32.dll", EntryPoint = "FindWindowA", CharSet = CharSet.Ansi)]
   
4.         private static extern int FindWindow(string lpClassName, string lpWindowName);
   
5. 
   
6.         [DllImport("user32.dll", EntryPoint = "GetWindowText")]
   
7.         public static extern int GetWindowText(int hwnd, StringBuilder lpString, int cch);
   
8.         [DllImport("user32.dll", EntryPoint = "GetWindow")]
   
9.         public static extern int GetWindow(int hwnd, int wCmd);
   
10. 
    
11.         [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
    
12.         public static extern int GetClassName(int hWnd, StringBuilder lpClassName, int nMaxCount);
    
13.         [LispFunction("ReadTencentqqId")]
    
14.         public static string ReadTencentqqId(ResultBuffer rb)
    
15.         {
    
16.             string str = "";
    
17.             int hWin = FindWindow("CTXOPConntion_Class", null);
    
18.             if (hWin == 0)
    
19.             {
    
20.                 return null;
    
21.             }
    
22.             System.Text.StringBuilder sbf = new StringBuilder(256);
    
23.             StringBuilder sbfClass = new StringBuilder(256);
    
24.             while (hWin > 0)
    
25.             {
    
26.                 GetWindowText(hWin, sbf, sbf.Capacity);
    
27.                 if (sbf.ToString().Contains("OP_"))
    
28.                 {
    
29.                     int index = sbf.ToString().IndexOf('_');
    
30.                     str = sbf.ToString().Substring(index + 1, sbf.Length - index - 1);
    
31.                     break;
    
32.                 }
    
33.             }
    
34. 
    
35.             return str;
    
36. 
    
37.         }

        //导入库　[DllImport("user32.dll")]<br />         [DllImport("user32.dll", EntryPoint = "FindWindowA", CharSet = CharSet.Ansi)]<br />         private static extern int FindWindow(string lpClassName, string lpWindowName);<br /> <br />         [DllImport("user32.dll", EntryPoint = "GetWindowText")]<br />         public static extern int GetWindowText(int hwnd, StringBuilder lpString, int cch);<br />         [DllImport("user32.dll", EntryPoint = "GetWindow")]<br />         public static extern int GetWindow(int hwnd, int wCmd);<br /> <br />         [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]<br />         public static extern int GetClassName(int hWnd, StringBuilder lpClassName, int nMaxCount);<br />         [LispFunction("ReadTencentqqId")]<br />         public static string ReadTencentqqId(ResultBuffer rb)<br />         {<br />             string str = "";<br />             int hWin = FindWindow("CTXOPConntion_Class", null);<br />             if (hWin == 0)<br />             {<br />                 return null;<br />             }<br />             System.Text.StringBuilder sbf = new StringBuilder(256);<br />             StringBuilder sbfClass = new StringBuilder(256);<br />             while (hWin > 0)<br />             {<br />                 GetWindowText(hWin, sbf, sbf.Capacity);<br />                 if (sbf.ToString().Contains("OP_"))<br />                 {<br />                     int index = sbf.ToString().IndexOf('_');<br />                     str = sbf.ToString().Substring(index + 1, sbf.Length - index - 1);<br />                     break;<br />                 }<br />             }<br /> <br />             return str;<br /> <br />         }

hw8810

附件的dll试了下2014版本的CAD成功，低版本的可能要自己编译一下了感谢大佬分享

434939575

新手请问下这个还要加什么引用空间  错误        1        未能找到类型或命名空间名称“LispFunctionAttribute”(是否缺少 using 指令或程序集引用?)       
未能找到类型或命名空间名称“LispFunction”(是否缺少 using 指令或程序集引用?)

未能找到类型或命名空间名称“ResultBuffer”(是否缺少 using 指令或程序集引用?)

vs2013   

荣sir

434939575 发表于 2023-1-29 22:54
新手请问下这个还要加什么引用空间  错误        1        未能找到类型或命名空间名称“LispFunctionAttribute”(是否缺 ...

引用CAD C#二开的dll文件，然后vs就能提示缺少的命名空间了

434939575

荣sir 发表于 2023-1-31 05:16
引用CAD C#二开的dll文件，然后vs就能提示缺少的命名空间了

感谢，我加了acmgd  acdbmgd  accormgd三个dll还不行，可能还缺什么，

sieben

434939575 发表于 2023-1-31 12:38
感谢，我加了acmgd  acdbmgd  accormgd三个dll还不行，可能还缺什么，

using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Geometry;

这些你加了没？或许还要引用PresentationCore

434939575

sieben 发表于 2023-1-31 14:14
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autod ...

感谢，加上这些可以了，调用还要技术。