[求助]：一直没有办法解决的问题!!!

挚友

(setq pnt (grread 1))  
  (cond ((= (car pnt) 5)
实时提取屏幕坐标的程序，将鼠标指针移动工具栏点击屏幕缩放时，程序将意外终止，如何解决..

yxpxa

据我所知，无法解决。

dandee

可以解决 。
首先需要知道按工具栏时的 grread  的返回代码 (11 xxxx)， 给出 出现这种情况时 ...((=  pnt (11 xxxx)...
， 程序如何执行。

(defun c:dd3()(PRINC (setq key (grread)))(princ))

这个小程序可以判断鼠标或键盘做出的动作时  grread返回的代码 。

如果只是需要屏幕放大缩小 ， 滚动鼠标中轮  ， 无级放大缩小 ， 更方便 。

挚友

按上述方法试了，可以实现了，就是有一点没搞明白，当返回代码11时，也就是AUXn菜单的按钮号，在不同的版本返回的值不同，主要是AUXn项没搞明白，例如“平移”返回是1715，1715与“平移”是怎么对应的，1715是acad.mns中对应的行号吗?

dandee

建议楼主好好研究一下grread函数的用法说明，help里有具体说明

挚友

已经看了grread函数的相关介绍，就是还没搞明白返回来的数值（1715)与“平移”的对应关系，还有一个就想问是的，要实时平移，用命令(command "pan" )时要提示两点，并不是在绘图区出现“小手”，如何解决，请赐教....

dandee

11   AUX menu item
0 to 999            AUX1 menu button no.
1000 to 1999    AUX2 menu button no.
2000 to 2999   AUX3  menu button no.
3000 to 3999  AUX3 AUX4 menu button no.

grread 返回数值（1715) 与“平移” 没有 对应关系。  1715只是 按钮号码  button no.
你也可以自定义1715 按钮 为 其他的 acad命令

至于 pan  仍然直接用鼠标 (除非你关闭鼠标中键功能)
按   鼠标中键(中轮)会 执行 pan ，
滚动     中轮     会 执行 zoom .。 作用极强

另外 grread函数  还不支持鼠标中键， 所以鼠标中键没有grread的返回数值

挚友

***BUTTONS1
$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,5),GRIP_),$P0=ACAD.GRIPS $P0=*);
$P0=SNAP $p0=*
^C^C
^B
^O
^G
^D
^E
^T
***AUX1
$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,5),GRIP_),$P0=ACAD.GRIPS $P0=*);
$P0=SNAP $p0=*
^C^C
^B
^O
^G
^D
^E
^T
看了有关资料，知道AUX1鼠标按键的相关定义，但还是搞不明grread返回的1715(移动)是在什么地方定义的，还有就是时R14下不能用鼠标滑轮进行屏幕的放大及缩小，这又在上一段代码中如何修改，不好意思，帮人帮到底啊，本人真有点搞不明白了。。。谢谢

亲朋

ding