[求助]：怎么在VBA里获取当前光标坐标！

huangxy1

版主请教一下怎么在VBA里获取当前光标的坐标？舍命求助！

adisonmaster

可以利用Vlax类（Vlax类在前页可以下载）
在VBA中引入Vlax类后，再建立以下函数，使用时调用此函数即可，
注意返回值为一数组（四个数据），
前三个数据表示x，y，z坐标，最后一个数据表示鼠标状态
Function GetMousePoint() As Variant
'功能：返回当前鼠标状态
'Vlax类请小心使用，该函数可能使AutoCad崩溃
'返回值：一维数组
'返回x，y，z，－1表示按下鼠标左键
'返回0，0，0，1表示按下鼠标右键
'返回x，y，z，0表示当前鼠标坐标
On Error GoTo ErrClear
Dim obj As VLAX
Dim pRetVal(3) As Double, retval
Set obj = New VLAX
obj.EvalLispExpression ("(setq a (grread t) b (car a) c (cadr a))")
Select Case obj.GetLispSymbol("b")
Case 3
retval = obj.GetLispList("c")
pRetVal(0) = retval(0)
pRetVal(1) = retval(1)
pRetVal(2) = retval(2)
pRetVal(3) = -1
Case 5
retval = obj.GetLispList("c")
pRetVal(0) = retval(0)
pRetVal(1) = retval(1)
pRetVal(2) = retval(2)
pRetVal(3) = 0
Case Else
pRetVal(3) = 1
End Select
GetMousePoint = pRetVal
ErrClear:
Set obj = Nothing
End Function

huangxy1

非常感谢！！

wangyangdh

真是好东西啊,爽!!!

lzgzcy

真的是高手啊！

lgmandy

高手，佩服

wuyunpeng000

真正的VBA光标事件的DLL在VBA　QQ群里有

ZHB8

adisonmaster 发表于 2005-6-10 12:11
可以利用Vlax类（Vlax类在前页可以下载）
在VBA中引入Vlax类后，再建立以下函数，使用时调用此函数即可，
...

怎么利用Vlax类呀来个详细的代码可以不