[下载]：单独的asde热键、滚轮缩放、中键平移等支持程序

liguojie

本程序提供热键：
        鼠标滚轮缩放
        中键拖动平移
        中键双击zoom e
        左键双击实体属性编辑
        alt+鼠标左键zoom w
        tab、~键缩放
如果您发现了错误或建议请通知作者


加载方法：释放相应版本到相应的acad的搜索路径中（如释放r14到autocad r14\support\,释放r2000到autocad2000\support\目录中），在acad的命令行执行下面语句：
(arxload"asdehk")
即可。或把上述语句加入到acad.lsp文件中，或在acad.rx文件中加入一行
asdehk
可保证每次启动acad时自动加载

应e2002兄建议，临时增加控制tab,~热键的开关，做法是如果你想关掉这两个热键，可以设置lisp变量asde_notusetabhk的值为1，也就是说如果你想在每次启动后都不让这两个热键起作用（主要是因为tab键autocad另有用处，是用来切换捕捉方式的），可以在acad.lsp里加上下面的语句：
(setq asde_notusetabhk 1)
如果你不在乎与标准acad的这点不兼容，则不需做任何改变

r14执行文件：

liguojie

最初由 liguojie 发布
本程序提供热键：
  鼠标滚轮缩放
  中键拖动平移
  双击中键zoom e
  左键双击实体属性编辑
  tab、~键缩放
如果您发现了错误或建议请通知作者
加载方法：释放相应版本到相应的acad的搜索路径中（如释放r14?..

r2000+执行文件：

mrbean13

加载后即使未修改任何东西也要问是否存盘，挺麻烦

liguojie

最初由 mrbean13 发布
加载后即使未修改任何东西也要问是否存盘，挺麻烦

我的程序都有这个问题，主要是在加载时作了点初始化工作。不过对于这个程序倒是可以去掉

柯寒

就是无提示注册和无初始化，那就更好了。

liguojie

最初由 柯寒 发布
就是无提示注册和无初始化，那就更好了。

肯定会不断改进的，要知道这个程序才刚诞生几天

柯寒

太好了，等你的好消息！

sugarsun

李兄，为何不加上和pkpm里的平移屏幕的功能呢？就是按住ctrl＋方向键，我觉得这个很方便阿！（我没中键）

liguojie

最初由 sugarsun 发布
李兄，为何不加上和pkpm里的平移屏幕的功能呢？就是按住ctrl＋方向键，我觉得这个很方便阿！（我没中键）

不用在这里加，只用在菜单文件里定义就行了。可以找一下我以前的贴子

sugarsun

[CONTROL+"UP"]^P'_-pan (trans (list 0 (* 0.2 (getvar "viewsize"))) 0 1) ;^P
[CONTROL+"DOWN"]^P'_-pan (trans (list 0 (* -0.2 (getvar "viewsize"))) 0 1) ;^P
[CONTROL+"LEFT"]^P'_-pan (trans (list (* -0.2 (getvar "viewsize")) 0) 0 1) ;^P
[CONTROL+"RIGHT"]^P'_-pan (trans (list (* 0.2 (getvar "viewsize")) 0) 0 1) ;^P
我把这个加到acad.mnu里，但是按住后移动的是鼠标，不是屏幕阿

liguojie

最初由 sugarsun 发布
[CONTROL+"UP"]^P'_-pan (trans (list 0 (* 0.2 (getvar "viewsize"))) 0 1) ;^P
[CONTROL+"DOWN"]^P'_-pan (trans (list 0 (* -0.2 (getvar "viewsize"))) 0 1) ;^P
[CONTROL+"LEFT"]^P'_-pan (trans (list (* ...

可能你没有加载这个菜单文件吧？先删掉acad.mnc文件，再执行menu命令加载acad.mnu试试

sugarsun

加载了，还是不行！

e2002

在菜单文件中的"***ACCELERATORS"这一节中定义的是加速键.
如何定义请看AutoCAD 的自定义参考文档，非常详细。
说明一点：这个功能从R13 for Windows就有了的。

   以下贴一段我自己的定义，请参考：
   注意是加在 acad.mns  文件中的  ***ACCELERATORS   这一节内的！
   其实从 R13_win 开始 mnu 文件就完全没有实际用处的了。

// add these lines to " ***ACCELERATORS " sector of "acad.mns" file
// e2002 2002/07/06

[CONTROL+"NUMPAD1"]'_zoom 1.25x
[CONTROL+"NUMPAD0"]'_zoom .8x
[CONTROL+"NUMPAD2"]'_zoom _e
[CONTROL+"NUMPAD4"]'_zoom _p
[CONTROL+"NUMPAD5"]'_dsviewer
[CONTROL+"DELETE"]'_zoom _w
[CONTROL+SHIFT+"A"]'_zoom 1.25x
[CONTROL+SHIFT+"S"]'_zoom .8x

[CONTROL+SHIFT+"Z"]^P'_-pan (trans (list (* -0.2 (getvar "viewsize")) 0) 0 1) ;^P
[CONTROL+SHIFT+"X"]^P'_-pan (trans (list (* 0.2 (getvar "viewsize")) 0) 0 1) ;^P
[CONTROL+SHIFT+"D"]^P'_-pan (trans (list 0 (* 0.2 (getvar "viewsize"))) 0 1) ;^P
[CONTROL+SHIFT+"C"]^P'_-pan (trans (list 0 (* -0.2 (getvar "viewsize"))) 0 1) ;^P

ID_ZoomWindo [CONTROL+"W"]
ID_ZoomExten [CONTROL+"E"]
ID_ZoomDynam [CONTROL+"D"]
ID_ZoomPrevi [CONTROL+"Q"]
ID_PanUp [CONTROL+"UP"]
ID_PanDown [CONTROL+"DOWN"]
ID_PanLeft [CONTROL+"LEFT"]
ID_PanRight [CONTROL+"RIGHT"]

ljb

今天装上asde热键程序，发觉asde14状态栏中的捕捉、栅格、正交……全部不能双击使用（热键可以），只要双击，屏幕向右上方移（图相对响左下方移）；在acad14下完全正常。
由于原来用热键多，不太注意，今天装上才注意，不知是否是asde热键程序的问题。
请指点！

liguojie

最初由 ljb 发布
今天装上asde热键程序，发觉asde14状态栏中的捕捉、栅格、正交……全部不能双击使用（热键可以），只要双击，屏幕向右上方移（图相对响左下方移）；在acad14下完全正常。
由于原来用热键多，不太注意，今天装上才注...

asde热键把空的双击定义为平移该点到屏幕中心了。由于2000+中状态栏不需要双击，没注意r14的。