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

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

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

同问，用ＶＢＡ能否实现这个功能

账号		自动登录	找回密码
密码			注册

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

谢谢：）