TheSwamp
Code Red => VB(A) => Topic started by: migliosa on August 16, 2007, 09:02:48 AM
-
Hi,
is there any way to get mouse coord. on 2k8 ?
So far, I used mousetracker.dll but I was not able to find a new release.
thanks a lot
sandro
-
There's a couple of Apis you might look at. The below sub adds points but in the opposite direction.
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