获取鼠标坐标Acad 2k8
嗨，有没有办法找到老鼠的合作伙伴。在2k8上
桑德罗
**** Hidden Message ***** 您可能会看到一些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
页:
[1]