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

storyst

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

BigJue

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

storyst

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

daziduan

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

tiger8888

这好像是VBA的著名难题了

wxchenlin

Private Sub cmdPick_Click()
   Dim PtPick As Variant
    UserForm1.Hide
        PtPick = ThisDrawing.Utility.GetPoint(, "选择点")
    txtInsertX.Text = PtPick(0): txtInsertY.Text = PtPick(1)
        UserForm1.Show
End Sub

不知道是不是这段

storyst

谢谢６楼，以前好象也是这么做的.