|
|
现状描述：
我先前编写了个VBA程序，为便于实际操作，需在的界面上添加菜单项（或浮动按钮），用户通过点击菜单项就可以直接执行我所编写的VBA程序。目前添加菜单项（或浮动按钮）的工作我已实现，但尚未完成菜单项与VBA程序的关联（点击菜单项，就激活我的VBA程序的用户窗口界面）
以下是添加菜单项的程序代码：
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 = ？ ' macro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32) 这是打开文件的代码
Dim menuItemHuamo As AcadPopupMenuItem
Set menuItemHuamo = newMenu.AddMenuItem(newMenu.Count + 1, "NC程序生成", ？？)
'在菜单栏上显示菜单*******************
newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
End Sub
我的VBA工程文件存放路径为：E:\VBA二次开发\project.dvb
project.dvb中的用户界面窗口为UserForm
需要达到的效果是：用户点击AutoCAD菜单栏上的菜单【二次开发】——>【NC程序生成】，就执行project工程，弹出用户界面窗口UserForm
希望大虾些给指导下，先谢过了
|
|
置顶卡
