[编程申请]：求增强的透明命令“pan”

pxt2001

1. 
   
2. [color=blue]按下方向键up，执行以下平移效果[/color]
   
3. command:'-pan (trans (list 0 (* 0.4 (getvar "viewsize"))) 0 1)↙↙<代表回车>
   
4. [color=blue]按下方向键down，执行以下平移效果[/color]
   
5. command:'-pan (trans (list 0 (* -0.4 (getvar "viewsize"))) 0 1)↙↙
   
6. [color=blue]按下方向键left，执行以下平移效果[/color]
   
7. command:'-pan (trans (list (* -0.4 (getvar "viewsize")) 0) 0 1)↙↙
   
8. [color=blue]按下方向键right，执行以下平移效果[/color]
   
9. command:'-pan (trans (list (* 0.4 (getvar "viewsize")) 0) 0 1)↙↙
   

复制代码

哪位高手，能用arx实现上述。
在按键盘up,down,left,right键时,分别向上，下，左，右方向平移视图，效果如同在cad2004中执行滚轮缩放视图一样，命令是透明的。

zhang2380

容易实现，我以前发过一个用TAB移动视图的ARX程序，是用SAMPLE下的例子改的，稍微修改一下就能达到你的要求
汗，代码不在这里，传一个好用的
适用2004/2005/2006

pxt2001

zhang2380兄，能否将你的好东西传上来，大家分享。
平移视图，我一直是用autohook定义快捷键实现，
因为它不是透明命令，在执行lisp程序过程中，不能平移视图。

以前在cad14中，中键滚轮是不能缩放的，加载了“李国杰”老师的asdehk后才能实现，cad2000以后，cad就自带了中键滚轮缩放功能，期待哪位大侠能将平移视图功能弄出来。

pxt2001

最初由 zhang2380 发布
[B]容易实现，我以前发过一个用TAB移动视图的ARX程序，是用SAMPLE下的例子改的，稍微修改一下就能达到你的要求
汗，代码不在这里，传一个好用的
适用2004/2005/2006 [/B]

附件下载不了，麻烦发给邮箱：pxt2001@sina.com.cn

whsmh320

下载不了, 邮箱:whsmh320@126.com