夏生生 发表于 2024-5-26 13:13:11

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

本帖最后由 夏生生 于 2024-5-27 08:44 编辑

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

需求:
1.获取鼠标在屏幕上的坐标(可不在autocad视窗),alisp可调用,例如
(defun c:tt()
    (setq pt (c#getMousePoint))
    (setq id (load_dialog (findfile "tmp.dcl")))
    (new_dialog "tmp" id "" pt)
    (start_dialog)
    (unload_dialog id))
2.C#,源代码(文本文件,网站代码视口有时候插入一些其他的东西),以后有基础了再学习,现在连编译都不会:L,还是fortran好,傻瓜式命令行编译
3.编译后的dll文件(针对任意版本autocad),下载了一个vscode,连环境都没搭建出来:(

x_s_s_1 发表于 2024-5-26 13:13:12

算了自己啃书:lol

夏生生 发表于 2024-5-26 21:28:11

本帖最后由 夏生生 于 2024-5-26 21:51 编辑

我尝试编写如下代码
using System.Drawing;
using System.Runtime.InteropServices;
public class MouseHelper
{
   
    static extern bool GetCursorPos(out Point lpPoint);
    public static Point GetMousePosition()
    {
      Point mousePos;
      GetCursorPos(out mousePos);
      return mousePos;
    }
}
编译成dll以后,regsvr32 dll,返回错误
data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAeoAAADjCAYAAABKFVdGAAAgAElEQVR4nO3dfXAb530n8O+KkhzZspxEfpHt5GgngCiqQirXGU8AJfHE9XgOsNpwdC3d+FLKdXuLNHWGoO/YWI6YjEPHSsM5YznJtAHauhab8dVIqyK1tJjx+KJzG4EZJ7oopiyK2k1s9mJHsWsnerEVSaSe+2N3gd3FLrAgQWIlfj8zGAnY3Weffbi7v+d59gEeSQgh4OP6R4/6LSIiIqIW+fnODb7Lljfa+PjbLc0LERER2ay7ov7yZYuTDSIiIpqL5R2r1vkuvPYL/2cRs0JERERuy2bPHIf1enX33cC2v8Sr5nsiIiJqL9sz6h/iie3At/Rt8G9jExER0WJahlf34PdWrUPHqq0Ywj58OrIOHauMFxEREbWXOZjsIXzP1gVuvPa2N2dERERkBeqv4qOrqi3pDrOFTURERO3FFjUREVGIsUVNRETUhB985gb0bV7tu7xv82r84DM3tGx/y3HjNvzjmW3Gu1f34Pci+/Bf9L/Fp24M+hOil0F58Gb0X2P76I03seXxN1BuSRbXQN11A5Lmu9LTR5E6NN90TiG941XkrUWbb4S450rzzVmMjr6MDL+dRkREHr7+/ZP4m56rAQBjh047lvVtXo2/6bkaf1L8j5btbxkAHC/8MX6v8Lrt4x/isVVKUwmVnj4KaYfxSr++Fgc+vaYF2TOCKyppv4xjd9wIuel0LoPy4JUoWvl76UrkKvlbA/WOc9hiLpOePof+/rnsg4iIloKxQ6fxJ8X/wN/0XO1oWduDtDuAz8dyvLoHD2yP4b+fuRZ41fr4w7h/91/h68f+85wSzR8+hdymFuRu3WWIvvEmtlda0GeRefzVelv4cG6XP3wKuTsuQwJAGSeRety26qFTKN2zFhvXAWCrmoiIPFiB2GpZW/9vdZAGgOWPRT6L33r+OOKuBet6/xaY0+xZl0G540roh+3Nfmf3tb7/ZUSfPeux7CxG959D/6ZzRtf58bPQrrkBOze/4eruNrrb7z5cTSdx1804sOk0tjx+Er0P3oz1330NuOcGJD264eVNV0I//LJ31/zmK5HEORQZpImIqA53sF6IIA0Ay/7v7hfx8G32j2K46cbmE0reswFi1waIXTcATx11BeK1ODZa7b7et+lmqJutZfau7deATVfaUj2J1NOnzLTt3dFnkfnuKUQ2rUECAHAZejddhtJ3qwE5eY/Z1W0F6XXXQNtl5LHnsD1/NuuugXbPlSg9bXt+TURE1EbL/rH3WhjPpNehI/JZ/PMXP1rTug7Cekadfuky9N9pez69+UokcRn6+61Abgw8i157mbHsjTfxqL1r+7unnAkfehXSjqPYsn8lcrs2QFjPlg+dQuma1ehdB2DdGtx9zSkUba3ummB7/A1EzefQxU0bIB68xgzyhsRdN0P0r8a+0bkOViMioqXE/kza65l1q5i/9f1hPHzmOB5uQYL5b72Gnl03QN18shrw/EaBbw6ebvnZlyE9a7TAjbRPovjSDRj80GUoYDWw/7XArWAjj2vRu+4NlI8D8qc3IIfXIO04GTxDRES0ZPkNHPMbDT4fCzAf9Uk8uv8skneYLdZDp1C6Zi122oKy/GmzG7tmmfF8u2LdNdBqRo+fxTHz+XH+uTeBTVdj5yZg34seXdk+6STuWovkG6dROG4sG/yNU0h/i0GaiIga8wvSfqPB52t541WaV372NYxuuhkHPn0W0rdOIjV6GbT+DRD3GMtLTx9FCgDgXnYWo/tPAdaI8eNvYPvrNxvPvVHdtvId5+MnsQ83o//115CqN/irJp1TSO+wnl2vRARXIrdrA3K2Teb+fW0iIrqUfe4ja3wHjlmffe4ja1rWqpaEEMJv4fWPHsXxt1uyn+A23whxx7kW/mAKERFReK27Avj5zg2+yxeg67sZl0F50D6aew3Ue66EfvgkgzQREREWqOs7uLPIPHUOmq3b2fkdayIioqWtzYEa5tem3mh3LoiIiEKpzV3fREREVA8DNRERUZuV6ixjoCYiIgoxBmoiIqIQY6AmIiIKMQZqIiKiEGOgJiIiCrGG36MWu/x/1oyIiIjm5/pHj9ZdzhY1ERFRiDFQExERhRgDNRERUYgxUBMREbVZss4yBmoiIqIQY6AmIiIKMQZqIiKiEGOgJiIiCjEGaiIiohBjoCYiIgoxBmoiIqIQY6AmIiIKMQZqIiKiEGOgJiIiCjEGaiIiohBjoCYiIgoxBmoiIqIQY6AmIiIKMQZqIiKiEGOgJiIiCjEGaiIiohBjoCYiIgoxBmoiIqIQY6AmIiIKMQZqIiKiEGOgJiIiCjEGaiIiohBjoCYiIgqx5e3OQDPOnTyBnz2n4hcvHMDbr/4/vP7CAcfya2/bgitufD+uu20L3ndnCivXXNWmnBIREbXGRRGoz508gYOPfQE/e07FqjOnsG6lhA+skLB57XKskIx1zgvg5NT38dbhcRx55mkcfOwLeN+dKdz68FcYsIlogZSQTkxhsJxBBEApncDU4BAmo8Po1srIRNqdP7oUhL7r++iT38R37rgF50sFfGzFO/jYuzsQvXwZ1q6QKkEaAFZIwNoVEqKXL8PH3t2Bj614B+dLBXznjltw9Mlvzj8jpTQSil55qysJpEsAoENJpFGqs67nOhelEtKS33GUkJYScBx2W/JBoaArSLT8fLCfY/ZzoM75oCtISBKkOq+EPZO6gkQ6wJlVSpvbp5AfH0BUkiAlFKA7BiCJnBgD+uZ+/LqSQEIpQUl45dl+rCWkEwp093szf9ahlNL1y6Dysm3rucyWP2cx6VASEuoXne5zPLaXbwLu41xaQhuoz508gfGHHsDk14Zw67K38Zurl2FVE7ldtQz4zdXLcOuytzH5tSGMP/QAzp08Mf+MmRd+dGAc+ZQESYpiYDyPlOtEDsQM6NWTvoS068R1nrd+wdDrRuW+qbnTXczAaglyMc9Xs8e1GHlq5/7aJJJBWQRpUba6PMxrQVeQSCjQIxmUhYDwe6ly4xTTHtdkMmemoUKOZ6EJAVHOIFrZKoJMea4tah17CzEMZaIAZKiOPGvIxgMkkcxBCA3dUyXzbe2xqzIQz2rOz8sZRMxjU2VAVp3LtLTftRVBpqyhe7jRtec+HttLy6LuoVkVokCB/dISykB97uQJPPeHn8SbzzyNj727A2vtTecmrV0h4WPv7sCbzzyN5/7wk3MK1kpCgpTKY3wgCik6iSEhoGXj5kmsIRs3Tz6z+6vKqkHagnnl5NKhDE+gdyuwtxBDT9LaJo6sVj15c0l7ekkMZoHC3rlEV3e680krzC7V46JA9CkgO4ikNgn0bkWkid4sXUlAig5gPJ8yA4EVdKrXjpaNw9kytLWoJQnRgTwGot6t0MBKIxiI9SDZaLW0c/8JRQcQNRr1uoKEFMXAQMo7mJXSSEFF2acmoSsJFHvM+09ND6GfCDJDMQyMLFDwtCpE9leuUSldGkIZqA8+9gVc0F/CR67qwDxidMUKCfjIVR24oL+Eg499oentM2XjAjVqnzkg7dWiTkDRdWdQl0bQVXYF80qt0apxR5Ap5+pflLZuxEhmCLGBkZZ0+/qm5eou9O+NsnWRpYu2j503qFJagpRWoCSiGBiHUW5WovX2FSgfzu60dMn7uILlSYGScHWFltL1a+2OMkg7W/P2ZQkFOnTvMqg5JAUJKQ1FSdi6Om29Ivbt/MrITMPRRVp5X1tm3vm1bWdblnB3FXv+jTy6pmvSCFAePueYr0gGuUwESOZ8g5D/pmXj+jQDgn9jO4JMWXi2OqsVeFsLtalc6FCG85ArNXdbBV+y7jfGEqOVbLXoVcQGosby/ACifcCYbzArIT08gfjElE8looSRyv2tej8L0njVpyaA/HBreuocXfDOCtGcK0EXqdAF6qNPfhPH/+XplgVpixWsj//L03N4Zm2cuEbwTWB4wtk6FZWL2ryAVbkS1I1LRMMkum3dYvWM22rk5k3f0Y2YRI+cR7EllVaPtHQFiWgBvVq1O2oi5dGdpStIpCaq5dAD5K1UcwJqbAAjJVRq7iKXQaZsdNvJqnnzqLevoPkojWAgprp6IGqPK1ieMsgMyRgv7DVvAEavR3bQpxpVpwygK0gMd1daAFpvAX0KasvAVx4FjJnnVh4pqYgeq6vVuhEGLSM3rzLzzK+VUB6pYk+lqzdm3bSb2r8tDS0LDIygZHaX+pZHvfJtijvY2V4pjxRjXQ2Dq25WolJ5VAOalIbWFcPElI65jqPQlb5KIDYE7fpOIle5F8lQyxmzN8H999ChJIbRPTaEGABNSXgEvGpa9tdgtOGJhZGBGFStF4UWtapruuYrLxWNH1pcOkIVqM+dPIGJb3wNv7l6mSNIS6uvwhXf2IOO6KbAaXVEN+GKb+yBtLo64nuFZDy3nvjG15rqAteVYUC2gm8ZQ7FxZ/eWecHWbpeorQ1aXWu+1VN7JcD7GVdyMIuJ4WZrkx4VAK+0tEmMy0PV/UYyGJLHMam5knOvl+xxXDjJnAqkJEgpQPULSPX2FTQf0W7E86mam41XGQXKU3IQWZgBXd+LAnqxNQJXy9EsvzploO8tYNzRJTqO8ZrM+6QLAJAxZCYc7Y4DstUVGkV3vMkycvMos/r5lW3llUSPDCMYNbV/WxqRreiNT2Cq0Qnc4BwLrs5z0QDPqL1EMmWochxZzdZbJnJIRruBSQ26MoyJ7GDD7ms3Db1QAz2EtnF0fQPABKZ0o7dicsh+D6n9LJopQ4wBfZ7Pe52PDSKR+tUXXRlGXu5BMpLBEFrTqjYaR16VrNQcK20Xp1AF6oOPfQHXnT9d80z68q/+HZbfkggcrK0gvfyWBC7/6t85lq1dIeG686eb6gLX0IvBnur7ysCMSsvZO6hGMmXbzcB1s5jPs5XIVvSiAOdjWK8bXwxdlTz5VAA802pMn5qYQ8YXgDVYaGgSUXvX6xyPy3jOJiNfLKE0MoDYkNl16RiUZJRfwzKQVWdQ8Pqbe6S74PzKLEh+F9GinGPuLnJtEugO0PelKxjOj2Mg6hpMGulCLJ9CtNCLsTn8MZOZjKvnzb/ru/KM2uyqt44j2RPDgNH3bRvjUkJaimJyyD3uBZXzQesedo36do6tSdSNvGZr2kw8OdiLQt88u6YrA/Z8Xk0/Vrh4hSZQWz9msv7y2iz9evSLEKdPQlq9pmGwrrak10CcPolfj36xZp31ly/Dz55TA7eqkxnbCWF/blJ5Fl37zMT43Hy2mAJU0YNiy56puAdtJNEjjzsGcejKMPLxIN3trrSi3YjbnzHpCobz8Zp7V2Rrr2M9XRl21HBLxkFDy04g5dd7UG9fAfOBUsmo8Sdz0LJxs9vRq4wC5gkwWtUTKaQmsvDr9W5UBu5lKCmtH2Ffr4wiXYjZKm+Ov49HmdXPr+0xgrmP3q2R4H+jOWp0jrWM7StZpeKEcWwAnBVdd+asCpatRT22FUaPRxzZsQwijq8UeXVDB+Hf9V15Rl09kMoYGcTNniCUkE6kkU4Y5369ulckU3aM+nYcm60iUEuHkkgBqm2sTSSDMcfjk+aVzBHmxlfVrDENZgs/6NfoLhWijnXDk/UWt9RP/ukp8czGq8WvEtd5vk5t/21x4dQJIYQQF06dEKe2//ac1rFez2y8Wvzkn54KnkFVFvGsVn2vZUUcsshmZVH9WBPZOATiWaFV1olXl5vbqP47ETIgYHvFs1ptOpV92T9zbWvlobLMvX2dtFTZlgf3Pqr517Lx6nqyXNmHKkNAVm1pV99XtrGW++4raD7sx+0u2+pxNZUnYawf9y+w6h5sZRDPZuuUj1q7jexzJrjOEy0br8l75W2d8vPPm3eZeefXKGtZrp5bjmwH/hvZ/zbO881RHqpcJ0+y7Tyul76TKtc790X12lZl23WjiWzcSFO1Hbt1/I58Va45WchxCFk209GyIm4vR8c16U/LxoXfqeGReSNd1z2icv468uCxXf2cGNeJzzlsvDXW8b5W3Mtc6Xm9rH34lJ29bBr+XS8ijWJtaAJ1+fN/Jn6w+RrfwNooEDcTpH+VuE78YPM1ovz5PwueQfNirly0jgvaIzj6BmXjJhn8QvSnZeOBgslipxUmczquhhUq/30h4M344lE/CF4UHJUJr1dcZDVXpc4WNOwBoTaIWgHdWRm2Anm1fuUXMGsZ+2gQ1OJZoVnH5XnOVbf33q1/oHZW8DSfZdWyqn992YN1tfLjc+BmGbnXs1XsVNknmF/cGsVaSQgh/Frb1z96FD/fuSFAu3z+nvvDT+IDU99v+J1pd9f22w9sA4Caz2a1w3XTefO8wE+7PoI7//47LTuGxVdCWiqiRzT4eteipxUmzR1XKW0MDJQbdBNW07YPapGhLvHyI6LmNYq1oQnUT3Vdjbtsv91djztYA2gqSAPGb4M/++YM7p36j/lmnYiIaM4axdrQDCYDEPh707PaYbz9wLbKALNmg3Qz+yIiImqnUAVqIiIicgpVoD7v2wnv5O76DvrVrbnsi4iIqJ1CE6ivvW0LTs40jp5eg8ns3eBBg/XJGYFrb9vSiqwTEREtmNAE6itufD/eatDM9QrSs9rhmmfWQYL1W+cFrrjx/S3KfcC5cedrQeb4JSKiMAtNoL7uti04fs4/UPsFaUuzwfr4OYHrAreoa+dzTgSKlu7t5hlkG87xO/e5fau/S96CfBIRUcuEJlC/784Uzqy6Emcu1C5rFKQtQYP1mQvAmVVX4n13pprIof2n/DT0FqIBJy23bafGMDDf379dCKU0ooVe21yvi/Sb00RE1FBoAvXKNVfhfXemcOyd2kj9rv4vB/4KljtYv6v/yzXrHHvnAt53Zwor11zlkUIQ5vR8E6nmWq/JHsjjk6hMLuQ5/6/rc8ccx/XmFPaZ29drH+Zcxem0NddxHQ23TyDhNYezte58909EtMSFJlADwK0PfwW/WLEab7qeVb/z0B9h5kflwN+TtoL1zI/KeOehP3Ise/O8wC9WrMatD39lnrmNYGuvfRKIxirTwBlvvOf/DToHb82cwh5z+zaYYxg95tR8yRzUmHuqvDp5dGxfRtkxhzNQKuYhD2UQCbr/4IVORLTkhCpQr1xzFWIP/Dl+fPqC4+tT4vSJpn7MBLC3rKszZJ0XwI9PX0DsgT+fR2u6Spscb7ySbZq6PoxVpg70nf836By8PvMw2zWaY7jHFiGNmXjMLn2zlRt4+2QP5HFzSkldwXDeWNbM/omIyFuoAjUAbLjvM1j3u/fg+ydmW/pd5/MC+P6JWaz73Xuw4b7PtCBFHVMTcduUeH6sZ9QqYgN9zkFaHvP/Bp6D129O4ZrdNzPHcASZsoAq5zFsZTTQ9kkMZoHCXh363gKQHay2kkM2xzER0cUmdIEaMLrAl0V+o2XB2grSyyK/0YIub8B4PhzFQGyoiUFXSeTUGAaiRmvVb/7fwHPw+s7DXBV4TuRS2hbodUxNALGuSFNzKke29gKFEYwUUKm8LMqczEREl7hQBuqVa67CnX//Haz9nXvwb7+arXlm3Yw3zwv8269msfZ37sGdf/+deXR5V7uwJSmKQq/WfOswmYMq55FKKNAjGYxlgYGomWaxywj6rs/70AvZawL7JFCsdCnHMGRsjK298epgMr99eOSrp1g9toGYaswcFXR7AIhsRS/yyNsrL4G3t77Gxq+FERG5hWb2LD9Hn/wmJr7xNVx3/jTWX74MqwJWLc5cMEZ3/2LFasQe+PMWdXcvPl1JGF+dKmdwyX5jqpRGYmoQ5a4R419+N4yIlpBGsXb5IuZlTjbc9xl8YNuncPCxL+DfnlOx6swprFsp4b0rJKxZLlVmwTovjJ8Ffeu8wPFzwviedDKFTz78lZYMHFs8XnMcX8JBGgCSPYilopAQR1a7pI+UiKhpoW9R2507eQI/e07FL144gLdf/X94/YUDjuXX3rYFV9z4flx325Z5fk+aiIhocVz0LWq7lWuuwge2fQof2PapdmeFiIhoUdQ88T1e+GN07PphO/JCRERELss6Vq1Dx6p1eOwFAHgd+78DfKvvw+3OFxEREQFYNnvmOL73RfPdq9/DP+3Zh09HjOBNRERE7eXo+h4f+yyw+0XMnjmO2TPH25UnIiIiMlUD9St78D+/DPzzT/69jdkhIiIiu+XVLu7PYvj5vfit27+H8R0fRryt2SIiIiLA9ox6+PnjePi2/4Sbt30V+18AAI78JiIiarflABDfcdxsQV+LT/U/hI7RPfjEJ/cBGGxn3oiIiJY84xn1C4r59SwAt92Lb+Gz+Oj29mWKiIiIDMv+139dh47//VE8fJv5yQtP4dN7AGBfG7NFREREALAMXzuO2R0fBvBDPLZqHTpuB7535jhmz7zY7rwREREtecs+dSMwvmsdOlb9FW7Wj2P2TKbyvJqIiIjaqzKYbHZHu7NCREREbjWTchAREVF4MFATERGFGAM1ERFRiDFQExERhRgDNRERUYgxUAehK0grusfHCaRLbcgPEREtGQzUQUQy6Jnsg6LrUBISJMl4RQfGkU9V30t+UVtXkPCN6DqURAKKXkJasqVlvRIKaqsIF4MS0lIa3kddQlpKwKPus8j5oFDQFSRafj7YzzH7OVD/fCilpWrlu5RGIlCmgp1jpbRrHd/7Qglp13UfvkaBmccF+dvNk64gcdHeN70xUAeUzA1hckRDpiwghPHSsnHIavW9yCVRStsDbRol6FD6BjCeT1U+T9jPan0vCujF1giAeBaasKUnVMjWeuZNo3rB1gZ254XsFwy9birum5o73cUMrBajUrSwN6dmj2sx8tTO/bVJJIOyKCMTabRiq8vDvBZsN/ZkTqCnKDUM0LqSsF0jKeSRR6pBRTs52I2iPV1tEuiOemSriInerbAXhzYZQ0+y0bE49+08BqtBUHMkPp83EkV3DObfbgiTff6B0VlW3g0axzpmmRmfOe9VpXSdBpElksFYbwHRS+jCYaAOLIlcLuk4odwt6nTJuNCFUCHLKoTIIaqMAGNm4NWyiMezGLPdkfS9BcSGMqh/j9KhDE+gdyuwt2C/YOPIatXAnnNcyEkMZoHC3rlEV3e680krzC7V46JA9CkgO4ikNgnYAmMyJ1BuUGuIZMq2yrQM1VHBtr3KGWhW5T06gPxAtBKMlGIe49Z7K0CV0pBSts/TJUBXMJx3VgS8Y5A9Hxp6C9HGQS0AZ+PDekUxkB9A1KqojA8g6tGKLaUlRAu9jgaIipQjXzXrjAEjio5IpgxVzmPYqkXoCobzMlTHjc7Zy2m/N8PWOKo2nC5Soo51w5P1Fi8Z2TgEACGrzs+1bLzmMyGEEKpsfK7KIh6PCwA1r3hWE0KoQq6ka/y/Zt14VmieuVKFjLjIuhdqWRGvfK4KGbJQa7bz+sy+jUe6nttZ+6vmt1oervVVuXpMslzZhyo7j1GVISBnK2VurK822FfQfGiOdKvl7jyuYHky3sftBaXK1bx68SmDmmXxrNBcefVNV8uKOGSRzVrnmSxU+7lk386vjMw0qms2KjOv/Nq2sy1zlE+gv5FfGgHKw7d8PdJv9Pep83IWqff1XXvsmlFGlX/t16kmsnEzT6pc3U7Liris1txnvO87XsdllJmxriayca/r2u/zRmx59l3FfV7Z82ru03cd97r2Y/FZU/bZl+89NDwaxVq2qAPIlI1ubkwpSLhqbY5n1AkFOnQow3nj8+FujA3FAFmFEBqycbPGqxod2royjIl4vLojs+u72qVu6/r2NI6BqLV/s/vK0Y2YRI+cR7El1UiPtHQFiWgBvVq1x2Ai5dGNpitIpCaqrfQeIG+lmhNQYwMYKQEopZGCCpHLIFPWkI3DKIdcsv6+guajNIKBmOrqgag9rmB5yiAzJGO8sNdsRRi9HtlBn/7JOmUAXUFiuLvSotB6C+hTUFsGvvIoYMxorch5pKQieqzWXn64uTJy8yozz/xaCeWRKvZUWpuxgajR+mtq/7Y0tCwwMIISIvXLo175BpXMOVvDqox4VnN8pmXlam91KY3oABy9T/ZtbYWIdLQPRsfNXvRJEqRoATEZmNQAQMMkuuHRCQ6giJGBceTndBFHsLU3jomp+fYYuVutaZQQQVfMWu7zjF6bxLjcg9ozN4keeRyTmtGj6L1Odd2cGsNANIqBmIp6l0GyB9XWt5VzZbjmMcLFiIG6GV0ZlIUKueZZshmEyxlESiMYGJeh2oNsPmV0FY2b3Vcp4xaioRdDvdZKSeTK7i5wr8/s7F3U3s/4koNZTAw3O7DCowLglZY2iXF5qLrfSAZD5gXo4F4v2eOogCRzKpCSIKXg6taqk4Z9X0HzEe1GPJ+qGaDnVUaB8pQcRBZmQLePNdDtFTqz/OqUgb63gPFxqxvRqACO12TeJ10AgIwhM+Fodxyo3Pii6I43WUZuHmVWP7/2rskkemQYgaKp/dvSiGxFb3wCDWNNg3OseebjJow4jl2bnDAXG5WVrGy/VmyvlFVNKCEtDWPCVh+PZTUIUUauJ2YEYNcz6Uq3d3QA4+hBTgiInqKtuzjm+WjbizY5Pq9SqLK61Y3KEgBEu4Ep3QyG2cGaYKtPTbRkz/rUBOL2Bo2f5CB6C32266KEkUKv41HjxYqBei5sN6nK85pxANChFAHZfU75tKiTmYxZi3YOBPFuqc9RZCt6UYDzMazXjS+Grsr57FMB8EyrsVZdsPMWyaAsBMTQJKL253xzPC4ggsyQjHyxhNLIQHWsgbUfW/k1LANZdbbIvCoHHukuOL8yC5LfRdTyc6w0goHYEDKZHMQY0FdpMRrXSWlkEkPlDLpc4zlqW9RJ5EQZ5fIY0CdBik6ix/rDJQeRnUhBSk2gd2v1j1lpxWtZVG4lyRy07mGkS7bKQkM6pibijrTnznpGbt3rgEgXUOhLIOoTDCNbexHPFz2eC5dQzMfRHQUiXTFgYsr//qYr6BuIYag8huxEqsFAwggy5SFMRs0BgtIwumljuIUAABJHSURBVMcajf+5ODBQz4VnixoAIsjkBtFtW1WbmvBtUVcljVqz2bUmy3HE43L1BlC3Vd1IBJmhGAZGrDPc6HaqvjdqxPm4X9dbnbSi3YhbXatGQhg2L0DHVlt7HevpyrCjW7KUTgGqgJadQMrvSqy3r4D5QKlk3DSSOWhZe5egu4wC5gmo3GxTE1n49Xo3KgP3MpSU1o+wr1dGkS7EbJU3x9/Ho8zq59f2GMHcR+/WSPC/0Rw1OseaoitI2HtSIhmURQ5JlFCcMK6TZC5ntiAbtagrOTS7iu2PWczP4mZPTKNjzJTrdv26DgJKImpUNloSqWpb1Ej2IDYOZMcyiHh8pczoNckj5fhch5JIIW/1fpi9Uo4R2pXfrTC+MRNTc0haleJUowFhSeRUIBUtoFdbpMrsYpjPA+6lRMvGhZzNirgsew/68hp8E5eF7BjMUTtgpDowRKsMTjI+azR4onbwWTyruQapVHLvGjDi2tYx2MJvMJlPWo4BOO59VAd3OAbduAeTVUc1GWVnvq9sYy333VfQfNiP22vgzRzyJIz14wFG49jLIJ7N1ikftXabBoPJHOm48u45AMxVfv558y4z7/waZS3LPgP+Av+N7H8b5/nmKA9VrpOnOQwmq+TR5/zXsiLuGpikyj7r2geF2a7t6v6r55WWjVevQfeAtpq/u9/gL5/7gWM7r4Gqfp/7FpCxn3i8MjCwMijT5xxV5Xr58ljH3L/zOrSt57Mf57VSPa4g12a7NYq1DNQBVUcCe40itI+AtP3fHLVpX8e6iVUHMpsVADhvRtXYVOcm3QQtG2/ZCdvKtMJkTsfVcNSq/77q3xAvRg2CYMh5/k3qfdNA1AZqtaaS4lXhtn/bw7Vvj1Hf7nQX+7xxBlpZqI5zvhoQW3CbmoPGAbkSwEN8vTFQt5w9UNtqo+05S5vQypvoxX1D9tfccalyMzcod4uH5UdEhkaxVhJCCL9u8esfPYqf79zQqPeciIiI5qhRrOVgMiIiohBjoCYiIgoxBmoiIqIQY6C+2Dl+reoi/tF5IiLyxEDdBMdctcYntV/yn1O6tb95rCtpKIpzPlzPWWyikxiq/PCK9SMMPnNbe02/5zvnrg4lkYaiJALOyUtERAuBgTqwEop52ZhiMvCE8gHoCobz1V83stLVJieArTmMoc9WOfD6ucKc54/e52p+Oc01FZ/1a2fJHIYmo74/zdeVKdddTkREC2w+3+1aUmw/ROD+pR3U+cWdxslCxOPxyi+SeU6L6fWjB34vWQ22nuMHAFQhu6dx9F2XiIhaidNctoQxdaWhhCKsCQmcM2k1mmy+hjmF4tjYGMbQh+hADEPlcuX3dCs/zl/5gV+fCQBckyMkc/apMj1a1FoWcVmFKG/F3oQx8Tt6MsiUnWmpcrxFvzdORERzxUAdgK70oWDOY6MrRXTXm30heKpQhoFs9zCiI8Zcf3Frqjh9LwrjsM11PDfVGbhsE4JUps8DjNlmzLm24X4GnkZxfgdIREQtwEAdgIZejA0Zs6RHMrkWzcgSQaacQyZThugpGq3pTATWjDHIalBj5lzHDu5J3P2nw6zbovbIUTJna22LHAa70Xi+YiIiWlAM1AEkM9VuX2erM4W8fW7qOYwA15UEpBSgmtPopaUoBmIqypkIkoNZTKSsEeE6piasOaNdA8Osbvh5HaUORXHWCiLGvHxERNRGDNRNSuZcwdE+N3XlOa4OJVH7lSs3XTEmXdfMkdu6Moy8rFafSUcyKKsxDPQp0KFhEkHmjAaAEkYGxut3fbsmdJ8Y7sNkl6tLP9qNiWIJrfoaGhERNY+BekFomETjyeAjmXKle1tXEujDGEQuafu+dgnp4W5o5QygDGOid6tZEbAFXXvrvpJygK9nub7WNR4bqk5Kn09BkiSkta3onRg2KhyxLmNyeEmCJDWuhBARUWswUC8EfQoTsa7Go6TNUd+5JBDJDCE2MIISYHR5F0sAksiNAX1pBXsL1jNsoH7Xt9czbFeL2tFVr2NvIQY1FzW2iw4gZj7bziUjyIz1ohBNYaI7CpSKmMhqEGoMhb2M1EREi4HTXFITSkhLKeQRR1Yrt2hQHRHR0tYo1i5fxLzQRc/oUs+1OxtEREsIu76JiIhCjIGaiIgoxBioiYiIQoyBmoiIKMQYqImIiEKMgZqIiCjEGKiJiIhCjIGaiIgoxBioiYiIQoyBmoiIKMQYqImIiEKMgZqIiCjEGKiJiIhCjIGaiIgoxBioiYiIQoyBmoiIKMQYqImIiEKMgZqIiCjEGKiJiIhCjIGaiIgoxBioiYiIQoyBmoiIKMQYqImIiEKMgZqIiCjEGKiJiIhCjIGaiIgoxBioiYiIQoyBmoiIKMQYqImIiEJseaMVTpw4sRj5ICIiWrKOHTvmu4wtaiIiohBjoCYiIgoxBmoiIqIQY6AmIiIKMQZqIiKiUJjG7j/oQldXF774r9VPG476JiIiooU3vfvzeGz9X2PqHz7u+JwtaiIiohCY/smPcMsHO2s+Z6AmIiIKMQZqIiKiNvvXL3bhvz0N/Oixu9DV9UX8KwBM78YfdHXxGTUREVG7ffzLU/hrdOEvP/gs/mF7J4Bp7P5b4C+mptiiJiIiCp9ObP/ydmD3HzBQExERhY7Z7f15/AW7vomILmXv/urP252FS9KvHrp+YXcw/RP86JaH8ez2TraoiYiIQufjf4yH8Rju4mAyIqKlYfpPL8fmzZtx6NAh/juPf3+ZLi/Y3+jjX55C9adOOrH9H6awHYAkhBB+G13/6FEc/dwCN++JiGjBWF3f78klcOjQoTbn5uLX+VfvAGht1/eGr/8cz/f6d3Cz65uIaAlgkJ6/zZs3t2W/DNREREtAu4LMpaRdlR0GaiKiJYAt6vlji5qIiBYMW9TzxxY1EREtmFC1qF95Att27G+83v4d6Nz2BF5Z+BwF0q7KDr+eRUS0BFhfMVps+3d04r6nrHf34snpNF5+8BEcPAh0mp/f+qXnsef+m4wAfvsjOOhK4/bORxzv731yGrs+sdA5r3Xo0KHKqO9WW79+ve8yBmoioiWgXS3qT+yaxvSu/dixA9i16xN45YkdePnxaUzfBCMwPwg8fv9N1Q3ufRLTdaLwK09sQ27hs+1p8+bNwAJ+j9oPu76JiJaAtj6j3v8scNcngP078ODeKTxyeyc6OzvRefsjOHjwEdze2YltT7wC3HQ/9jRoKt90/562tKYBPqMmIqIF1L5n1K/gia8/hafu60Tn16N4/HNdRqt5+nl86dZ78eT0NKafvNdY84ltRgBv8Nr2RHueWvMZNRERLZh2PaPG/hweOXgvnpy+C89ue9n47Kn7Ks+nrf/c+qU0brp/D6bvd22+YxteTu+BvXe8XRbyGXU9bFETES0B7WlRv4InngXuvdX1sU+LurLNth2ojgk/WO0q7+xs6yhwfo+aiIgWTHuCzE24f1caUdsnL788ZbSoO2/HIwefwn2dneisDgsHXvku9nbdhepj6FvxpeenMT1tvvbcj3Y1rvmMmoiIFkx7v0f9FO7rvA9PQcOzew/i3ienfVrUr+CJBx8Bpr4equ9PW9iiJiKiBdPeXyYzA/LjUUx1PekYtf3sDqNF3XXzTdi/43bs3fo89uzZg+nPabi9sxP3PeXq+u7sRGeQH0tZAO2q7HCaSyKiS5g1zeX0n17e5pxc/OzzUbd6msuf79zgu5wtaiKiJYC/9T1/fEZNREQLJlS/9X2R4jNqIiJaMGxRzx9b1EREtGDYop4/tqiJiGjBWEGG/879X476JiKilrNGfVNrcdQ3ERERAeCkHEREl7RWtvyoPdiiJiIiCjEGaiIiohBjoCYiIgoxBmoiIqIQY6AmIiIKMQZqIiKiEGOgJiIiCjEGaiIiohBjoCYiIgoxBmoiIqIQY6AmIiIKMQZqIiKiEGs4KceGr3OKNCIiorYRRIugUCi0OwuLQ1NEAhCALNTahUJJQADWSxaqKtveV7dT5YRQNGs7Vciy6tyH9V6VRaK6om2VhKhsosoClTeaUBJeeatSZVS3NfMsuzfQFJHwPEb3/trvzJkzLU0PgPjFL14XEy++KMoHDohDhw6JF198UUxNTYnJyUkxOTkpnnnmGfHMM8+IH//4x+LI5KSYeHFCvPnWm8L7lmsvY+P/CUUzyjGhCE0I//97ajI9v7+x0ISSsM5DVciVc9R+blrL3OeCX5rGuek+34007Ol67du9X2v3xjXkecq5yso6t1UZDcrQWMd9bfnnvU7+WoBd30Qto2N0+xH0KgkklI0opkuu5RH0HxAQqgzIKoS2EY+m8sb/hYCmJCCrOSSh49hhW6qjjwI9ycr70sgR7OwpQkqXUCoCO/s1pKU0SgBQSkOSJEQzZeRTEiRJgpTKA/mU8X8pikw5j5QkQarJn3EMxw4nsDHa4FAjd6M3kUexBEAfxRZpC0Z1c1l0IxKHj0Gvt/1Fbnb2PGZmZvHWL3+J6elX8NOf/hSTRydx7NgxnD59CitWrMDszCx+/euzmJ2dxfnZ85g5PxMg5Qj6d8ooF/ZhtJhHovduRNyrJHsglwvYF6iAA6TnpzSCDHpxdwQAksgJASEEhDiA/sCJ2Oij2CJJ2I7dRjqagkSgDa197wa2S5Ds5xpglAdk+yVS3eWxw8Cm9TXHnMxpUJBB1PMaaDbvDfLXAgzUtOTMzMzg5elXof/033HsJ6/gqPZTHJn6CV6a1DDx0hR+PHEUP3rxCA4eOoyz584FTreUjuLIzhzuBgDcjVxPEVvqXbGRfhxQZZ+Fm7A+AgA69hWsoJtGqZRGsScHFA9D6TmG4sZBJEtF5OUeJAEgmYMQAkZdwKwUQIZauclqUBLm+5zHnQ0ajpStfc9RZD02lY9Am0cSYTczM4uZ2Rl0dHRgZuYCZmZnMTszgxtuuAErV74L11x9NWZnZ/Gzn/07Zs6fx+zMLM7PBAnUMANxBpm8jJ2eETGJQQXIRF0BoZT2Pt8apuehlIaUOgxld3/wwN6IdgTlhILdZh70fQWUg2ynj2K0BBgVXQ1KoowjgU4u49pJeNY6I+g/oELOp6oVVneFM2je55y/4Bioacl5461fQYgLgdZ9efpngdYrpSU8ulGDI/Ylc9h5JFo/WLsV00arFxsRBYxWTTkBRdOgJIBiMY98SkIKO3H3sQLymahxQx207biURuqwgsGkkQehbcSjW0aDtXD1YzicMPfdkNnyjvTjgKOVFcXGxGEcu4Sb1DMzM5iZncV73vMeLFsGrH3ve/HBD34QK5avwAUxC0DCipUrIEnLMDs7i5mZWVwIGqiRxKCSAKzKl4dI/wEIdRMyUbPXRJIgFXtwwDew108PQLUHRpIgPboR2lxbzn6Sg0Yr1tzH9iObgrWoI/1YX5SqPUKbVHjWMW1K6eq63mUCGC1hM1g3uj7q5X0O+WuWJIQQrU2SqNa3v/1t/P7v/367s4GTp97GW7/8FS5cuIALFwQuiAuV/4sLFzw/v7nzRly99r0+KeoY3RJFoVer3BD00S3Yjt2V96W0hBTUagu2lIZU7DHe2/6vj27ByPoD5kVeQloqAjIAHMbGwd3A9hGsP5BDsjSK0Wi/eRPVMZreh7tzZstHH8WWaKZhS0VWhc/NxNhvj8iZN3Xj+I7sdK1fShs38wNeLS53Gu3161//Gu9617talp4kSdC0Y3j99TeMYAxACKCjowMXZi+g8oEkQUBAgoTz589j3fXX4wM33wzecqlZDUd9E11KXnn1NRx96YgRhIUZoMUFo1v4gtk9DAHjXioAAcxcmPEN1EZ3t8ABpCFJeduSKKQMACSgaALqiAQpbQvW+RSkfAKKssk7o2bLdneuH1p6C45VF2D02Hr0I40t+wZx4O59OLJxPbAlbQTxSD8OqEcqwb+UllDsEcglS0hvOYbBA/3A6BaM1C0lozWc9GuIWN2iWs5WOSigVzNbYPoxHAbQU3cfF7e3T7+DD33oQ2bQFTCis0EA6JAkCCNiVwJzR0dHO7JKlwAGalpS3nj9DfzLP38bZ8+exblz5yqv8+fPG92ZMzOYnZ3F27e8jZUvrIQQApn/8RDiH77FM71kTpitxhyEyAGobVEbiwUEdIxukcyubGEGtVEUjhirRPoPIGetrx1BeVMPIgA0lJGJRgHIUEZHgLtzQATY9Og+jB45gp5cP3AkhUdHB5Gcd19lEj1yCkUNsDeV8ykJlWpIQoEmcv7PLrUjKDfoZr3Ybb5lc7uzQEvI/wejM7c7uM05cwAAAABJRU5ErkJggg==

再尝试
(vl-cmdf"netload"(findfile "xty-get-mousepoint.dll"))
(setq obj(vlax-create-object(findfile "xty-get-mousepoint.GetCursorPos")))
但是也不成功,哪位大佬指导一下啊,谢谢


d1742647821 发表于 2024-5-27 17:18:33

什么版本的cad

夏生生 发表于 2024-5-27 17:30:55

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

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

brainstorm 发表于 2024-5-28 20:46:56


using System.Drawing;
using System.Runtime.InteropServices;


namespace MousePositionTest
{
   
    public partial class MouseHelper
    {
      
      static extern bool GetCursorPos(out Point lpPoint);
      static Point GetMousePosition()
      {
            Point mousePos;
            GetCursorPos(out mousePos);
            return mousePos;
      }
      
      public static ResultBuffer GetCursorPos1(ResultBuffer rb)
      {
            GetCursorPos(out Point lpPoint);
            ResultBuffer rtn=new ResultBuffer();
            rtn.Add(new TypedValue((int)LispDataType.Int16, lpPoint.X));
            rtn.Add(new TypedValue((int)LispDataType.Int16, lpPoint.Y));
            return rtn;

      }
    }
}



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

夏生生 发表于 2024-5-29 00:20:49

本帖最后由 夏生生 于 2024-5-29 00:30 编辑

brainstorm 发表于 2024-5-28 20:46
这样可以的,netload编译后的文件,(GetCursorPosistion)可以作为内部函数找色
非常感谢您的帮助,但不知为何我没有成功
是否因为我不会编译?
文件夹里生成了dll文件,而且没提示错误,netload也成功,但是提示没有函数
(vl-cmdf "netload"(findfile"ClassLibrary2.dll"))
(GetCursorPosistion)




brainstorm 发表于 2024-5-29 16:34:47

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

夏生生 发表于 2024-5-29 19:13:09

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

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

你有种再说一遍 发表于 2024-5-30 19:48:13

修改框架,用net standard,直接参考ifox的.csproj文件
页: [1] 2
查看完整版本: 哪位大佬帮忙写个alisp可调用的dll,获取鼠标屏幕坐标