求助~！！~！~vba中写autocad的3级菜单！~

polosm 发表于 2006-5-25 00:18:00

Option Explicit Public DirPath As String
 Sub AddASubMenu()     '获得当前的菜单组     Dim currMenuGroup As AcadMenuGroup     Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)     ' 创建新菜单     Dim newMenu As AcadPopupMenu     Set newMenu = currMenuGroup.Menus.Add("ttttttttttttt(&K)" & Chr(Asc("&")))     '添加菜单项     Dim macro As String     macro = Chr(vbKeyEscape) + Chr(vbKeyEscape)     '相当于按下两次Esc键     '--------------------------------------------------------------------------------------     '创建知识库(&C)     Dim ID_Create  As AcadPopupMenuItem     Set ID_Create = newMenu.AddMenuItem(newMenu.Count + 1, Chr(Asc("&")) & "创建知识库(&C)", macro & "_open ")     '分隔线     Dim menuItemSeparator As AcadPopupMenuItem     Set menuItemSeparator = newMenu.AddSeparator(newMenu.Count + 1)         '--------------------------------------------------------------------------------------     '知识查询(&Q)     Dim ID_Query As AcadPopupMenu     Set ID_Query = newMenu.AddSubMenu(newMenu.Count + 1, Chr(Asc("&")) & "知识查询(&Q)")     '子菜单项目1：设计手册     Dim ID_book As AcadPopupMenuItem     Set ID_book = ID_Query.AddMenuItem(ID_Query.Count + 1, Chr(Asc("&")) & "设计手册(&B)", macro & "-vbarun" + Chr(32) + "ThisDrawing.vbahelp" + Chr(32))     ' 在菜单栏上显示菜单     newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)       End Sub

我想在子菜单项目1：设计手册后面在加上一个3级菜单螺丝手册。。铸件手册。。等等

望会人告诉我怎么写！~！谢谢楼主！~

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

提示:ThisDrawing.vbahelp的宏找不到!

页: [1]

明经CAD社区's Archiver

求助~！！~！~vba中写autocad的3级菜单！~