|
|
发表于 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 增加即可.
以上程序未调试过.有问题自己解决一下.这儿提供一下思路 |
|
置顶卡
