社区 › VB › 获取鼠标坐标Acad 2k8

Bryco 发表于 2007-8-16 09:02:48

获取鼠标坐标Acad 2k8

嗨，有什么方法可以让鼠标协调吗。在2k8上
到目前为止，我用的是捕鼠器。但我无法找到新版本
非常感谢桑德罗

吹牛 发表于 2007-8-16 23:05:43

有#039；这是几个API，你可以看看。下面的子项添加了点，但方向相反Declare Function SetCursorPos& Lib "user32" (ByVal X As Long, ByVal Y As Long)
Type POINTAPI
    X As Long
    Y As Long
End Type
Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long
Private Declare Sub sapiSleep Lib "kernel32" _
      Alias "Sleep" _
      (ByVal dwMilliseconds As Long)
Sub XC()
    Dim i As Integer
    Dim Pt As AcadPoint
    Dim P(2) As Double
    For i = 1 To 5
      sapiSleep (500)
      Dim cpos As POINTAPI
      GetCursorPos cpos
      P(0) = cpos.X: P(1) = cpos.Y
      Set Pt = ThisDrawing.ModelSpace.AddPoint(P)
      Pt.Update
    Next
End Sub

查看完整版本: 获取鼠标坐标Acad 2k8