求助，关于菜单的问题

xgngg

Public Sub qa()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
Dim newMenu As AcadPopupMenu
Set newMenu = currMenuGroup.Menus.Add("TestMenu51") Dim FileSubMenu As AcadPopupMenu
Set FileSubMenu = newMenu.AddSubMenu("", "OpenFile") Dim newMenuItem As AcadPopupMenuItem
Dim openMacro As String
openMacro = Chr(3) + Chr(3) + Chr(95) + "-VBARUN c:/aaa.dvb!" + Chr(32) Set newMenuItem = FileSubMenu.AddMenuItem _
(newMenu.Count + 1, "-VBARUN aaa", openMacro)
' 菜单条上显示菜单
newMenu.InsertInMenuBar _
(ThisDrawing.Application.MenuBar.Count + 1)
End Sub
以上程序运行后，AAA.dvb没有用,CAD命令行出行未找到宏.请帮忙!

efan2000

-VBARUN aaa这个是Label，是按钮上显示的标题。


Chr(3) + Chr(3) + Chr(95) + "-VBARUN c:/aaa.dvb!" + Chr(32)这个是宏，只有工程名称，缺少了没有模块名称和函数名称，


应该为："-VBARUN 工程名称!模块名称.函数名称"，注意工程要先加载。