[原创]如何判断鼠标左右键的按下和弹起？（已解决）

tengte

　　想在程序中实现“单击选择单个对象，按下左键不放拖动为框选（左键弹起时结束）”，但不知道如何判断鼠标左右键的按下和弹起状态？使用grread能获取左键按下和右键弹起的消息，而左键弹起和右键按下时，该函数没有任何反应。请问高手有没有解决方案？谢谢！！

飞诗(fsxm)

做个dvb文件，供lisp调用.简单可行可靠

tengte

请楼上说详细点好嘛！我不太懂VB编程。

ljttjl

修改系统变量pickdrag  即可。

hb_xiaofen

gread()函数可以，你看看cad的帮助文件吧

tengte

楼上两位可能没有理解我的意思，可能是我没有表达清楚，我主要是要判断鼠标左右键的按下和弹起状态，修改系统变量pickdrag 虽然能实现“单击选择单个对象，按下左键不放拖动为框选（左键弹起时结束）”，但不能满足我在程序中“单击选择单个对象”（指选择一个对象后就自动结束选择，继续执行程序）。也就是说我想在程序中实现：根据选择方式的不同（单击或框选），自动认别是选择单个对象或多个对象。

ljttjl

用(ssget)选择集函数，不带参数使用，你试试看能否满足要求。

tengte

谢谢！(ssget)我用过，但不满足要求。我的重点还是在“判断鼠标左右键的按下和弹起状态”。

飞诗(fsxm)

下面的代码放在dvb文件中

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Public Sub Test()
    ThisDrawing.SetVariable "USERI1", GetAsyncKeyState(&O1)  '左=&O1 右=&O2
End Sub

下面的是Lisp,取得左键状态。

(vla-RunMacro *acad* "工程名.模块名.Test")
(getvar "USERI1")

tengte

谢谢版主，这个思路不错，也能查询所有键盘按键和鼠标键的状态。我也用这种思路做了一个dll文件，注册后用函数(vlax-create-object)和(vlax-invoke-method)，能查到鼠标左键的按下和弹起状态，但左键弹起的消息无法及时捕获，也就无法在程序中及时响应。不知道版主有没有什么好的思路，能解决这个问题？