|
|
右键菜单或快捷菜单，是包含在AutoCAD基础菜单组中的特殊菜单。这个菜单只在用户按住SHIFT键并点击鼠标右键时才出现。
4 I0 e H$ G+ E" }3 m$ c. t. f$ B: D: ^% e
1 ?* K1 k8 b8 ]8 y/ h$ S. N) u' A5 e
在一个基础菜单组中，当一个菜单的ShortcutMenu属性为TRUE时，这个菜单就是快捷菜单。你可以遵循"为一个菜单添加新的菜单项"中列出的步骤为快捷菜单增加菜单项。 : L; P: s2 \" \& I
( Q) ^, F8 K1 A; @/ x, o2 J4 n3 j& i( \% K
新的菜单组可能有也可能没有一个快捷菜单。要想为一个菜单组建立一个快捷菜单，须遵循"建立新菜单"一章中列出的指示，并且要把POP0做为这个新菜单的标签。 3 I( J3 }% @0 U) b
% ]' V# Z( k- @! L, l* T; t( p8 m
' |# g1 q% p, Y
{5 C2 R4 c W$ s% _: |
以下示例如何在右键菜单的末尾新增菜单项"OpenDWG". 9 r i: q7 w' g% N
+ t# \; l! z5 C7 I5 {- t( ~9 G: C+ A" ?. {( n" q
Sub Ch6_AddMenuItemToshortcutMenu()
/ L( j! O0 x7 x' i, u, G# D
/ M5 k3 g/ p7 p1 z4 t3 {Dim currMenuGroup As AcadMenuGroup
+ H5 r b9 F% m" ~/ Y$ H3 C) V& b7 Q* O& |6 g7 C
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
+ W6 S7 A4 i. A$ r
( E4 B0 |& l# K! B- ~4 U' E
1 F# d# r2 ^1 r7 F& V' U$ L3 i. N
'找到快捷菜单并赋值它为shortcutMenu变量 % m, p- d+ }3 t* h
5 X2 }( U% i9 R
Dim scMenu As AcadPopupMenu . o. r. m5 U8 g1 n5 _2 e
9 [( n' f. x" ?3 m1 PDim entry As AcadPopupMenu
0 s2 K1 J7 @# }+ t) u5 B7 {/ J2 e5 |$ w% I7 G6 q5 a; B
For Each entry In currMenuGroup.Menus
9 M1 }9 G& h3 o( L, D9 U8 [0 T5 j7 I5 {: f1 Z3 c) Z% }
If entry.shortcutMenu = True Then , R5 u) @" Q" W: c: b* f' N
0 Y8 F! _2 i9 a, E( z
Set scMenu = entry 4 b+ G: y! W- |
8 g7 P' s2 S( ?$ f$ v2 |, IEnd If ! ~; }1 [& l* ^( x2 F6 F
) A! d0 I: z* H$ P
Next entry / N' G' R7 U: |1 I1 n/ [, U/ G
& L' }, n7 u$ X; E& X3 M
# Z4 a% a7 S5 k( A. @
( P7 S- p/ [: T( }1 j5 A. t
' 在快捷菜单中增加菜单项 n( I0 U* k1 e" r2 n
5 @& Q- E% l t& Y, I+ N+ |Dim newMenuItem As AcadPopupMenuItem : ]7 d4 z+ k* g# Q7 f; a8 X3 f
5 d1 o$ T! s2 s {4 G J8 W
Dim openMacro As String
3 B- w" n+ J7 W$ A3 h. u2 e' k5 Q' E3 w; w5 t6 S- V+ s/ \
' 为宏赋值VBA表达式"ESC ESC _open " * b1 ^) z4 X8 G/ p! f
B' ~1 J; W# n( g6 z
openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32) # s3 f. o% f' v2 T1 e
/ a3 w9 r3 N: b7 ?: p: M: M9 q' D; |
Set newMenuItem = scMenu.AddMenuItem _
0 m* C6 }7 U5 I7 e; l% J. Q% k/ O2 N' o' f
("", Chr(Asc("&")) _ / f, t6 q2 @( N6 {9 T5 l/ Y
3 r/ T& {$ `* v1 r3 Y
+ "OpenDWG", openMacro)
* ]1 Z$ ^& P5 F4 o# e4 W; @; z1 A+ m( b0 P6 q- K9 t
End Sub |
|
发表于 2006-5-7 21:53