创建下拉菜单--PopupMenu

Imports ZWCAD
Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.EditorInput


Public Class PdfToImage
    Implements IExtensionApplication
    Public myProcess As Process


    Public Sub Initialize() Implements IExtensionApplication.Initialize


        Dim ZwApp As ZcadApplication = DirectCast(Application.ZcadApplication, ZcadApplication)


        Dim MKMenu As ZcadPopupMenu = ZwApp.MenuGroups.Item(0).Menus.Add("ZWCAD_Tools")


        Dim MKMenuItem As ZcadPopupMenuItem
        MKMenuItem = MKMenu.AddMenuItem(MKMenu.Count + 1, "Open", "OPEN ")
        MKMenuItem.HelpString = "Open an existing drawing file."




        Dim MenuSeparator01 As ZcadPopupMenuItem = MKMenu.AddSeparator("")


        MKMenuItem = MKMenu.AddMenuItem(MKMenu.Count + 1, "Close", "CLOSE ")
        MKMenuItem.HelpString = "Close the current drawing."


       


        MKMenu.InsertInMenuBar(ZwApp.MenuBar.Count + 1)


    End Sub


    Public Sub Terminate() Implements IExtensionApplication.Terminate


    End Sub

End Class