cad vba 如何获取文字的坐标和内容！

dim obj1 as AcadText

dim a(2),b(2) as double

dim b as integer

dim d as string

obj1=

with obj1

a=InsectionPoint

b=TextAlignmentPoint

c=Alignment

d=TextString

end with

大体应该这么写吧

不知道楼主是不是做截屏。

获取指定坐标显示代码：

这里需要用到winodws中的API函数

[DllImport("user32dll")]

public static extern bool GetCursorPos(ref POINT p_Point);

[StructLayout(LayoutKindSequential)]

public struct POINT

{

public int x;

public int y;

}

public void GetPoint(){

POINT _Point = new POINT();

GetCursorPos(ref _Point);

_Pointx //X轴坐标

_Pointy; //Y轴坐标

thislabel1Text = "X= " + _Pointx + "Y=" + _Pointy; //输出效果。

}

获取整个屏幕的分辨率的代码，不过可能会有些偏差，把下面的任务栏没算进去。

Rectangle rect = new Rectangle();

rect = ScreenGetWorkingArea(this);

rectWidth //宽

rectHeight//高

希望能帮上楼主，还有什么问题可以HI我。

思路是这样的，把绘制的每个区域抽象成单独的对象，每个对象中可以储存各自的信息(比如title, content, position等)，每个对象中都包含各自的判断点是否在当前对象区域内的判断函数，这样就可以知道点到了哪个对象，也可以拿到对象内的数据， 触发相应的事件。

这样说可能不太直观，你可以看一下我封装好的一个库。

>

以上就是关于cad vba 如何获取文字的坐标和内容！全部的内容，包括:cad vba 如何获取文字的坐标和内容！、如何使用c#在屏幕上制定坐标显示文字，然后擦出文字如何获取整个屏幕的长和宽、canvas怎么根据坐标获取上面的内容等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！