storyst 发表于 2005-12-27 08:32:00

救助:在VBA中怎么实时获取鼠标在CAD屏幕上点选位置的坐标值?

在VBA中怎么实时获取鼠标在CAD屏幕上点选位置的坐标值

BigJue 发表于 2005-12-27 15:07:00

这个好像比较麻烦吧，似乎需要用钩子函数来解决。请问你要知道坐标位置的目的是什么？如果要得到选择的对象的话可以用选择集的

storyst 发表于 2005-12-29 08:33:00

<P>我原来做过的,可是现在一点都想不起来了,而且原来的代码现在也不知道放到哪去了.我是要通过选择的点坐标来进行数值计算的.</P>

daziduan 发表于 2005-12-29 14:13:00

也对这个技术感兴趣，感叹啊，能够把cad技术帮助通览，把握大方向的人没有几个啊。

tiger8888 发表于 2005-12-29 18:44:00

<P>这好像是VBA的著名难题了</P>

wxchenlin 发表于 2005-12-31 11:20:00

<P>Private Sub cmdPick_Click()<BR>&nbsp;&nbsp; Dim PtPick As Variant<BR>&nbsp;&nbsp;&nbsp; UserForm1.Hide<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PtPick = ThisDrawing.Utility.GetPoint(, "选择点")<BR>&nbsp;&nbsp;&nbsp; txtInsertX.Text = PtPick(0): txtInsertY.Text = PtPick(1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; UserForm1.Show<BR>End Sub</P>
<P>不知道是不是这段</P>

storyst 发表于 2005-12-31 14:04:00

<P>谢谢６楼，以前好象也是这么做的.</P>
页: [1]
查看完整版本: 救助:在VBA中怎么实时获取鼠标在CAD屏幕上点选位置的坐标值?