mysunrises 发表于 2004-5-12 10:07:00

如何在vba中创建单独的菜单条，而不是在已有的菜单上作增加，急！！

如何在vba中创建单独的菜单条，而不是在已有的菜单上作增加，急！！

czbming 发表于 2004-5-12 10:56:00

1.建议直接用程序写mns文件,当然首先你要弄懂mns定义的格式. 2.第二种方法.创建一个空的msn文件.如下:
                       Dim strFileName As String
                       Dim mgObj As AcadMenuGroup
                       Dim objFS As Object
                       
                       strFileName = "d:\myMns.mns"
                       Set objFS = CreateObject("Scripting.FileSystemObject")
                       Set objFS = objFS.CreateTextFile(strFileName, True, False)
                       objFS.writeline ("***MENUGROUP=MYMENU")
                        objFS.close
ThisDrawing.Application.MenuGroups.Load strFileName
                       Set mgObj = ThisDrawing.Application.MenuGroups.item("MYMENU")
                       
后将此菜单文件加载进acutocad.
然后调用方法'                       mgObj.Toolbars.Add
'                       mgObj.Menus.Add                               增加即可.
以上程序未调试过.有问题自己解决一下.这儿提供一下思路

mysunrises 发表于 2004-5-12 10:59:00

谢谢

weihedao 发表于 2008-1-8 21:39:00

同问，用ＶＢＡ能否实现这个功能
页: [1]
查看完整版本: 如何在vba中创建单独的菜单条，而不是在已有的菜单上作增加，急！！