I have added quite a few commands in my addin and the toolbar and menu has become very difficult to manage. Does anyone have any recommendations on a way to add new commands to the addin without having to spend significant time rewriting the code that controls the toolbar and menu. I'm looking for a better way than I doing this today. I have attached the code below.
Regards,
Greg Johnson
Vermeer Corporation
Public Sub AddCommandMgr()
'Standard variables
Dim Title As String = "Vermeer Tools"
Dim ToolTip As String = "Vermeer Tools for SolidWorks"
Dim docTypes() As Integer = {swDocumentTypes_e.swDocASSEMBLY, swDocumentTypes_e.swDocDRAWING, swDocumentTypes_e.swDocPART}
Dim menuToolbarOption As Integer = swCommandItemType_e.swMenuItem Or swCommandItemType_e.swToolbarItem
Try
Dim cmdGroup As ICommandGroup
Dim cmdGroup2 As ICommandGroup
Dim cmdGroup3 As ICommandGroup
Dim cmdGroup4 As ICommandGroup
Dim cmdGroup5 As ICommandGroup
Dim cmdGroup6 As ICommandGroup
Dim cmdGroup7 As ICommandGroup
Dim cmdGroup8 As ICommandGroup
If iBmp Is Nothing Then
iBmp = New BitmapHandler()
End If
Dim thisAssembly As Assembly = System.Reflection.Assembly.GetAssembly(Me.GetType())
Dim cmdGroupErr As Integer = 0
Dim ignorePrevious As Boolean = False
cmdGroup = iCmdMgr.CreateCommandGroup2(mainCmdGroupID, Title, ToolTip, "", 6, ignorePrevious, cmdGroupErr)
If cmdGroup Is Nothing Or thisAssembly Is Nothing Then
Throw New NullReferenceException()
End If
cmdGroup.LargeIconList = iBmp.CreateFileFromResourceBitmap("VermeerTools.ToolbarLarge.bmp", thisAssembly)
cmdGroup.SmallIconList = iBmp.CreateFileFromResourceBitmap("VermeerTools.ToolbarSmall.bmp", thisAssembly)
cmdGroup.LargeMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.MainIconLarge.bmp", thisAssembly)
cmdGroup.SmallMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.MainIconSmall.bmp", thisAssembly)
'*********************************************************************************************************************
Dim registryIDs As Object = Nothing
Dim getDataResult As Boolean = iCmdMgr.GetGroupDataFromRegistry(mainCmdGroupID, registryIDs)
Dim knownIDs As Integer() = New Integer(44) {mainItemID1, mainItemID2, mainItemID3, mainItemID4, mainItemID5, mainItemID6, mainItemID7, mainItemID8, mainItemID9, mainItemID10, mainItemID11, mainItemID12, mainItemID13, mainItemID14, mainItemID15, mainItemID16, mainItemID17, mainItemID18, mainItemID19, mainItemID20, mainItemID21, mainItemID22, mainItemID23, mainItemID24, mainItemID25, mainItemID26, mainItemID27, mainItemID28, mainItemID29, mainItemID30, mainItemID31, mainItemID32, mainItemID33, mainItemID34, mainItemID35, mainItemID36, mainItemID37, mainItemID38, mainItemID39, mainItemID40, mainItemID41, mainItemID42, mainItemID43, mainItemID44, mainItemID45}
If getDataResult Then
If Not CompareIDs(registryIDs, knownIDs) Then 'if the IDs don't match, reset the commandGroup
ignorePrevious = True
End If
End If
' Pull-down menu setup
Dim cmdIndex0 As Integer = cmdGroup.AddCommandItem2("VMC - Custom Properties", -1, "Custom Properties", "VMC - Custom Properties", 0, "VMC", "", mainItemID1, menuToolbarOption)
Dim cmdIndex10 As Integer = cmdGroup.AddSpacer2(-1, menuToolbarOption)
Dim cmdIndex24 As Integer = cmdGroup.AddSpacer2(-1, menuToolbarOption)
Dim cmdIndex15 As Integer = cmdGroup.AddCommandItem2("New Drawing", -1, "New Drawing", "New Drawing", 17, "NewDrawing", "", mainItemID14, menuToolbarOption)
Dim cmdIndex22 As Integer = cmdGroup.AddSpacer2(-1, menuToolbarOption)
Dim cmdIndex23 As Integer = cmdGroup.AddCommandItem2("Common Notes", -1, "Common Notes", "Common Notes", 21, "CommonNotes", "", mainItemID21, menuToolbarOption)
Dim cmdIndex31 As Integer = cmdGroup.AddSpacer2(-1, menuToolbarOption)
Dim cmdIndex34 As Integer = cmdGroup.AddCommandItem2("Increment UP", -1, "Increment UP", "Increment UP", 32, "IncrementUP", "", mainItemID29, menuToolbarOption)
Dim cmdIndex35 As Integer = cmdGroup.AddCommandItem2("Increment DOWN", -1, "Increment DOWN", "Increment DOWN", 33, "IncrementDOWN", "", mainItemID30, menuToolbarOption)
Dim cmdIndex36 As Integer = cmdGroup.AddSpacer2(-1, menuToolbarOption)
Dim cmdIndex33 As Integer = cmdGroup.AddCommandItem2("DXF Maker", -1, "DXF Maker", "DXF Maker", 7, "DXFMaker", "", mainItemID28, menuToolbarOption)
Dim cmdIndex32 As Integer = cmdGroup.AddCommandItem2("Bar Stock", -1, "Bar Stock", "Bar Stock", 6, "BarStock", "", mainItemID27, menuToolbarOption)
Dim cmdindex46 As Integer = cmdGroup.AddCommandItem2("Bolt/Nut", -1, "Bolt/Nut", "Bolt/Nut", 34, "BoltNut", "", mainItemID40, menuToolbarOption)
Dim cmdindex51 As Integer = cmdGroup.AddSpacer2(-1, menuToolbarOption)
Dim cmdindex47 As Integer = cmdGroup.AddSpacer2(-1, menuToolbarOption)
Dim cmdindex52 As Integer = cmdGroup.AddCommandItem2("Options", -1, "Options", "Options", 46, "Options", "", mainItemID44, menuToolbarOption)
Dim cmdindex53 As Integer = cmdGroup.AddCommandItem2("About Vermeer Tools", -1, "About Vermeer Tools", "About Vermeer Tools", 46, "AboutVermeerTools", "", mainItemID45, menuToolbarOption)
cmdGroup.HasToolbar = True
cmdGroup.HasMenu = True
cmdGroup.Activate()
' Properties Sub Menu
Dim subMenuTitle As String = String.Format("{0}\\Custom Property Tools", Title)
cmdGroup2 = iCmdMgr.CreateCommandGroup2(cmdGroupID2, subMenuTitle, "Custom Properties Tools", "", 1, ignorePrevious, cmdGroupErr)
cmdGroup2.HasToolbar = True
cmdGroup2.HasMenu = True
cmdGroup2.ShowInDocumentType = swDocTemplateTypes_e.swDocTemplateTypePART + swDocTemplateTypes_e.swDocTemplateTypeASSEMBLY + swDocTemplateTypes_e.swDocTemplateTypeDRAWING
cmdGroup2.LargeIconList = iBmp.CreateFileFromResourceBitmap("VermeerTools.ToolbarLarge.bmp", thisAssembly)
cmdGroup2.SmallIconList = iBmp.CreateFileFromResourceBitmap("VermeerTools.ToolbarSmall.bmp", thisAssembly)
cmdGroup2.LargeMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.MainIconLarge.bmp", thisAssembly)
cmdGroup2.SmallMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.MainIconSmall.bmp", thisAssembly)
Dim cmdIndex1 As Integer = cmdGroup2.AddCommandItem2("Prop Copy", 0, "Prop Copy", "Prop Copy", 9, "PropCopy", "", mainItemID2, menuToolbarOption)
Dim cmdIndex2 As Integer = cmdGroup2.AddCommandItem2("Revision Delete", 1, "Revision Delete", "Revision Delete", 8, "RevisionDelete", "", mainItemID3, menuToolbarOption)
Dim cmdindex48 As Integer = cmdGroup2.AddCommandItem2("Revision Updater", 2, "Revision Updater", "Revision Updater", 35, "RevisionUpdater", "", mainItemID41, menuToolbarOption)
cmdGroup2.Activate()
' Colors Sub Menu
subMenuTitle = String.Format("{0}\\Colors", Title)
cmdGroup3 = iCmdMgr.CreateCommandGroup2(cmdGroupID3, subMenuTitle, "Colors", "", 3, ignorePrevious, cmdGroupErr)
cmdGroup3.ShowInDocumentType = swDocTemplateTypes_e.swDocTemplateTypePART + swDocTemplateTypes_e.swDocTemplateTypeASSEMBLY
cmdGroup3.LargeIconList = iBmp.CreateFileFromResourceBitmap("VermeerTools.ToolbarLarge.bmp", thisAssembly)
cmdGroup3.SmallIconList = iBmp.CreateFileFromResourceBitmap("VermeerTools.ToolbarSmall.bmp", thisAssembly)
cmdGroup3.LargeMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.MainIconLarge.bmp", thisAssembly)
cmdGroup3.SmallMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.MainIconSmall.bmp", thisAssembly)
Dim cmdIndex3 As Integer = cmdGroup3.AddCommandItem2("Random Color", 0, "Random Color", "Random Color", 23, "RandomColor", "", mainItemID4, menuToolbarOption)
Dim cmdIndex4 As Integer = cmdGroup3.AddCommandItem2("Vermeer Yellow", 1, "Vermeer Yellow", "Vermeer Yellow", 24, "VermeerYellow", "", mainItemID5, menuToolbarOption)
Dim cmdIndex5 As Integer = cmdGroup3.AddCommandItem2("Vermeer Black", 2, "Vermeer Black", "Vermeer Black", 25, "VermeerBlack", "", mainItemID6, menuToolbarOption)
Dim cmdIndex6 As Integer = cmdGroup3.AddCommandItem2("Vermeer Green", 3, "Vermeer Green", "Vermeer Green", 26, "VermeerGreen", "", mainItemID7, menuToolbarOption)
Dim cmdIndex7 As Integer = cmdGroup3.AddCommandItem2("Vermeer White", 4, "Vermeer White", "Vermeer White", 27, "VermeerWhite", "", mainItemID8, menuToolbarOption)
Dim cmdIndex8 As Integer = cmdGroup3.AddCommandItem2("Clear Zinc", 5, "Clear Zinc", "Clear Zinc", 47, "ClearZinc", "", mainItemID9, menuToolbarOption)
Dim cmdIndex9 As Integer = cmdGroup3.AddCommandItem2("Yellow Zinc", 6, "Yellow Zinc", "Yellow Zinc", 48, "YellowZinc", "", mainItemID10, menuToolbarOption)
cmdGroup3.HasToolbar = True
cmdGroup3.HasMenu = True
cmdGroup3.Activate()
' Views Sub Menu
subMenuTitle = String.Format("{0}\\Views", Title)
cmdGroup4 = iCmdMgr.CreateCommandGroup2(cmdGroupID4, subMenuTitle, "Colors", "", 18, ignorePrevious, cmdGroupErr)
cmdGroup4.ShowInDocumentType = swDocTemplateTypes_e.swDocTemplateTypePART + swDocTemplateTypes_e.swDocTemplateTypeASSEMBLY + swDocTemplateTypes_e.swDocTemplateTypeDRAWING
cmdGroup4.LargeIconList = iBmp.CreateFileFromResourceBitmap("VermeerTools.ToolbarLarge.bmp", thisAssembly)
cmdGroup4.SmallIconList = iBmp.CreateFileFromResourceBitmap("VermeerTools.ToolbarSmall.bmp", thisAssembly)
cmdGroup4.LargeMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.MainIconLarge.bmp", thisAssembly)
cmdGroup4.SmallMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.MainIconSmall.bmp", thisAssembly)
Dim cmdIndex37 As Integer = cmdGroup4.AddCommandItem2("Front View/Lower Center", 0, "Front View/Lower Center", "Front View/Lower Center", 36, "TWO", "", mainItemID31, swCommandItemType_e.swMenuItem)
Dim cmdIndex38 As Integer = cmdGroup4.AddCommandItem2("Back View/Upper Center", 1, "Back View/Upper Center", "Back View/Upper Center", 37, "EIGHT", "", mainItemID32, swCommandItemType_e.swMenuItem)
Dim cmdIndex39 As Integer = cmdGroup4.AddCommandItem2("Left View/Middle Left", 2, "Left View/Middle Left", "Left View/Middle Left", 38, "FOUR", "", mainItemID33, swCommandItemType_e.swMenuItem)
Dim cmdIndex40 As Integer = cmdGroup4.AddCommandItem2("Right View/Middle Right", 3, "Right View/Middle Right", "Right View/Middle Right", 39, "SIX", "", mainItemID34, swCommandItemType_e.swMenuItem)
Dim cmdIndex41 As Integer = cmdGroup4.AddCommandItem2("Top View/Middle Center", 4, "Top View/Middle Center", "Top View/Middle Center", 40, "FIVE", "", mainItemID35, swCommandItemType_e.swMenuItem)
Dim cmdIndex42 As Integer = cmdGroup4.AddCommandItem2("Top-Left-Front Iso View/Lower Left", 5, "Top-Left-Front Iso View/Lower Left", "Top-Left-Front Iso View/Lower Left", 41, "ONE", "", mainItemID36, swCommandItemType_e.swMenuItem)
Dim cmdIndex43 As Integer = cmdGroup4.AddCommandItem2("Top-Right-Front Iso View/Lower Right", 6, "Top-Right-Front Iso View/Lower Right", "Top-Right-Front Iso View/Lower Right", 42, "THREE", "", mainItemID37, swCommandItemType_e.swMenuItem)
Dim cmdindex44 As Integer = cmdGroup4.AddCommandItem2("Top-Left-Back Iso View/Upper Left", 7, "Top-Left-Back Iso View/Upper Left", "Top-Left-Back Iso View/Upper Left", 44, "SEVEN", "", mainItemID38, swCommandItemType_e.swMenuItem)
Dim cmdindex45 As Integer = cmdGroup4.AddCommandItem2("Top-Right-Back/Upper Right", 8, "Top-Right-Back/Upper Right", "Top-Right-Back/Upper Right", 43, "NINE", "", mainItemID39, swCommandItemType_e.swMenuItem)
cmdGroup4.HasToolbar = True
cmdGroup4.HasMenu = True
cmdGroup4.Activate()
' Tools Sub Menu
subMenuTitle = String.Format("{0}\\Tools", Title)
cmdGroup5 = iCmdMgr.CreateCommandGroup2(cmdGroupID5, subMenuTitle, "Colors", "", 19, ignorePrevious, cmdGroupErr)
cmdGroup5.ShowInDocumentType = swDocTemplateTypes_e.swDocTemplateTypePART + swDocTemplateTypes_e.swDocTemplateTypeASSEMBLY + swDocTemplateTypes_e.swDocTemplateTypeDRAWING
cmdGroup5.LargeIconList = iBmp.CreateFileFromResourceBitmap("VermeerTools.ToolbarLarge.bmp", thisAssembly)
cmdGroup5.SmallIconList = iBmp.CreateFileFromResourceBitmap("VermeerTools.ToolbarSmall.bmp", thisAssembly)
cmdGroup5.LargeMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.MainIconLarge.bmp", thisAssembly)
cmdGroup5.SmallMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.MainIconSmall.bmp", thisAssembly)
Dim cmdIndex11 As Integer = cmdGroup5.AddCommandItem2("PDM Complete Search", 0, "PDM Complete Search", "PDM Complete Search", 1, "PDMCompleteSearch", "", mainItemID11, menuToolbarOption)
Dim cmdIndex12 As Integer = cmdGroup5.AddCommandItem2("PDM Addin On/Off", 1, "PDM Addin On/Off", "PDM Addin On/Off", 2, "PDMAddIn", "", mainItemID12, menuToolbarOption)
Dim cmdIndex13 As Integer = cmdGroup5.AddCommandItem2("Item Link", 2, "Item Link", "Item Link", 3, "ItemLink", "", mainItemID13, menuToolbarOption)
Dim cmdIndex14 As Integer = cmdGroup5.AddSpacer2(3, menuToolbarOption)
Dim cmdIndex25 As Integer = cmdGroup5.AddCommandItem2("Coincident", 4, "Coincident", "Coincident", 14, "Coincident", "", mainItemID22, menuToolbarOption)
Dim cmdIndex26 As Integer = cmdGroup5.AddCommandItem2("Concentric", 5, "Concentric", "Concentric", 15, "Concentric", "", mainItemID23, menuToolbarOption)
Dim cmdIndex27 As Integer = cmdGroup5.AddCommandItem2("Parallel", 6, "Parallel", "Parallel", 16, "Parallel", "", mainItemID24, menuToolbarOption)
Dim cmdIndex28 As Integer = cmdGroup5.AddSpacer2(7, menuToolbarOption)
Dim cmdIndex29 As Integer = cmdGroup5.AddCommandItem2("Tangent Edges", 8, "Tangent Edges", "Tangent Edges", 11, "TangentEdges", "", mainItemID25, menuToolbarOption)
Dim cmdIndex30 As Integer = cmdGroup5.AddCommandItem2("Flip", 9, "Flip", "Flip", 12, "Flip", "", mainItemID26, menuToolbarOption)
cmdGroup5.HasToolbar = True
cmdGroup5.HasMenu = True
cmdGroup5.Activate()
' BETA Sub Menu
subMenuTitle = String.Format("{0}\\BETA", Title)
cmdGroup6 = iCmdMgr.CreateCommandGroup2(cmdGroupID6, subMenuTitle, "Colors", "", 20, ignorePrevious, cmdGroupErr)
cmdGroup6.ShowInDocumentType = swDocTemplateTypes_e.swDocTemplateTypePART + swDocTemplateTypes_e.swDocTemplateTypeASSEMBLY + swDocTemplateTypes_e.swDocTemplateTypeDRAWING
cmdGroup6.LargeIconList = iBmp.CreateFileFromResourceBitmap("VermeerTools.ToolbarLarge.bmp", thisAssembly)
cmdGroup6.SmallIconList = iBmp.CreateFileFromResourceBitmap("VermeerTools.ToolbarSmall.bmp", thisAssembly)
cmdGroup6.LargeMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.MainIconLarge.bmp", thisAssembly)
cmdGroup6.SmallMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.MainIconSmall.bmp", thisAssembly)
Dim cmdindex49 As Integer = cmdGroup6.AddCommandItem2("Create Configurations BETA", 0, "Create Configurations", "Create Configurations", 45, "CreateConfigurations", "", mainItemID42, menuToolbarOption)
Dim cmdindex50 As Integer = cmdGroup6.AddCommandItem2("Create Cut View Configuration BETA", 1, "Create Sheet Metal Cut View Configuration", "Create Sheet Metal Cut View Configuration", 45, "CreateCutViewConfiguration", "", mainItemID43, menuToolbarOption)
cmdGroup6.HasToolbar = True
cmdGroup6.HasMenu = True
cmdGroup6.Activate()
' Drawing Tools Sub Menu
subMenuTitle = String.Format("{0}\\Drawing Tools", Title)
cmdGroup7 = iCmdMgr.CreateCommandGroup2(cmdGroupID7, subMenuTitle, "Colors", "", 7, ignorePrevious, cmdGroupErr)
cmdGroup7.ShowInDocumentType = swDocTemplateTypes_e.swDocTemplateTypeDRAWING
cmdGroup7.LargeIconList = iBmp.CreateFileFromResourceBitmap("VermeerTools.ToolbarLarge.bmp", thisAssembly)
cmdGroup7.SmallIconList = iBmp.CreateFileFromResourceBitmap("VermeerTools.ToolbarSmall.bmp", thisAssembly)
cmdGroup7.LargeMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.MainIconLarge.bmp", thisAssembly)
cmdGroup7.SmallMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.MainIconSmall.bmp", thisAssembly)
Dim cmdIndex16 As Integer = cmdGroup7.AddCommandItem2("Copy Drawing", 0, "Copy Drawing", "Copy Drawing", 49, "CopyDrawing", "", mainItemID15, menuToolbarOption)
Dim cmdIndex17 As Integer = cmdGroup7.AddCommandItem2("Insert Flat View", 1, "Insert Flat View", "Insert Flat View", 18, "InsertFlatView", "", mainItemID16, menuToolbarOption)
Dim cmdIndex20 As Integer = cmdGroup7.AddCommandItem2("Reload Sheet", 2, "Reload Sheet", "Reload Sheet", 20, "ReloadSheet", "", mainItemID19, menuToolbarOption)
Dim cmdIndex21 As Integer = cmdGroup7.AddCommandItem2("Copy BOM", 3, "Copy BOM", "Copy BOM", 50, "CopyBOM", "", mainItemID20, menuToolbarOption)
cmdGroup7.HasToolbar = True
cmdGroup7.HasMenu = True
cmdGroup7.Activate()
' Hose/Tube Drawing Sub Menu
subMenuTitle = String.Format("{0}\\Hose/Tube Drawing", Title)
cmdGroup8 = iCmdMgr.CreateCommandGroup2(cmdGroupID8, subMenuTitle, "Hose/Tube Drawing", "", 7, ignorePrevious, cmdGroupErr)
cmdGroup8.ShowInDocumentType = swDocTemplateTypes_e.swDocTemplateTypeDRAWING
cmdGroup8.LargeIconList = iBmp.CreateFileFromResourceBitmap("VermeerTools.ToolbarLarge.bmp", thisAssembly)
cmdGroup8.SmallIconList = iBmp.CreateFileFromResourceBitmap("VermeerTools.ToolbarSmall.bmp", thisAssembly)
cmdGroup8.LargeMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.MainIconLarge.bmp", thisAssembly)
cmdGroup8.SmallMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.MainIconSmall.bmp", thisAssembly)
Dim cmdIndex18 As Integer = cmdGroup8.AddCommandItem2("Hose Drawing", -1, "Hose Drawing", "HoseDraing", 0, "HoseDrawing", "", mainItemID17, menuToolbarOption)
Dim cmdIndex19 As Integer = cmdGroup8.AddCommandItem2("Tube Drawing", -1, "Tube Drawing", "Tube Drawing", 1, "TubeDrawing", "", mainItemID18, menuToolbarOption)
cmdGroup8.HasToolbar = True
cmdGroup8.HasMenu = True
cmdGroup8.Activate()
Dim flyGroupVMC As FlyoutGroup
cmdGroup.LargeMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.VMCMainIconLarge.bmp", thisAssembly)
cmdGroup.SmallMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.VMCMainIconSmall.bmp", thisAssembly)
flyGroupVMC = iCmdMgr.CreateFlyoutGroup(flyoutGroupID1, "VMC", "VMC", "VMC", _
cmdGroup.SmallMainIcon, cmdGroup.LargeMainIcon, cmdGroup.SmallIconList, _
cmdGroup.LargeIconList, "FlyoutCallbackVMC", "FlyoutEnable")
flyGroupVMC.AddCommandItem("VMC", "VMC", 0, "VMC", "FlyoutEnableCommandItem1")
flyGroupVMC.AddCommandItem("Prop Copy", "Prop Copy", 9, "PropCopy", "FlyoutEnableCommandItem1")
flyGroupVMC.AddCommandItem("Revision Delete", "Revision Delete", 8, "RevisionDelete", "FlyoutEnableCommandItem1")
flyGroupVMC.FlyoutType = swCommandFlyoutStyle_e.swCommandFlyoutStyle_Simple
Dim flyGroupColors As FlyoutGroup
cmdGroup.LargeMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.ColorsMainIconLarge.bmp", thisAssembly)
cmdGroup.SmallMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.ColorsMainIconSmall.bmp", thisAssembly)
flyGroupColors = iCmdMgr.CreateFlyoutGroup(flyoutGroupID2, "Vermeer Colors", "Vermeer Colors", "Vermeer Colors", _
cmdGroup.SmallMainIcon, cmdGroup.LargeMainIcon, cmdGroup.SmallIconList, _
cmdGroup.LargeIconList, "FlyoutCallbackColors", "FlyoutEnable")
flyGroupColors.AddCommandItem("Random Color", "Random Color", 23, "RandomColor", "FlyoutEnableCommandItem1")
flyGroupColors.AddCommandItem("Vermeer Yellow", "Vermeer Yellow", 24, "VermeerYellow", "FlyoutEnableCommandItem1")
flyGroupColors.AddCommandItem("Vermeer Black", "Vermeer Black", 25, "VermeerBlack", "FlyoutEnableCommandItem1")
flyGroupColors.AddCommandItem("Vermeer Green", "Vermeer Green", 26, "VermeerGreen", "FlyoutEnableCommandItem1")
flyGroupColors.AddCommandItem("Vermeer White", "Vermeer White", 27, "VermeerWhite", "FlyoutEnableCommandItem1")
flyGroupColors.AddCommandItem("Vermeer Red", "Vermeer Red", 28, "VermeerRed", "FlyoutEnableCommandItem1")
flyGroupColors.AddCommandItem("Clear Zinc", "Clear Zinc", 47, "ClearZinc", "FlyoutEnableCommandItem1")
flyGroupColors.AddCommandItem("Yellow Zinc", "Yellow Zinc", 48, "YellowZinc", "FlyoutEnableCommandItem1")
flyGroupColors.FlyoutType = swCommandFlyoutStyle_e.swCommandFlyoutStyle_Simple
Dim flyGroupNotes As FlyoutGroup
cmdGroup.LargeMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.NotesMainIconLarge.bmp", thisAssembly)
cmdGroup.SmallMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.NotesMainIconSmall.bmp", thisAssembly)
flyGroupNotes = iCmdMgr.CreateFlyoutGroup(flyoutGroupID3, "Common Notes", "Common Notes", "Common Notes", _
cmdGroup.SmallMainIcon, cmdGroup.LargeMainIcon, cmdGroup.SmallIconList, _
cmdGroup.LargeIconList, "FlyoutCallbackNotes", "FlyoutEnable")
flyGroupNotes.AddCommandItem("Common Notes", "Common Notes", 21, "CommonNotes", "FlyoutEnableCommandItem1")
flyGroupNotes.AddCommandItem("English", "English Notes", 29, "EnglishNotes", "FlyoutEnableCommandItem1")
flyGroupNotes.AddCommandItem("Dutch", "Dutch Notes", 30, "DutchNotes", "FlyoutEnableCommandItem1")
flyGroupNotes.AddCommandItem("Chinese", "Chinese Notes", 31, "ChineseNotes", "FlyoutEnableCommandItem1")
flyGroupNotes.FlyoutType = swCommandFlyoutStyle_e.swCommandFlyoutStyle_Simple
Dim flyGroupHoseDrawing As FlyoutGroup
cmdGroup.LargeMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.HoseDrawingMainIconLarge.bmp", thisAssembly)
cmdGroup.SmallMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.HoseDrawingMainIconSmall.bmp", thisAssembly)
flyGroupHoseDrawing = iCmdMgr.CreateFlyoutGroup(flyoutGroupID4, "Hose Drawing", "Hose Drawing", "Hose Drawing", _
cmdGroup.SmallMainIcon, cmdGroup.LargeMainIcon, cmdGroup.SmallIconList, _
cmdGroup.LargeIconList, "FlyoutCallbackHoseDrawing", "FlyoutEnable")
flyGroupHoseDrawing.AddCommandItem("New Hose Drawing", "New Hose Drawing", 4, "HoseDrawing", "FlyoutEnableCommandItem1")
flyGroupHoseDrawing.AddCommandItem("Edit Hose Drawing", "Edit Hose Drawing", 4, "EditHoseDrawing", "FlyoutEnableCommandItem1")
flyGroupHoseDrawing.FlyoutType = swCommandFlyoutStyle_e.swCommandFlyoutStyle_Simple
Dim flyGroupTubeDrawing As FlyoutGroup
cmdGroup.LargeMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.TubeDrawingMainIconLarge.bmp", thisAssembly)
cmdGroup.SmallMainIcon = iBmp.CreateFileFromResourceBitmap("VermeerTools.TubeDrawingMainIconSmall.bmp", thisAssembly)
flyGroupTubeDrawing = iCmdMgr.CreateFlyoutGroup(flyoutGroupID5, "Tube Drawing", "Tube Drawing", "Tube Drawing", _
cmdGroup.SmallMainIcon, cmdGroup.LargeMainIcon, cmdGroup.SmallIconList, _
cmdGroup.LargeIconList, "FlyoutCallbackTubeDrawing", "FlyoutEnable")
flyGroupTubeDrawing.AddCommandItem("New Tube Drawing", "New Tube Drawing", 5, "TubeDrawing", "FlyoutEnableCommandItem1")
flyGroupTubeDrawing.AddCommandItem("Edit Tube Drawing", "Edit Tube Drawing", 5, "EditTubeDrawing", "FlyoutEnableCommandItem1")
flyGroupTubeDrawing.FlyoutType = swCommandFlyoutStyle_e.swCommandFlyoutStyle_Simple
' Command Manager setup
For Each docType As Integer In docTypes
Dim cmdTab As ICommandTab = iCmdMgr.GetCommandTab(docType, Title)
Dim bResult As Boolean
If Not cmdTab Is Nothing And Not getDataResult Or ignorePrevious Then 'if tab exists, but we have ignored the registry info, re-create the tab. Otherwise the ids won't matchup and the tab will be blank
Dim res As Boolean = iCmdMgr.RemoveCommandTab(cmdTab)
cmdTab = Nothing
End If
If cmdTab Is Nothing Then
cmdTab = iCmdMgr.AddCommandTab(docType, Title)
Dim cmdBox As CommandTabBox = cmdTab.AddCommandTabBox
Dim cmdIDs(1) As Integer
Dim TextType(1) As Integer
cmdIDs(0) = flyGroupVMC.CmdID
TextType(0) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
cmdIDs(1) = flyGroupColors.CmdID
TextType(1) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
bResult = cmdBox.AddCommands(cmdIDs, TextType)
Dim cmdBox1 As CommandTabBox = cmdTab.AddCommandTabBox()
ReDim cmdIDs(3)
ReDim TextType(3)
cmdIDs(0) = cmdGroup.CommandID(cmdIndex11)
TextType(0) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
cmdIDs(1) = cmdGroup.CommandID(cmdIndex12)
TextType(1) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
cmdIDs(2) = cmdGroup.CommandID(cmdIndex13)
TextType(2) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
bResult = cmdBox1.AddCommands(cmdIDs, TextType)
cmdTab.AddSeparator(cmdBox1, cmdIDs(0))
Dim cmdBox2 As CommandTabBox = cmdTab.AddCommandTabBox()
ReDim cmdIDs(7)
ReDim TextType(7)
cmdIDs(0) = cmdGroup.CommandID(cmdIndex14)
TextType(0) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
cmdIDs(1) = cmdGroup.CommandID(cmdIndex15)
TextType(1) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
cmdIDs(2) = cmdGroup.CommandID(cmdIndex16)
TextType(2) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
cmdIDs(3) = flyGroupHoseDrawing.CmdID
TextType(3) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
cmdIDs(4) = flyGroupTubeDrawing.CmdID
TextType(4) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
cmdIDs(5) = cmdGroup.CommandID(cmdIndex20)
TextType(5) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
cmdIDs(6) = cmdGroup.CommandID(cmdIndex21)
TextType(6) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
bResult = cmdBox2.AddCommands(cmdIDs, TextType)
cmdTab.AddSeparator(cmdBox2, cmdIDs(0))
Dim cmdBox3 As CommandTabBox = cmdTab.AddCommandTabBox()
ReDim cmdIDs(3)
ReDim TextType(3)
cmdIDs(0) = flyGroupNotes.CmdID
TextType(0) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
cmdIDs(1) = cmdGroup.CommandID(cmdIndex34)
TextType(1) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
cmdIDs(2) = cmdGroup.CommandID(cmdIndex35)
TextType(2) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
bResult = cmdBox3.AddCommands(cmdIDs, TextType)
cmdTab.AddSeparator(cmdBox3, cmdIDs(0))
Dim cmdBox4 As CommandTabBox = cmdTab.AddCommandTabBox()
ReDim cmdIDs(3)
ReDim TextType(3)
cmdIDs(0) = cmdGroup.CommandID(cmdIndex25)
TextType(0) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
cmdIDs(1) = cmdGroup.CommandID(cmdIndex26)
TextType(1) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
cmdIDs(2) = cmdGroup.CommandID(cmdIndex27)
TextType(2) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
bResult = cmdBox4.AddCommands(cmdIDs, TextType)
cmdTab.AddSeparator(cmdBox4, cmdIDs(0))
Dim cmdBox5 As CommandTabBox = cmdTab.AddCommandTabBox()
ReDim cmdIDs(2)
ReDim TextType(2)
cmdIDs(0) = cmdGroup.CommandID(cmdIndex29)
TextType(0) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
cmdIDs(1) = cmdGroup.CommandID(cmdIndex30)
TextType(1) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
bResult = cmdBox5.AddCommands(cmdIDs, TextType)
cmdTab.AddSeparator(cmdBox5, cmdIDs(0))
Dim cmdBox6 As CommandTabBox = cmdTab.AddCommandTabBox()
ReDim cmdIDs(3)
ReDim TextType(3)
cmdIDs(0) = cmdGroup.CommandID(cmdIndex32)
TextType(0) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
cmdIDs(1) = cmdGroup.CommandID(cmdIndex33)
TextType(1) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
cmdIDs(2) = cmdGroup.CommandID(cmdindex46)
TextType(2) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
bResult = cmdBox6.AddCommands(cmdIDs, TextType)
cmdTab.AddSeparator(cmdBox6, cmdIDs(0))
'Dim cmdBox7 As CommandTabBox = cmdTab.AddCommandTabBox()
'ReDim cmdIDs(2)
'ReDim TextType(2)
'cmdIDs(0) = cmdGroup.CommandID(cmdIndex32)
'TextType(0) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
'cmdIDs(1) = cmdGroup.CommandID(cmdIndex33)
'TextType(1) = swCommandTabButtonTextDisplay_e.swCommandTabButton_TextBelow
'bResult = cmdBox7.AddCommands(cmdIDs, TextType)
'cmdTab.AddSeparator(cmdBox7, cmdIDs(0))
End If
Next
thisAssembly = Nothing
Catch ex As Exception
End Try
End Sub
SolidworksApi macros