实际上只涉及到一个下拉菜单,
我知道如何访问下拉菜单集合,并且我正在使用InsertinMenuBar属性,但是我仍然没有成功插入它。这是目前为止的代码
谢谢Jeff
-
- Sub Load_MyCompany_Menu()
- Dim MenuGroup As AcadMenuGroup
- Dim SelectedMenuGroup As String
- Dim Retval As Variant
- On Error Resume Next
-
- SelectedMenuGroup = "Path\Filename.mnc"
- Set MenuGroup = ThisDrawing.Application.MenuGroups.Load(SelectedMenuGroup, False)
- If MenuGroup Is Nothing Then
- Retval = MsgBox("The MyCompany menu is already loaded", vbInformation, "MyCompany")
- Exit Sub
- Else
- Retval = MsgBox("The MyCompany menu has been successfully loaded", vbInformation, "Filename")
- End If
- End Sub
|