TA的每日心情 | 奋斗 2019-11-20 15:07 |
---|
签到天数: 1 天 [LV.1]初来乍到
|
部分命令可以参考9 N$ d s7 R0 ]' O W. t7 ~
( t4 c5 n! p8 l9 Z
9 H4 X% C1 w% v1 U+ c/ ]/ V" eBindMenu = 0
& H X# V6 S, M8 p( d; E7 eBindAccelerator = 1
0 I* e, P) y( G- Z* nBindCommand = 12 e' ?* G" |/ y. l/ l3 X; Y/ B
/ V5 D9 \% l6 TSet keyBindTables = Gui.Bindings("Document")
7 D2 v: O6 q# W5 l$ j4 S4 k' S$ X/ ~8 n
' Bind the menu command to a key
1 d& z- u' M3 l) F
" U* [- z: d/ j( HkeyBindTables.AddKeyBinding "Z", "Edit->FixLock->Fix", BindMenu, BindAccelerator
. ]0 w( m% V2 O! s1 z* d1 gkeyBindTables.AddKeyBinding "SPACE", "Route->Edit Routes->Change Width", BindMenu, BindAccelerator
3 }5 M# a) D1 l2 W: o. k3 g0 e6 |" skeyBindTables.AddKeyBinding "D", "Edit->FixLock->Unfix", BindMenu, BindAccelerator& F. M1 V- ?4 j% S2 J
keyBindTables.AddKeyBinding "Q", "Edit->FixLock->Lock", BindMenu, BindAccelerator+ Q( r: \( @3 ~" {
keyBindTables.AddKeyBinding "W", "Edit->FixLock->Unlock", BindMenu, BindAccelerator; Z- X6 j2 T# `9 q" |, A/ a' B
keyBindTables.AddKeyBinding "S", "Edit->FixLock->Semi Fix", BindMenu, BindAccelerator
7 l; G" l- z6 h: T- s$ @+ j'keyBindTables.AddKeyBinding "Space", "Route->Edit Routes->Change Width", BindMenu, BindAccelerator
. W. y4 @4 J, B2 n! g- w/ XkeyBindTables.AddKeyBinding "G", "Route->Edit Routes->Gloss", BindMenu, BindAccelerator
& h& `9 Q- R4 ckeyBindTables.AddKeyBinding "P", "Planes->Plane Shape", 0 , 1& q& W2 }4 n( H3 x! Y
keyBindTables.AddKeyBinding "X", "run c:\iAT\ChangeMode.vbs", BindCommand, BindAccelerator
( l0 e$ J1 V8 v" S! |keyBindTables.AddStrokeBinding "357", "Route->Edit Routes->Change Width", BindMenu, BindAccelerator
" L! I b$ D ]" P7 [keyBindTables.AddKeyBinding "F4", "run c:\iAT\testkey.vbs", BindCommand, BindAccelerator
% [7 K# I5 P* MkeyBindTables.AddKeyBinding "R", "run c:\iAT\plow.vbs", BindCommand, BindAccelerator! W) B$ k' C6 g7 }4 @6 H1 x
keyBindTables.AddStrokeBinding "1236987", "Draw->Rule Area", BindMenu, BindAccelerator
6 i3 ~8 Y/ o# V- v$ v8 C+ dkeyBindTables.AddKeyBinding "U", "SmartUtilities->FatTrace->FatTrace Edit", BindMenu, BindAccelerator
% s7 b% a9 P0 E/ _( vkeyBindTables.AddKeyBinding "M", "Edit->Move", BindMenu, BindAccelerator
# ^6 O' `9 I, akeyBindTables.AddKeyBinding "c", "Edit->Delete", BindMenu, BindAccelerator
7 k. f, } T: D- }- E8 l8 h' ^9 o0 b1 H( r- h4 J/ q& U& \ J0 _, j
|
|