下面的***ACCELERATORS定义快捷键的条目的前端的ID部分一定要和上边定义菜单部分的ID一样，这样快捷键才起作用
下面的***HELPSTRINGS定义当鼠标移到菜单项上面时在CAD的左下角的提示栏内所显示的帮助信息，此部分的ID也要和菜单项的对应
有人又要问了中间的工具条的部分怎么没有说呢？
其实工具条我们可以在CAD里面做好后再用VBA将其导出到菜单文件，这样做起来也比较容易。
做工具条
第一步右击工具条，点自定义
第二步选择菜单组，填工具条名
第三步选择命令页，分类框内选择用户自定义，将右边的用户自定义按钮托到工具条上
单击工具条上的用户自定义按钮，会自动转到按钮特性页面，选择图标、输入名称、说明和下面的宏保存
在VBA中可用以下命令将现有菜单保存到文件中
Application.MenuGroups.Item(1).SaveAs "c:\Test", acMenuFileSource
用以下代码将菜单文件加载到CAD中
Dim mnuGroup As AcadMenuGroup
Application.MenuGroups.Load "C:\Test.mnc"
Set mnuGroup = Application.MenuGroups.Item("菜单组名")
mnuGroup.Menus.InsertMenuInMenuBar "Test(&T)", ""
Application.MenuGroups.Item(1).SaveAs "c:\Test", acMenuFileSource
这里括号内的数字为菜单组集合内的项目的索引，我的这里一共有5个索引是从0到4
您也可以遍历这个集合，获得菜单组的名称进行指定的操作
Set mnuGroup = Application.MenuGroups.Item("菜单组名")
mnuGroup.Menus.InsertMenuInMenuBar "Test(&T)", ""
这里的菜单组名和下边的Test(&T)必需和菜单文件里是一一对应的
