VBA菜单

ever-eagle 发表于 2006-5-29 12:34:00

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的对话框?   想实现菜单和对话框的连接! 请帮帮!

霹雳啪啦啦 发表于 2006-5-29 16:13:00

给你参考一下我写的，肯定能用：
Set NewMenuItem = NewMenu.AddMenuItem(NewMenu.Count + 1, "修复工具", Chr(3) & Chr(3) & Chr(95) & "-vbarun FixTool.FixTool" & vbCr)

ever-eagle 发表于 2006-5-29 17:55:00

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

ever-eagle 发表于 2006-5-29 18:49:00

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

霹雳啪啦啦 发表于 2006-5-30 11:31:00

是这样的，我的“修复工具”是一个对话框，需要以下步骤来通过菜单显示他：
首先，建立一个例如为fixForm的对话框，程序全部在对话框里；
其次，建立一个名为fixTool的模块，其中建立一个名为fixTool的过程（过程名称不一定要和模块名称相同），过程代码为：
Sub fixTool()
fixForm.show
end sub
然后，在菜单加载宏中，加入上面所示的菜单加载代码即可。也就是说，点菜单后,就启动VBA，VBA加载模块fixTool中的过程fixTool，然后fixTool过程中的代码显示对话框。

页: [1]

明经CAD社区's Archiver

VBA菜单