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<BR>                       Dim mgObj As AcadMenuGroup<BR>                       Dim objFS As Object<BR>                       <BR>                       strFileName = "d:\myMns.mns"<BR>                       Set objFS = CreateObject("Scripting.FileSystemObject")<BR>                       Set objFS = objFS.CreateTextFile(strFileName, True, False)<BR>                       objFS.writeline ("***MENUGROUP=MYMENU")


                        objFS.close


ThisDrawing.Application.MenuGroups.Load strFileName<BR>                       Set mgObj = ThisDrawing.Application.MenuGroups.item("MYMENU")<BR>                       <BR>后将此菜单文件加载进acutocad.


然后调用方法'                       mgObj.Toolbars.Add<BR>'                       mgObj.Menus.Add                               增加即可.








以上程序未调试过.有问题自己解决一下.这儿提供一下思路

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

谢谢：）

谢谢

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

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