我看了半天，没有搞清出，mns文件的格式。急请教！

mysunrises

我看了半天，没有搞清出，mns文件的格式。急请教！


关键在于我新加载一个mns，但是看不见，是不是它的位置在顶部，被原有的覆盖了，那如何控制这个菜单的位置呢，能帮我写一段小代码让我看看吗，万分感谢！！

czbming

Public Sub menu()
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")
mgObj.Menus.Add "菜单6"
Call mgObj.Menus.InsertMenuInMenuBar("菜单6", 5) '插入到第五个菜单之后
End Sub

czbming

***MENUGROUP=MYMENU ***POP18
**MYMENU
ID_POP_CATV [MYMENU(&M)] //主菜单名称,可加快捷键
ID_POP_1 [->菜单1] //菜单项名称前加->符号表示下面的菜单项为其子项
ID_POP_27 [菜单子项1]^C^C-VBARUN acad.dvb!modOperate.MG_InsertBlockDWG 4
ID_POP_26 [菜单子项2]^C^C-VBARUN acad.dvb!modOperate.MG_InsertBlockDWG 3
ID_POP_69 [--] //菜单项分隔符
ID_POP_26 [菜单子项3]^C^C-VBARUN acad.dvb!modOperate.MG_InsertBlockDWG 3
ID_POP_128 [<-菜单子项4]^C^C-VBARUN acad.dvb!modOperate.MG_InsertBlockDWG 65
//带<-表示子菜单项结束 ***TOOLBARS
**工具栏1
ID_BAR_1 [_Toolbar("工具栏1",_Top,_Show,0,3,1)]
//工具栏,_Top代表紧靠ACAD操作区顶部,共五个选项,第五个选项是_Float(浮动于操作区)
//_Show或_Hide
//第三个参数代表工具栏所处x坐标,当有两个工具栏同时,x坐标值小的位于前面
//y坐标,y值小的位于上面
//当为_Float时,x,y值代表实际的屏幕坐标
//指定工具栏的行数.当_Float时有效
ID_BAR_53 [_Button("按钮名称","d:\图标16.bmp","图标32.bmp")]^C^C-VBARUN acad.dvb!modOperate.MG_InsertBlockDWG 39
//相比菜单项多了图标路径的指定,有两组图标,前一组是16X16,后一组32X32,为bmp格式 //加载mns后菜单并不显示,显示需要Call mgObj.Menus.InsertMenuInMenuBar("菜单1", ThisDrawing.Application.MenuBar.count - 2) '插入到倒数第三项
//此为mns最重要的两项,其它方面有兴趣的朋友自已研究一下.

mysunrises

谢谢 :)