如何在右键菜单的末尾新增一个菜单项（VBA语言）

summerfly2008

右键菜单或快捷菜单，是包含在AutoCAD基础菜单组中的特殊菜单。这个菜单只在用户按住SHIFT键并点击鼠标右键时才出现。


8 @! a! s! ^% w+ f+ K9 T在一个基础菜单组中，当一个菜单的ShortcutMenu属性为TRUE时，这个菜单就是快捷菜单。你可以遵循"为一个菜单添加新的菜单项"中列出的步骤为快捷菜单增加菜单项。

8 e1 [) k3 }2 t/ v
新的菜单组可能有也可能没有一个快捷菜单。要想为一个菜单组建立一个快捷菜单，须遵循"建立新菜单"一章中列出的指示，并且要把POP0做为这个新菜单的标签。

/ D6 _1 I# J, k' g% F

以下示例如何在右键菜单的末尾新增菜单项"OpenDWG".


Sub Ch6_AddMenuItemToshortcutMenu()
$ B- T1 _" V& x; k7 X
Dim currMenuGroup As AcadMenuGroup

4 B7 j% M* L/ F4 X# t9 l( }1 P( G& V) ~- XSet currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

# k' \3 G! H. g8 y" }

8 D4 _: N: J' E2 ]: d; S'找到快捷菜单并赋值它为shortcutMenu变量
' f: P6 w5 C1 u' U
Dim scMenu As AcadPopupMenu
$ [3 T: W# c3 _# }) }! S- ^; A( e
$ p% ^5 o! t  M& w6 m. tDim entry As AcadPopupMenu
8 \/ `$ {; S+ Y5 p8 |
For Each entry In currMenuGroup.Menus

If entry.shortcutMenu = True Then
, E1 Z5 r2 }' G2 v2 T- }* \5 C
Set scMenu = entry

End If
. L% P' S* n# H! _- A
1 ?$ a' z& u7 S" sNext entry

# q1 M5 }) w1 b, q+ H; F
. k9 v" d/ _2 q; j/ p# z. U
* |; R% a9 ]% _1 [7 h7 i  o' 在快捷菜单中增加菜单项
1 u; ?& c6 A9 S( V8 X
Dim newMenuItem As AcadPopupMenuItem
3 m- M; P  k/ l4 }5 W
Dim openMacro As String

' 为宏赋值VBA表达式"ESC ESC _open "
7 |6 ^+ ]4 p" b. n& i- j
openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32)

% N- D  I2 J9 t6 n* Z! m. t
Set newMenuItem = scMenu.AddMenuItem _

8 E* [: F' b2 T- A2 n" a6 A2 T4 |4 J("", Chr(Asc("&")) _
! Q- I4 {! ]1 s( q
& ~4 O* T4 ]1 R+ {! h+ "OpenDWG", openMacro)
7 ?2 _/ g0 w0 f  B2 Z; P$ v2 H
End Sub

620

真的可以呀。谢谢楼主

sh_ustb

如果不想要OPEN命令，用别的命令能代替吗，比如显示个自己编辑的界面什么的