Question

CAD中用VBA添加了菜单。单击菜单运行相应程序弹出窗口，代码是什么？谢谢了

Answer 1

APPLOAD
加载和卸载应用程序，定义要在启动时加载的应用程序

CUI
管理自定义用户界面元素，例如工作空间、工具栏、菜单、快捷菜单和键盘快捷键

命令行: arx

输入选项 [?/加载(L)/卸载(U)/命令(C)/选项(O)]:
VBAIDE
显示 Visual Basic 编辑器

VBALOAD
将全局 VBA 工程加载到当前工作任务中

VBAMAN
加载、卸载、保存、创建、嵌入和提取 VBA 工程

VBARUN
运行 VBA 宏

VBASTMT
在 AutoCAD 命令行中执行 VBA 语句

VBAUNLOAD
卸载全局 VBA 工程

追问

单击自己添加菜单运行指定宏的代码是什么？

Answer 2

//////////////////////////////////////////////////////////////////////////代码部分
Sub InsertMenu()
Dim CurrMenuGroup As AcadMenuGroup '定义菜单栏变量
Dim NewMenu As AcadPopupMenu '定义新增菜单变量
Set CurrMenuGroup = ThisDrawing.Application.MenuGroups.Item(0) '获取菜单栏
Set NewMenu = CurrMenuGroup.Menus.Add("DIY工具集") '初始化新增菜单变量
'NewMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1) '生成新增菜单，可放在所有子菜单或者二级菜单定义完成之后

'Set NewMenu = CurrMenuGroup.Menus("DIY工具集") ’若菜单已存在，直接读取

Dim NewMenuitem As AcadPopupMenuItem '定义菜单下的点击变量
Dim openmacro As String '定义菜单下的点击对应的宏名称

openmacro = Chr(3) & Chr(3) & Chr(95) & "-VBARUN kingfzh" & Chr(13) '定义菜单下的点击对应的宏
Set NewMenuitem = NewMenu.AddMenuItem(NewMenu.Count + 1, "kingfzh", openmacro) '定义菜单下的宏的显示名称及对应的宏

Set NewMenuitem = NewMenu.AddSeparator(NewMenu.Count) '定义菜单下的分隔线

openmacro = Chr(3) & Chr(3) & Chr(95) & "-VBARUN fzh" & Chr(13)
Set NewMenuitem = NewMenu.AddMenuItem(NewMenu.Count + 1, "fzh", openmacro)

Set NewMenuitem = NewMenu.AddSeparator(NewMenu.Count) '定义菜单下的分隔线

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim FileSubMenu As AcadPopupMenu '定义新增菜单变量
Set FileSubMenu = NewMenu.AddSubMenu(NewMenu.Count + 1, "我是二级菜单") '初始化新增菜单下的二级菜单

openmacro = Chr(3) & Chr(3) & Chr(95) & "-VBARUN 二级菜单1" & Chr(32) '定义二级菜单下的点击对应的宏
Set NewMenuitem = FileSubMenu.AddMenuItem(NewMenu.Count + 1, "二级菜单1", openmacro) '定义二级菜单下的宏的显示名称及对应的宏

openmacro = Chr(3) & Chr(3) & Chr(95) & "-VBARUN 二级菜单2" & Chr(32)
Set NewMenuitem = FileSubMenu.AddMenuItem(NewMenu.Count + 1, "二级菜单2", openmacro)

NewMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1) '生成新增菜单,可以放在初始化新增菜单后(即子菜单或者二级菜单之前)，也可以放在子菜单或二级菜单定义之后，但不能少。

MsgBox "※程序作者QQ:494752520※" & vbCrLf & vbCrLf & "现在时间是:" & Format(Now, "hh时mm分") & "了的哦！" _
& vbCrLf & "好好干啦！党是不会亏待你的！" & vbCrLf & "老板的眼睛是雪亮的啦！"

End Sub

Sub kingfzh()

MsgBox "kingfzh"

ThisDrawing.Utility.Prompt ("请选择：") '在命令栏输出【请选择：】字样

End Sub

Sub fzh()

MsgBox "fzh"

End Sub

Sub 二级菜单1()

MsgBox "hello"

End Sub

Sub 二级菜单2()

MsgBox "world"

End Sub
/////////////////////////////////////////////////////////////////////////////////

1。首先写好 一个dvb文件。
这个dvb文件中包含，菜单建立功能，例如(见上述代码示例)
2。查找并 修改acad.lsp
例如cad 2008 修改acad2008.lsp
这个文件一般在目录C:\Program Files\AutoCAD 2008\Support
64位系统下：C:\Program Files(x86)\AutoCAD 2004\Support

acad2008.lsp文件最后添加：
(defun S::STARTUP()
(command "_VBALOAD" "SmartSystem.dvb")
(command "_-VBARUN" "SetupMenu"))

3。拷贝
SmartSystem.dvb为dvb文件名，然后把这个文件拷贝到cad的默认搜索目录，如C:\Program Files\AutoCAD 2008\Support
这样就能OK了。随便再打开一个CAD，就是见证奇迹的时刻了！

祝你好运！

PS：
网络上盛传的“老板的眼睛是雪亮的”CAD病毒程序不是我写的！你们看作者的QQ号真的不是那个252545152，我这个地方只是在实现菜单栏及相应宏命令的时候顺便演示如何实现它。。。效果真的一模一样，打开任何一个CAD都能出来，不过真的不关我事。。。 我这个提示里的QQ真的是我本人啦，不是那个病毒制造者哈，有兴趣的可以加QQ交流，麻烦注明：CAD二次开发。