mysunrises 发表于 2004-5-12 11:58:00

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

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


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

czbming 发表于 2004-5-12 13:49:00

Public Sub menu()<BR>                       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")<BR>                       objFS.Close


'                       ThisDrawing.Application.MenuGroups.Load strFileName<BR>                       Set mgObj = ThisDrawing.Application.MenuGroups.item("MYMENU")<BR>                       mgObj.Menus.Add "菜单6"<BR>                       Call mgObj.Menus.InsertMenuInMenuBar("菜单6", 5)                       '插入到第五个菜单之后<BR>End Sub

czbming 发表于 2004-5-12 14:16:00

***MENUGROUP=MYMENU


***POP18<BR>**MYMENU<BR>ID_POP_CATV                                                                                                                                                //主菜单名称,可加快捷键<BR>ID_POP_1 [-&gt;菜单1]                //菜单项名称前加-&gt;符号表示下面的菜单项为其子项<BR>ID_POP_27 [菜单子项1]^C^C-VBARUN acad.dvb!modOperate.MG_InsertBlockDWG 4 <BR>ID_POP_26 [菜单子项2]^C^C-VBARUN acad.dvb!modOperate.MG_InsertBlockDWG 3 <BR>ID_POP_69 [--]                        //菜单项分隔符<BR>ID_POP_26 [菜单子项3]^C^C-VBARUN acad.dvb!modOperate.MG_InsertBlockDWG 3 <BR>ID_POP_128 [&lt;-菜单子项4]^C^C-VBARUN acad.dvb!modOperate.MG_InsertBlockDWG 65 <BR>                                //带&lt;-表示子菜单项结束


***TOOLBARS<BR>**工具栏1<BR>ID_BAR_1 <BR>        //工具栏,_Top代表紧靠ACAD操作区顶部,共五个选项,第五个选项是_Float(浮动于操作区)<BR>        //_Show或_Hide<BR>        //第三个参数代表工具栏所处x坐标,当有两个工具栏同时,x坐标值小的位于前面<BR>        //y坐标,y值小的位于上面<BR>        //当为_Float时,x,y值代表实际的屏幕坐标<BR>        //指定工具栏的行数.当_Float时有效<BR>ID_BAR_53 ^C^C-VBARUN acad.dvb!modOperate.MG_InsertBlockDWG 39       <BR>        //相比菜单项多了图标路径的指定,有两组图标,前一组是16X16,后一组32X32,为bmp格式


//加载mns后菜单并不显示,显示需要Call mgObj.Menus.InsertMenuInMenuBar("菜单1", ThisDrawing.Application.MenuBar.count - 2)                       '插入到倒数第三项<BR>//此为mns最重要的两项,其它方面有兴趣的朋友自已研究一下.<BR>

mysunrises 发表于 2004-5-12 14:37:00

谢谢 :)
页: [1]
查看完整版本: 我看了半天，没有搞清出，mns文件的格式。急请教！