请问C#有办法实现lisp中grread的功能吗

print1985

请问C#有办法实现lisp中grread的功能吗 或者部分功能
比如一段程序，即能实时获取鼠标坐标也能同时获取键盘按键，根据键盘不同按键实时运行不同子程序
按键盘的时候不需要空格确认 按键之后直接运行子程序

guohq

用事件监控啊

efan2000

1. Dim track As Integer
   
2.         track = 1
   
3.         Dim t As Integer
   
4.         Dim result As ResultBuffer = New ResultBuffer
   
5.         Dim r As Integer
   
6.         While track <> 0
   
7.             r = mcnetarx.GlobalFunctions.AcedGrRead(track, t, result)
   
8.             If r <> 5100 Then
   
9.                 Exit While
   
10.             End If
    
11.             If t = 3 Then
    
12.                 track = 0End If
    
13.             If t <> 5 Then
    
14.                 Exit While
    
15.             End If
    
16.         End While

Dim track As Integer<br />         track = 1<br />         Dim t As Integer<br />         Dim result As ResultBuffer = New ResultBuffer<br />         Dim r As Integer<br />         While track <> 0<br />             r = mcnetarx.GlobalFunctions.AcedGrRead(track, t, result)<br />             If r <> 5100 Then<br />                 Exit While<br />             End If<br />             If t = 3 Then<br />                 track = 0End If<br />             If t <> 5 Then<br />                 Exit While<br />             End If<br />         End While

t=3是点击鼠标右键时返回的类型
t=5是返回鼠标位置的类型

1. Dim tvs() As TypedValue = result.AsArray()
   
2. If tvs(0).TypeCode = 5009 Then
   
3.     Dim p As Point3d = tvs(0).Value
   
4.     e.WriteMessage(p.X & ", " & p.Y & ", " & p.Z)
   
5. End If

Dim tvs() As TypedValue = result.AsArray()<br /> If tvs(0).TypeCode = 5009 Then<br />     Dim p As Point3d = tvs(0).Value<br />     e.WriteMessage(p.X & ", " & p.Y & ", " & p.Z)<br /> End If

如果类型码是5009，即RT3DPOINT，就是点的坐标值了。

调用库地址

print1985

efan2000 发表于 2014-2-21 11:02
t=3是点击鼠标右键时返回的类型
t=5是返回鼠标位置的类型
如果类型码是5009，即RT3DPOINT，就是点的坐标 ...

谢谢 请问能改成C#吗？

efan2000

到这个地址下载，C#当然也可以调用了。
http://bbs.mjtd.com/thread-109091-1-1.html

forever111

我也正研究这个问题，但才疏学浅，有没有高手简单写写，，谢谢，，