|
|
右键菜单或快捷菜单，是包含在AutoCAD基础菜单组中的特殊菜单。这个菜单只在用户按住SHIFT键并点击鼠标右键时才出现。
( h8 j/ G" A7 W" W' e+ {: r7 m2 y4 D, h6 {: K
, Z2 {" u' j y0 s$ A. k在一个基础菜单组中，当一个菜单的ShortcutMenu属性为TRUE时，这个菜单就是快捷菜单。你可以遵循"为一个菜单添加新的菜单项"中列出的步骤为快捷菜单增加菜单项。 - o2 Y- n- j; M/ l) X( m
+ T, d$ p/ U3 N" d* g. r
$ U5 F) e: P, e7 U新的菜单组可能有也可能没有一个快捷菜单。要想为一个菜单组建立一个快捷菜单，须遵循"建立新菜单"一章中列出的指示，并且要把POP0做为这个新菜单的标签。 6 X; ]3 O/ e& n/ N, s+ @
+ e* q) {) I4 C: B
4 X |( P% r" ~+ Z
) Z' m) P W0 y& T3 m# v2 r1 z( d6 b以下示例如何在右键菜单的末尾新增菜单项"OpenDWG".
* ?7 x$ B Q \9 H- q" E9 G1 E( _# v ]% P- ?
7 [: m Z- R! t* L
Sub Ch6_AddMenuItemToshortcutMenu()
; j4 R) N9 K& p$ z t* o
% a7 |7 U [1 C; c* ^- h/ TDim currMenuGroup As AcadMenuGroup - S$ y( `! g7 [- q' x- G2 L# K) t
4 Q2 p( z# C S- D; [( _4 W1 r
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0) : x# V2 J$ @% K6 k5 F
3 p0 G1 e% b$ e5 L7 U! |: @
/ P; {7 u7 [+ ?+ [; E& ~0 n' f1 \+ P+ s7 o5 P; ~8 F$ k9 K# a
'找到快捷菜单并赋值它为shortcutMenu变量 2 p0 [0 k# ?; I @* _ ^
: j' I' N. B6 ~' w! E# S/ b
Dim scMenu As AcadPopupMenu 2 M% ^5 D" K M
! ]% y# t9 f" D$ `7 i4 E
Dim entry As AcadPopupMenu
# k9 K2 N4 H# |* I8 }+ o3 Z" e! K# S1 x& h
For Each entry In currMenuGroup.Menus 9 O: g; O! n7 Y3 b
* Q o+ c% h0 x3 M) x
If entry.shortcutMenu = True Then
/ s2 ?6 H/ K0 i8 ?1 j( D* `& r4 l9 g
4 Q) b3 e4 s# r2 W; b$ q$ S4 w YSet scMenu = entry
9 b" N+ i* c+ P' a9 m; |3 n9 E% b2 y- b1 Z2 O
End If
( _: u( c6 A7 m- |0 _! {3 q, V' y- _" \% A* H' t8 B
Next entry
/ Z3 E5 Q0 P8 d: B* H1 D
% r) W! h& K! x" N4 {$ I
- k8 A" P* }9 v) `
2 S* k" t& w% j$ n S' 在快捷菜单中增加菜单项
, z7 d) P$ f9 S" p8 v3 k
( Q" _& h2 e1 ^+ S7 hDim newMenuItem As AcadPopupMenuItem
3 G: K# F5 {6 X6 t
+ [- B. t; ~9 u% hDim openMacro As String
8 k( |+ x: _" e2 d2 t/ e' q: E) x# [7 K3 ]+ v) f" u' k" S
' 为宏赋值VBA表达式"ESC ESC _open " " a3 t- F, V& C
- f0 k g. Q' Z( a" S) U
openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32)
h5 M5 m P5 Q" {9 B% d g8 e6 ]) |
3 C1 ]3 _* ]( B- K$ I
Set newMenuItem = scMenu.AddMenuItem _
" R( F9 I$ m( E. W* l
4 i+ R1 z( Y, D; S) l0 ^% i/ m("", Chr(Asc("&")) _
2 D$ X7 Y' c( i' c5 r
0 \) n4 g0 b& ]+ "OpenDWG", openMacro) * r7 r: r7 n' O$ ~ @2 y! l7 g
1 P( I* K! b5 `
End Sub |
|
发表于 2006-5-7 21:53