这样启动时加载菜单

cq_starsea · 发表于 2015-4-3 09:24:00

我把菜单代码写在一个函数里面了，怎样启动cad时自动调用那个函数呢，我没有用com接口，
用继承 Implements Application.IExtensionApplication.Initialize的方法就不行
纯.net情况下应该怎么处理啊？

雪山飞狐_lzh · 发表于 2015-4-3 12:30:00

你的菜单代码是用什么实现的?Ribbin?请贴上

cq_starsea · 发表于 2015-4-3 13:14:00

Sub AA()
      Dim MenuGroup As Object = Nothing
      Dim Menu As Object
      Try
         MenuGroup = Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication.MenuGroups.Item(0)
         Menu = MenuGroup.Menus.Item("AA")
      Catch ex As System.Exception
         Menu = MenuGroup.Menus.Add("AA")
         Menu.AddMenuItem(0, "a1", "_A1 ")
         Menu.AddMenuItem(1, "a2", "_A2 ")
      End Try
      Try
         MenuGroup.Menus.InsertMenuInMenuBar("AA", "编辑(&E)")
      Catch ex As System.Exception
         MsgBox(ex.Message)
      End Try
End Sub

雪山飞狐_lzh · 发表于 2015-4-3 19:25:00

你这就是引用com库的方式
试下我刚发的代码吧

slw7310 · 发表于 2015-4-3 19:38:00

Namespace Cadd
Class TlsApplication
      Implements IExtensionApplication
      Sub Initialize() Implements IExtensionApplication.Initialize
         CadD.Start()
      End Sub
      Sub Terminate() Implements IExtensionApplication.Terminate
      End Sub
End Class
Public Class CadD

      Public Shared Sub Start()
         AA()

      End Sub

Public Shared Sub AA()
      Dim MenuGroup As Object = Nothing
      Dim Menu As Object
      Try
         MenuGroup = Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication.MenuGroups.Item(0)
         Menu = MenuGroup.Menus.Item("AA")
      Catch ex As System.Exception
         Menu = MenuGroup.Menus.Add("AA")
         Menu.AddMenuItem(0, "a1", "_A1 ")
         Menu.AddMenuItem(1, "a2", "_A2 ")
      End Try
      Try
         MenuGroup.Menus.InsertMenuInMenuBar("AA", "编辑(&E)")
      Catch ex As System.Exception
         MsgBox(ex.Message)
      End Try
End Sub

End Class
End Namespace