VBA菜单

ever-eagle

Sub AddASubMenu()

    '获得当前的菜单组***********************
    Dim currMenuGroup As AcadMenuGroup
    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
   
    '创建新菜单
    Dim newMenu As AcadPopupMenu
    Set newMenu = currMenuGroup.Menus.Add("冲模")
   
    '添加菜单项*****************************
    Dim macro As String
    macro = Chr(vbKeyEscape) + Chr(vbKeyEscape)
    '滑动导向模座
    Dim menuItemHuamo As AcadPopupMenu
    Set menuItemHuamo = newMenu.AddSubMenu(newMenu.Count + 1, "滑动导向模座")
    '子菜单项目:对角导柱
    Dim subMenuItemDuijiao As AcadPopupMenuItem
    Set subMenuItemDuijiao = menuItemHuamo.AddMenuItem(menuItemHuamo.Count + 1, "对角导柱", macro & "???")

End Sub

用这种方法加了一个菜单,??处该怎样写,还应该加什么语句才能实现,点击对角导柱后弹出一个名为YY的对话框?   想实现菜单和对话框的连接! 请帮帮!

霹雳啪啦啦

给你参考一下我写的，肯定能用：

Set NewMenuItem = NewMenu.AddMenuItem(NewMenu.Count + 1, "修复工具", Chr(3) & Chr(3) & Chr(95) & "-vbarun FixTool.FixTool" & vbCr)

ever-eagle

是启动名为FixTool.FixTool的宏，不过我里面没有！　但知道了点

 

ever-eagle

我的窗体是直接建在上面的宏里的,能通过菜单启动窗体就可以了!

霹雳啪啦啦

是这样的，我的“修复工具”是一个对话框，需要以下步骤来通过菜单显示他：

首先，建立一个例如为fixForm的对话框，程序全部在对话框里；

其次，建立一个名为fixTool的模块，其中建立一个名为fixTool的过程（过程名称不一定要和模块名称相同），过程代码为：

Sub fixTool()

fixForm.show

end sub

然后，在菜单加载宏中，加入上面所示的菜单加载代码即可。也就是说，点菜单后,就启动VBA，VBA加载模块fixTool中的过程fixTool，然后fixTool过程中的代码显示对话框。