TA的每日心情 | 奋斗 2019-11-20 15:07 |
---|
签到天数: 1 天 [LV.1]初来乍到
|
部分命令可以参考+ S z! P2 G) R7 H' R( C& X+ A
; C1 h) Z" ?, n7 k3 ] w8 t
: c0 v) H3 a; i5 TBindMenu = 0
6 P6 J) E$ N/ J B- Q/ SBindAccelerator = 1
, J% W1 n$ v" o' h9 @: |BindCommand = 1
, N8 s" c! k7 [, l+ T4 W; b @9 N" ^1 Q ?( |: y. c
Set keyBindTables = Gui.Bindings("Document")
1 ?- g- O/ L M9 ^, I5 u i3 h8 ~# Z$ n
' Bind the menu command to a key
# a, E( B7 U. Q, _. f, q! _5 A/ u8 Y s0 i
keyBindTables.AddKeyBinding "Z", "Edit->FixLock->Fix", BindMenu, BindAccelerator4 {9 k9 m5 t& q6 j9 }
keyBindTables.AddKeyBinding "SPACE", "Route->Edit Routes->Change Width", BindMenu, BindAccelerator
( [) q* M/ w5 c3 f/ P' ~keyBindTables.AddKeyBinding "D", "Edit->FixLock->Unfix", BindMenu, BindAccelerator0 ^' B! S6 C% L* N
keyBindTables.AddKeyBinding "Q", "Edit->FixLock->Lock", BindMenu, BindAccelerator: e. m8 B! F8 t# t: b; t& t
keyBindTables.AddKeyBinding "W", "Edit->FixLock->Unlock", BindMenu, BindAccelerator
- D1 j7 V- `; ckeyBindTables.AddKeyBinding "S", "Edit->FixLock->Semi Fix", BindMenu, BindAccelerator
3 f2 N$ `7 Y9 [% S& }& D'keyBindTables.AddKeyBinding "Space", "Route->Edit Routes->Change Width", BindMenu, BindAccelerator
y3 e$ P# i! J& kkeyBindTables.AddKeyBinding "G", "Route->Edit Routes->Gloss", BindMenu, BindAccelerator
; q' z# L- D4 |" WkeyBindTables.AddKeyBinding "P", "Planes->Plane Shape", 0 , 1- ^1 K; J: A/ ?' V( t
keyBindTables.AddKeyBinding "X", "run c:\iAT\ChangeMode.vbs", BindCommand, BindAccelerator) I! j: O: ]; B& g
keyBindTables.AddStrokeBinding "357", "Route->Edit Routes->Change Width", BindMenu, BindAccelerator3 I" s; m) F; s
keyBindTables.AddKeyBinding "F4", "run c:\iAT\testkey.vbs", BindCommand, BindAccelerator
" m. ^% k; H$ R* t1 PkeyBindTables.AddKeyBinding "R", "run c:\iAT\plow.vbs", BindCommand, BindAccelerator
& i4 l4 r' \; z' B! v# AkeyBindTables.AddStrokeBinding "1236987", "Draw->Rule Area", BindMenu, BindAccelerator
6 b5 s( X* V2 i( LkeyBindTables.AddKeyBinding "U", "SmartUtilities->FatTrace->FatTrace Edit", BindMenu, BindAccelerator$ Q( R { Y! N% Q
keyBindTables.AddKeyBinding "M", "Edit->Move", BindMenu, BindAccelerator
, `& z8 W4 j6 G$ xkeyBindTables.AddKeyBinding "c", "Edit->Delete", BindMenu, BindAccelerator; h$ x# I! }: b d1 J
$ \3 I$ D4 W* ]5 ^2 [! H
|
|