[VBA程序]： 请教增加菜单项的问题

yao2001xp

请教各位：

不知function AddMenuItem(Index, Label As String, Macro As String)函数的index参数有何用途？

例如：

Set menuitemobject = submenuobject1.AddMenuItem(menuobject.Count + 1, "ordinate", "-vbarun thisdrawing.aordinatedimension" & vbCr)

我将menuobject.count+1 改为任意整数，oridante仍能加到子菜单中去，不知有何区别？

macula55

index 指定新加入菜单的索引，
例如：menuobject.Count + 1 就是说把新加入的菜单放在menuobject菜单组的最后。

yao2001xp

但是AddMenuItem是增加子菜单的菜单项
不是加在菜单里面作为一个子菜单啊？

macula55

一样的道理，菜单项在菜单中也是有顺序的，Index就代表了这个顺序，具体的在帮助中有

yao2001xp

代码如下：
Public Sub createmenu()
Dim menugroupobject As AcadMenuGroup
Dim menuobject As AcadPopupMenu
Dim submenuobject1 As AcadPopupMenu
Dim submenuobject2 As AcadPopupMenu
Dim menuitemobject As AcadPopupMenuItem
Set menugroupobject = ThisDrawing.Application.MenuGroups.Item(0)
On Error Resume Next
Set menuobject = menugroupobject.Menus.Add("newdimensions")
Set submenuobject1 = menuobject.AddSubMenu(0, "linear")
Set submenuobject2 = menuobject.AddSubMenu(1, "angular")
Set menuitemobject = submenuobject1.AddMenuItem(menuobject.Count + 1, "aligned", "-vbarun thisdrawing.aligneddimension" & vbCr)
Set menuitemobject = submenuobject1.AddMenuItem(menuobject.Count + 1, "ordinate", "-vbarun thisdrawing.aordinatedimension" & vbCr)
Set menuitemobject = submenuobject1.AddMenuItem(menuobject.Count + 1, "rotated", "-vbarun thisdrawing.rotatedimension" & vbCr)
Set menuitemobject = submenuobject2.AddMenuItem(menuobject.Count + 1, "Angular", "-vbarun thisdrawing.angulardimension" & vbCr)
Set menuitemobject = submenuobject2.AddMenuItem(menuobject.Count + 1, "diametric", "-vbarun thisdrawing.diametricdimension" & vbCr)
Set menuitemobject = submenuobject2.AddMenuItem(menuobject.Count + 1, "radial", "-vbarun thisdrawing.radialdimension" & vbCr)

menuobject.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)

End Sub

各位高手可以试一下：
将menuobject.count 改为任意数字，生成的菜单是相同的

wenyuqinw

哦是这样的吗？我认真考虑一下

gogogo168

可以直接用记事本编辑acad.mnu文件，这样更有效