|
|
右键菜单或快捷菜单，是包含在AutoCAD基础菜单组中的特殊菜单。这个菜单只在用户按住SHIFT键并点击鼠标右键时才出现。 - c! d" h% x3 x0 E4 J4 H1 i
; z' H8 ~% N; I/ R8 p4 n/ J
# m+ n5 o u0 S在一个基础菜单组中，当一个菜单的ShortcutMenu属性为TRUE时，这个菜单就是快捷菜单。你可以遵循"为一个菜单添加新的菜单项"中列出的步骤为快捷菜单增加菜单项。 + z4 L/ b p0 {1 I/ c+ \
& ]* O% g9 g1 M; @9 {
6 \: |' I# X4 W; R新的菜单组可能有也可能没有一个快捷菜单。要想为一个菜单组建立一个快捷菜单，须遵循"建立新菜单"一章中列出的指示，并且要把POP0做为这个新菜单的标签。 5 ]! Q `4 `0 X: s% W$ ^
2 k4 a$ t( O) j) I/ b! x" A& r
6 c; T/ B$ O, K: `, }8 W
5 ^8 J2 P5 m8 S9 Q' j以下示例如何在右键菜单的末尾新增菜单项"OpenDWG".
1 Q4 B3 E2 d% e# I, r( L$ I6 b# S/ Z: H1 h' o# s& s3 d$ J: n) i/ q
' U7 \4 j, b( ~" b+ L5 w# ~( h% @
Sub Ch6_AddMenuItemToshortcutMenu() 7 t |6 n0 N u
, |) c) ]& R( X. XDim currMenuGroup As AcadMenuGroup
0 ^1 i. [: |; }% A. n$ F* Q3 t) P' M5 S! B3 m' J
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
) ^% x3 V o' g% d2 Z. F+ O. d% i( E- l! K0 ~) ]# C* N
# Y* S0 h+ @( X( k( U0 q
+ U3 T5 o0 ]8 ~7 G" E
'找到快捷菜单并赋值它为shortcutMenu变量
# j' B/ z2 G7 m5 ]$ k2 m# H; v7 s* Q# g5 k8 W
Dim scMenu As AcadPopupMenu : b! r6 W2 I2 u( [& \# _
+ P8 k: t" j q+ z: k" d
Dim entry As AcadPopupMenu
. z( `2 j8 Q: [1 r8 n& r( {+ v2 E6 v3 `3 |+ ~; y
For Each entry In currMenuGroup.Menus
: l n- {0 ?9 l; M& K# N' l9 D' Z$ W
If entry.shortcutMenu = True Then 3 Y. }' N* G3 N
7 U" G) ~9 a7 K' }; _# V
Set scMenu = entry 6 Q6 Y0 _; ?! L F$ h
, r( [& O. \9 z4 x: N1 u+ YEnd If " d- T# o! g& Q" k: U
+ k- y. Z3 l1 Q8 ~. ~
Next entry
$ F# _2 y. ]! U2 C5 v- c) E, e2 @; s- Q+ O$ ~
& r) F2 s, ]5 A3 B$ U$ G5 ~, U' B' M
5 c0 G; `2 m6 [; |2 t0 H( }6 M& `' 在快捷菜单中增加菜单项
1 }; U1 `8 B9 l* A3 `$ U( x! B+ p5 m! }4 I$ H4 f
Dim newMenuItem As AcadPopupMenuItem 2 a3 U( w1 @( u+ M
) p3 q H% B K4 `0 |* B3 oDim openMacro As String
: x# G" O. z3 |4 x# P6 v& k8 Y6 L$ ~3 ^! y, K" K2 c4 U0 z
' 为宏赋值VBA表达式"ESC ESC _open "
( B3 s' c3 w! m* @8 `! Z+ `9 b" ~
openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32) 0 O, T5 W* C/ Z# p. r' N1 D
$ s: s [$ i! @+ \* y/ W
2 |$ B) c) _9 Z
Set newMenuItem = scMenu.AddMenuItem _
' e& W& N s0 |, T) n( l% ]1 @4 w D# W, r6 R7 a0 Y* T
("", Chr(Asc("&")) _
" }/ K& g) Y7 S) D( p- n
, S. S% J1 k: h2 C8 M+ "OpenDWG", openMacro) 7 l. Z4 i! L, y8 w+ a
; g9 X" J1 x ]( U- }4 T
End Sub |
|
发表于 2006-5-7 21:53