乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 101|回复: 5

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

[复制链接]

21

主题

149

帖子

11

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
231
发表于 2014-2-12 11:13:00 | 显示全部楼层 |阅读模式
请问C#有办法实现lisp中grread的功能吗 或者部分功能
比如一段程序,即能实时获取鼠标坐标也能同时获取键盘按键,根据键盘不同按键实时运行不同子程序
按键盘的时候不需要空格确认 按键之后直接运行子程序
回复

使用道具 举报

75

主题

306

帖子

10

银币

中流砥柱

Rank: 25

铜币
606
发表于 2014-2-19 09:23:00 | 显示全部楼层
用事件监控啊
回复

使用道具 举报

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2014-2-21 11:02:00 | 显示全部楼层

  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

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

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

使用道具 举报

21

主题

149

帖子

11

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
231
发表于 2014-3-18 15:14:00 | 显示全部楼层

谢谢 请问能改成C#吗?
回复

使用道具 举报

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2014-3-18 16:01:00 | 显示全部楼层
到这个地址下载,C#当然也可以调用了。
回复

使用道具 举报

1

主题

10

帖子

3

银币

初来乍到

Rank: 1

铜币
14
发表于 2020-5-15 16:34:00 | 显示全部楼层
我也正研究这个问题,但才疏学浅,有没有高手简单写写,,谢谢,,
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2024-11-22 01:25 , Processed in 0.375907 second(s), 64 queries .

© 2020-2024 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表