|
本人写了以下一个程式,是加一个菜单
但是每次开一个新的drawing时必须执行一次命令,这个菜单才能出现,本人想每次打开新drawing时都会自动加上去,而不须去执行一次,就象cad上的“编辑”,“”一样,每次打开都在上面,请问如何做,谢谢
Public Sub stamp()
Dim Cumegr As AcadMenuGroup
Set Cumegr = ThisDrawing.Application.MenuGroups.Item(0)
Dim newmenu As AcadPopupMenu
Set newmenu = Cumegr.Menus.Add("Stamping(S)")
Dim smacro As String, newmenuitem As AcadPopupMenuItem
smacro = Chr(3) + Chr(3) + Chr(95) + "ff" + Chr(32)
Set newmenuitem = newmenu.AddMenuItem(newmenu.Count + 1, "Stamping", smacro)
newmenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
End Sub
|
|