如何自動加菜單

jkbanana

如下修改以下就可以实现你要的功能.

Public Sub stamp()
Dim Cumegr As AcadMenuGroup
'Set Cumegr = ThisDrawing.Application.MenuGroups.Item(0)
'''
'1.修改
Set Cumegr = ThisDrawing.Application.MenuGroups.Item("ACAD")
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)

'''
'2.增加
Cumegr.Save acMenuFileCompiled

End Sub

frank_dmz

还可以做个启动项