[试用]：asdehk热键、鼠标支持程序

liguojie

Fn和ALT+Fn的问题很快就可以搞定。不过强烈建议不要改变acad系统已经定义过的热键，虽然用asdehk可以轻易的改变。
移屏还是不要去掉ctrl，理由同上，因为这些键可以用来编辑命令行。
鼠标中键同2000+保持一致定义为pan，如果想弹出中键菜单，就必须关掉该功能。
r14下的十字丝我没办法关掉。我已经试过各种方法了：（。

liguojie

最初由 杨少 发布
又有问题啦!
我单独定义了 "F4" 热键后, 发现 Alt+F4 也变成了该热键,
后来我又试了 F1~F12 ,发现只有 F6 没有问题,其他的都一样,
看来又要麻烦李兄了.

此问题已经更正。原来应该是都有这个问题的

mrbean13

侠辣框中无~这个键，就是tab上面那个键

liguojie

漏了：（
不过该键已经随同tab键一起被定义为缩放了。可由 tab缩放 复选框改变其开关状态

mrbean13

最初由 liguojie 发布
漏了：（
不过该键已经随同tab键一起被定义为缩放了。可由 tab缩放 复选框改变其开关状态

了解！：）
不过有时候我想去掉tab缩放自己定义tab和~，5555....

e2002

建议在ASDE中的mads.arx中去掉TAB和~缩放,否则即使在asdehk.arx中设置了取消,还是....

liguojie

最初由 e2002 发布
建议在ASDE中的mads.arx中去掉TAB和~缩放,否则即使在asdehk.arx中设置了取消,还是....

我这儿已经用的是取消过的了，只不过还有许多别的东西要改动，所以asde还不能现在更新。

杨少

好像非世界坐标系的问题还没有解决,小弟近日研究得采取如下方法可在非世界坐标系中用其他热键代替有问题的 "Tab" 和 "~" 键:
先将下列程序保存为 Lisp 文件,在 AutoCAD 中加载,再用 hkcfg 定义两个热键,例如:
"F4" 定义为 "'zoom w (qq 1) "
"F5" 定义为 "'zoom w (qq 0) "
则 F4 和 F5 就可以透明地执行以光标为中心的放大和缩小功能,
而 "Tab" 和 "~" 键在非世界坐标系中是做不到的,不知李兄可否从中得到启发,修正程序.

2. 
   
3. (defun qq (aa / wincorner p1 d1 d2 w1 w2 d11 d22 w11 w22 a1 a2 sca)
   
4.   (defun *fffppp (/ y1 y2 y3 y4 y5);返回屏幕的左下角和右上角
   
5.     (setq y1 (getvar "screensize"))
   
6.     (setq y3 (/ (car y1) (cadr y1)))
   
7.     (setq y1 (getvar "viewctr")
   
8.           y2 (getvar "viewsize"))
   
9.     (setq y4 (list (- (car y1) (* (/ y2 2) y3)) (- (cadr y1) (/ y2 2))))
   
10.     (setq y5 (list (+ (car y1) (* (/ y2 2) y3)) (+ (cadr y1) (/ y2 2))))
    
11.     (list y4 y5)
    
12.   )
    
13.   (setq wincorner (*fffppp))
    
14.   (setvar "cmdecho" 0)
    
15.   (setq w1 (car wincorner) w2 (cadr wincorner))
    
16.   (setq p1 (cadr (grread t)))
    
17.   (setq a1 (angle p1 w1) a2 (angle p1 w2))
    
18.   (setq d1 (distance p1 w1) d2 (distance p1 w2))
    
19.   (setq sca 0.8);放大系数
    
20.   (if (= aa 1)
    
21.     (setq d11 (* d1 sca) d22 (* d2 sca))
    
22.     (setq d11 (* d1 (/ 1 sca)) d22 (* d2 (/ 1 sca)))
    
23.   )
    
24.   (setq w11 (polar p1 a1 d11))
    
25.   (setq w22 (polar p1 a2 d22))
    
26.   (command w11 w22)
    
27.   (princ)
    
28. )
    

<br /> (defun qq (aa / wincorner p1 d1 d2 w1 w2 d11 d22 w11 w22 a1 a2 sca)<br />   (defun *fffppp (/ y1 y2 y3 y4 y5);返回屏幕的左下角和右上角<br />     (setq y1 (getvar "screensize"))<br />     (setq y3 (/ (car y1) (cadr y1)))<br />     (setq y1 (getvar "viewctr")<br />           y2 (getvar "viewsize"))<br />     (setq y4 (list (- (car y1) (* (/ y2 2) y3)) (- (cadr y1) (/ y2 2))))<br />     (setq y5 (list (+ (car y1) (* (/ y2 2) y3)) (+ (cadr y1) (/ y2 2))))<br />     (list y4 y5)<br />   )<br />   (setq wincorner (*fffppp))<br />   (setvar "cmdecho" 0)<br />   (setq w1 (car wincorner) w2 (cadr wincorner))<br />   (setq p1 (cadr (grread t)))<br />   (setq a1 (angle p1 w1) a2 (angle p1 w2))<br />   (setq d1 (distance p1 w1) d2 (distance p1 w2))<br />   (setq sca 0.8);放大系数<br />   (if (= aa 1)<br />     (setq d11 (* d1 sca) d22 (* d2 sca))<br />     (setq d11 (* d1 (/ 1 sca)) d22 (* d2 (/ 1 sca)))<br />   )<br />   (setq w11 (polar p1 a1 d11))<br />   (setq w22 (polar p1 a2 d22))<br />   (command w11 w22)<br />   (princ)<br /> )<br />

杨少

在非世界坐标系下,预定义的 "CTRL+→" 等应定义为
'-pan (list (* 0.2 (getvar "viewsize")) 0)  
更合适(不用 trans 函数),而该定义同样适用于世界坐标系,所以预定义的命令应该就这样定义就行了.

liguojie

多谢指点。我研究后如果可行将尽快更新。不过由于在热键中使用了向命令行发送消息的方法（这样命令行会出现命令过程，可以在历史纪录中回朔），而tab,~,鼠标滚轮缩放均使用了在钩子中调用自定义的缩放函数，而在钩子中对arx函数的使用是有限制的，所以无法直接使用zoom命令。问题就出在自定义的缩放函数上。

yuyuyu

为什么我将中键单击、中键移屏前的勾去了，确定后，重新进入对话框，勾构又加上呢，怎么取消了。

liguojie

最初由 yuyuyu 发布
为什么我将中键单击、中键移屏前的勾去了，确定后，重新进入对话框，勾构又加上呢，怎么取消了。

你是什么时候下载的？估计是最早贴上来的吧。麻烦再下一次吧。不过不久还会更新的（好在文件都不大，要不然我肯定被没用宽带的朋友骂死）……

yuyuyu

干脆等最新的：)^_^
东东很受欢迎呀。等你更好的东西。

yuyuyu

干脆等最新的：)^_^
东东很受欢迎呀。等你更好的东西。

杨少

还没有新版本啊?不过我不急,还是先帮我看看这份图有什么问题吧,打开图后,使用鼠标滚轮,图形不知往哪里跑了(世界坐标系).