哪位大佬帮忙写个alisp可调用的dll，获取鼠标屏幕坐标

夏生生

尚未学会C#，解决不了DCL插入点的问题，特来求助，谢谢各位

需求：
1.获取鼠标在屏幕上的坐标（可不在AutoCAD视窗），alisp可调用,例如

1. (defun c:tt  ()
   
2.     (setq pt (c#getMousePoint))
   
3.     (setq id (load_dialog (findfile "tmp.dcl")))
   
4.     (new_dialog "tmp" id "" pt)
   
5.     (start_dialog)
   
6.     (unload_dialog id))

(defun c:tt  ()<br />     (setq pt (c#getMousePoint))<br />     (setq id (load_dialog (findfile "tmp.dcl")))<br />     (new_dialog "tmp" id "" pt)<br />     (start_dialog)<br />     (unload_dialog id))

2.C#，源代码（文本文件，网站代码视口有时候插入一些其他的东西），以后有基础了再学习，现在连编译都不会，还是fortran好，傻瓜式命令行编译
3.编译后的dll文件（针对任意版本autocad），下载了一个vscode，连环境都没搭建出来

x_s_s_1

算了自己啃书

夏生生

我尝试编写如下代码

1. using System.Drawing;
   
2. using System.Runtime.InteropServices;
   
3. public class MouseHelper
   
4. {
   
5.     [DllImport("user32.dll")]
   
6.     static extern bool GetCursorPos(out Point lpPoint);
   
7.     public static Point GetMousePosition()
   
8.     {
   
9.         Point mousePos;
   
10.         GetCursorPos(out mousePos);
    
11.         return mousePos;
    
12.     }
    
13. }

using System.Drawing;<br /> using System.Runtime.InteropServices;<br /> public class MouseHelper<br /> {<br />     [DllImport("user32.dll")]<br />     static extern bool GetCursorPos(out Point lpPoint);<br />     public static Point GetMousePosition()<br />     {<br />         Point mousePos;<br />         GetCursorPos(out mousePos);<br />         return mousePos;<br />     }<br /> }

编译成dll以后，regsvr32 dll，返回错误


再尝试

1. (vl-cmdf"netload"(findfile "xty-get-mousepoint.dll"))
   
2. (setq obj(vlax-create-object(findfile "xty-get-mousepoint.GetCursorPos")))

(vl-cmdf"netload"(findfile "xty-get-mousepoint.dll"))<br /> (setq obj(vlax-create-object(findfile "xty-get-mousepoint.GetCursorPos")))

但是也不成功，哪位大佬指导一下啊，谢谢

d1742647821

什么版本的cad

夏生生

d1742647821 发表于 2024-5-27 17:18
什么版本的cad

2010以上，不是说.net和alisp一样基本没有版本问题吗？

brainstorm

1. using System.Drawing;
   
2. using System.Runtime.InteropServices;
   
3. [assembly: CommandClass(typeof(MousePositionTest.MouseHelper))]
   
4. 
   
5. namespace MousePositionTest
   
6. {
   
7.    
   
8.     public partial class MouseHelper
   
9.     {
   
10.         [DllImport("user32.dll")]
    
11.         static extern bool GetCursorPos(out Point lpPoint);
    
12.         static Point GetMousePosition()
    
13.         {
    
14.             Point mousePos;
    
15.             GetCursorPos(out mousePos);
    
16.             return mousePos;
    
17.         }
    
18.         [LispFunction("GetCursorPosistion")]
    
19.         public static ResultBuffer GetCursorPos1(ResultBuffer rb)
    
20.         {
    
21.             GetCursorPos(out Point lpPoint);
    
22.             ResultBuffer rtn=new ResultBuffer();
    
23.             rtn.Add(new TypedValue((int)LispDataType.Int16, lpPoint.X));
    
24.             rtn.Add(new TypedValue((int)LispDataType.Int16, lpPoint.Y));
    
25.             return rtn;
    
26. 
    
27.         }
    
28.     }
    
29. }
    

using System.Drawing;<br /> using System.Runtime.InteropServices;<br /> [assembly: CommandClass(typeof(MousePositionTest.MouseHelper))]<br /> <br /> namespace MousePositionTest<br /> {<br />     <br />     public partial class MouseHelper<br />     {<br />         [DllImport("user32.dll")]<br />         static extern bool GetCursorPos(out Point lpPoint);<br />         static Point GetMousePosition()<br />         {<br />             Point mousePos;<br />             GetCursorPos(out mousePos);<br />             return mousePos;<br />         }<br />         [LispFunction("GetCursorPosistion")]<br />         public static ResultBuffer GetCursorPos1(ResultBuffer rb)<br />         {<br />             GetCursorPos(out Point lpPoint);<br />             ResultBuffer rtn=new ResultBuffer();<br />             rtn.Add(new TypedValue((int)LispDataType.Int16, lpPoint.X));<br />             rtn.Add(new TypedValue((int)LispDataType.Int16, lpPoint.Y));<br />             return rtn;<br /> <br />         }<br />     }<br /> }<br />

这样可以的，netload编译后的文件，(GetCursorPosistion)可以作为内部函数找色

夏生生

brainstorm 发表于 2024-5-28 20:46
这样可以的，netload编译后的文件，(GetCursorPosistion)可以作为内部函数找色

非常感谢您的帮助，但不知为何我没有成功
是否因为我不会编译？
文件夹里生成了dll文件，而且没提示错误，netload也成功，但是提示没有函数

1. (vl-cmdf "netload"(findfile"ClassLibrary2.dll"))
   
2. (GetCursorPosistion)
   

(vl-cmdf "netload"(findfile"ClassLibrary2.dll"))<br /> (GetCursorPosistion)<br />

brainstorm

public partial class MouseHelper改为 public static class MouseHelper看看行么

夏生生

brainstorm 发表于 2024-5-29 16:34
public partial class MouseHelper改为 public static class MouseHelper看看行么

这两天要加班，空下来试试，麻烦您了

你有种再说一遍

修改框架,用net standard,直接参考ifox的.csproj文件