我也遇到这个问题,一直困扰我好久了。如下面的局部代码,我是再auto2007版上运行的,调试程序时提示“运行时错误,-2145320905(80210037)已加载菜单组blocklib”。 将ThisDrawing.Application.MenuGroups.Load strpath & "blocklib.mnu",注释掉后,再调试程序时提示“运行时错误,-2145320939(80210015),参数index(位于item中)无效”。
回到autocad2007图形界面,自定义菜单界面,能看到所添加的菜单blocklib,但在图形环境里看不到。用系统的例程序能够加入菜单,并能显示。但有时在自定义界面上却找不到,不知何故,请高手们指点。 Public Sub loadmenu() '获得相对路径 Dim strpath As String '当前工程所在的路径 strpath = ThisDrawing.Application.VBE.activevbproject.FileName strpath = Left$(strpath, Len(strpath) - Len("基本图库的实现.dvb")) '加栽并且显示菜单 ThisDrawing.Application.MenuGroups.Load strpath & "blocklib.mnu" ThisDrawing.Application.MenuGroups.Item("blocklib").Menus.Item(0).InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1) End Sub
|