VBA菜单

true

请问用VBA做的程序怎么把他写成菜单宏，直接用菜单或则工具按钮来执行的？

LucasLynn

在AutoCAD目录下新建acad.dvb，运行AutoCAD自动加载后添加以下内容

2. Sub MenuExtend()
3.        Dim currMenuGroup As AcadMenuGroup
4.        For Each currMenuGroup In ACAD.Application.MenuGroups
5.                If currMenuGroup.Name = "ACAD" Then
6.                        Exit For
7.                End If
8.        Next
9.       
10.        Dim currMenu As AcadPopupMenu
11.        Dim newMenuItem As AcadPopupMenuItem
12.       
13.        For Each currMenu In currMenuGroup.Menus
14.                If currMenu.Name = "文件(&F)" Then
15.                        Set newMenuItem = currMenu.AddMenuItem(19, "分页打印", "-VBARUN acad.dvb!Startup.PlotPaging" & Chr(32))   '具体参数根据你的需要定
16.                End If
17.        Next
18. End Sub

Sub MenuExtend()        Dim currMenuGroup As AcadMenuGroup        For Each currMenuGroup In ACAD.Application.MenuGroups                If currMenuGroup.Name = "ACAD" Then                        Exit For                End If        Next               Dim currMenu As AcadPopupMenu        Dim newMenuItem As AcadPopupMenuItem               For Each currMenu In currMenuGroup.Menus                If currMenu.Name = "文件(&F)" Then                        Set newMenuItem = currMenu.AddMenuItem(19, "分页打印", "-VBARUN acad.dvb!Startup.PlotPaging" & Chr(32))   '具体参数根据你的需要定                End If        Next End Sub

在AutoCAD目录下新建acad.lsp，运行AutoCAD自动加载后添加以下内容

2. (defun S::STARTUP()
3.          (command "_-vbarun" "MenuExtend")
4. )

(defun S::STARTUP()          (command "_-vbarun" "MenuExtend") )