|
|
右键菜单或快捷菜单，是包含在AutoCAD基础菜单组中的特殊菜单。这个菜单只在用户按住SHIFT键并点击鼠标右键时才出现。
4 z+ v* k3 A+ O( e z
% N* H8 b4 y2 n2 K+ h" Y3 x0 w" J' W8 o% ~% _
在一个基础菜单组中，当一个菜单的ShortcutMenu属性为TRUE时，这个菜单就是快捷菜单。你可以遵循"为一个菜单添加新的菜单项"中列出的步骤为快捷菜单增加菜单项。 ( H4 ]$ {+ k( B% ?! D
# k0 T% y( f8 _! K4 u5 j8 n# f
5 |7 [/ z# g& u新的菜单组可能有也可能没有一个快捷菜单。要想为一个菜单组建立一个快捷菜单，须遵循"建立新菜单"一章中列出的指示，并且要把POP0做为这个新菜单的标签。 0 t3 k9 P' L; q
5 z: a5 L+ l E: Q5 _- ~% b2 ]) z% f6 X
1 f4 P; X$ f- H G3 Z$ A- X* ~. R, G! w3 }. ]& x
以下示例如何在右键菜单的末尾新增菜单项"OpenDWG". . D+ J4 X7 _. G; e/ \
% v; ^ o, C7 o( p2 Q% D! _
6 Y0 F2 G# g) I: ]Sub Ch6_AddMenuItemToshortcutMenu()
7 b0 T% H" s4 Z8 V+ a( f4 k* O$ u
1 E+ v: {6 Z1 Z/ G6 N& M- RDim currMenuGroup As AcadMenuGroup
* N& t! Z4 z$ N# _, H' A4 ^, I
" V: W% L1 e4 ~* Q' e ~+ BSet currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0) ' \8 Z: \$ x7 h+ ]+ D7 }$ N
( V) _' m4 g5 \
, `8 M3 B$ w! u* w, ]$ \9 w, q, q5 Q! `1 K4 c* c3 }
'找到快捷菜单并赋值它为shortcutMenu变量
0 T8 u) J" P7 E( V+ R0 D2 z' Q+ r$ m' v
Dim scMenu As AcadPopupMenu 2 f; J5 o! V+ P3 T! b ?1 K
2 A: i7 e5 m, I
Dim entry As AcadPopupMenu
5 A* ~# ~9 i1 o' N5 k, f" o8 g' i0 [4 D. q
For Each entry In currMenuGroup.Menus + f# c+ J3 U. s8 P
4 x: X& N4 n& N# q0 ?If entry.shortcutMenu = True Then ( a1 ]0 w6 M) R
4 d, Z6 T. [5 NSet scMenu = entry 3 |! H2 ]5 a* U) J, j
. V7 @" \$ t9 c( h ?1 U
End If ( D& G1 x2 M9 Z+ I
4 q6 X& k/ U2 G- |9 B5 s, v' D
Next entry
# M" C" [! F. _% F% U) k' K$ a: G) P. Y
' R0 Y6 U/ g7 [, D# M" a2 S. H* _# D0 I0 g( Q
' 在快捷菜单中增加菜单项
- A# _9 Y" r! g& N/ f0 }9 n$ b$ ~
3 h& U5 w4 m3 r6 MDim newMenuItem As AcadPopupMenuItem 6 w* P# m1 X* [0 U, g
8 K' M1 n7 M: f5 j9 B' Q' S
Dim openMacro As String
3 l+ E T, g6 _4 ]( ?0 |6 v8 u/ b* @: t) ?
' 为宏赋值VBA表达式"ESC ESC _open " 2 y4 g) Y; F, b! n
0 ^* i0 j5 p* T
openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32) 0 p0 ~6 H+ P1 e# v+ Z. {( o
9 g2 e$ ]) u* Q! H' h5 m0 b& ^6 A, l5 ]. V* c, g6 G. S
Set newMenuItem = scMenu.AddMenuItem _
! l6 E2 f1 g! P1 t* C6 z* @
% y! K) V. S9 `* O, |* R& m("", Chr(Asc("&")) _
$ ?9 X e* B# J# t
{/ T+ o% [$ K+ "OpenDWG", openMacro)
" Z% V/ e* _' c+ |) U; J* G! E% a |3 l$ h1 k) K4 U! [
End Sub |
|
发表于 2006-5-7 21:53