Code:
Option Explicit
Implements SWPublished.SwAddin
Public swApp As SldWorks.SldWorks
Public swCookie As Long
Public swToolbarID As Long
Private Function SwAddin_ConnectToSW(ByVal ThisSW As Object, ByVal Cookie As Long) As Boolean
Set swApp = ThisSW
swCookie = Cookie
swApp.SetAddinCallbackInfo App.hInstance, Me, swCookie
'----------------------------------------------------------------------------------------------------------
'PART-Menü
swApp.AddMenu swDocPART, "KME", 5
'Menu Dichte/Masse erstellen
' swApp.AddMenuItem3 swDocPART, swCookie, "Dichte/Masse...@KME", -1, "MenuPunkt_Dichte_Masse", "", "", ""
'Menu Massenmittelpunkt erstellen
swApp.AddMenuItem3 swDocPART, swCookie, "Massenmittelpunkt setzen@KME", -1, "MenuPunkt_Schwerpunkt", "", "", ""
'Menu Toleranz erstellen
swApp.AddMenuItem3 swDocPART, swCookie, "Toleranz...@KME", -1, "MenuPunkt_Toleranz", "", "", ""
'Menu ---------- erstellen
swApp.AddMenuItem3 swDocPART, swCookie, "@KME", -1, "MenuPunkt_Info", "", "", ""
'Menu Gewindedaten erstellen
swApp.AddMenuItem3 swDocPART, swCookie, "Gewindedaten anzeigen@KME", -1, "MenuPunkt_Gewindedaten", "", "", ""
'Menu APA's erstellen
swApp.AddMenuItem3 swDocPART, swCookie, "APA's@KME", -1, "", "", "", ""
'UnterMenu APA's - APA-SE-100 erstellen
swApp.AddMenuItem3 swDocPART, swCookie, "APA-SE-100 (Z.-Nr.)...@APA's@KME", -1, "MenuPunkt_APA_SE_100", "", "", ""
'UnterMenu APA's - APA-SE-102 erstellen
swApp.AddMenuItem3 swDocPART, swCookie, "APA-SE-102 (3D)...@APA's@KME", -1, "MenuPunkt_APA_SE_102", "", "", ""
'separator
swApp.AddMenuItem3 swDocPART, swCookie, "@APA's@KME", -1, "MenuPunkt_Info", "", "", ""
'UnterMenu APA's - APA-SE-607 erstellen
swApp.AddMenuItem3 swDocPART, swCookie, "APA-SE-607 (Koki-Rohrtol.'s)...@APA's@KME", -1, "MenuPunkt_APA_SE_607", "", "", ""
'Menu Info erstellen
swApp.AddMenuItem3 swDocPART, swCookie, "Info...@KME", -1, "MenuPunkt_Info", "", "", ""
'----------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------
'assembly-Menü
swApp.AddMenu swDocASSEMBLY, "KME", 5
'Menu Dichte/Masse erstellen
' swApp.AddMenuItem3 swDocASSEMBLY, swCookie, "Dichte/Masse...@KME", -1, "MenuPunkt_Dichte_Masse", "", "", ""
'Menu Massenmittelpunkt erstellen
swApp.AddMenuItem3 swDocASSEMBLY, swCookie, "Massenmittelpunkt setzen@KME", -1, "MenuPunkt_Schwerpunkt", "", "", ""
'Menu Toleranz erstellen
swApp.AddMenuItem3 swDocASSEMBLY, swCookie, "Toleranz...@KME", -1, "MenuPunkt_Toleranz", "", "", ""
'Menu ---------- erstellen
swApp.AddMenuItem3 swDocASSEMBLY, swCookie, "@KME", -1, "MenuPunkt_Info", "", "", ""
'Menu Gewindedaten erstellen
swApp.AddMenuItem3 swDocASSEMBLY, swCookie, "Gewindedaten anzeigen@KME", -1, "MenuPunkt_Gewindedaten", "", "", ""
'Menu APA's erstellen
swApp.AddMenuItem3 swDocASSEMBLY, swCookie, "APA's@KME", -1, "", "", "", ""
'UnterMenu APA's - APA-SE-100 erstellen
swApp.AddMenuItem3 swDocASSEMBLY, swCookie, "APA-SE-100 (Z.-Nr.)...@APA's@KME", -1, "MenuPunkt_APA_SE_100", "", "", ""
'UnterMenu APA's - APA-SE-102 erstellen
swApp.AddMenuItem3 swDocASSEMBLY, swCookie, "APA-SE-102 (3D)...@APA's@KME", -1, "MenuPunkt_APA_SE_102", "", "", ""
'separator
swApp.AddMenuItem3 swDocASSEMBLY, swCookie, "@APA's@KME", -1, "MenuPunkt_Info", "", "", ""
'UnterMenu APA's - APA-SE-607 erstellen
swApp.AddMenuItem3 swDocASSEMBLY, swCookie, "APA-SE-607 (Koki-Rohrtol.'s)...@APA's@KME", -1, "MenuPunkt_APA_SE_607", "", "", ""
'Menu Info erstellen
swApp.AddMenuItem3 swDocASSEMBLY, swCookie, "Info...@KME", -1, "MenuPunkt_Info", "", "", ""
'----------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------
'drawing-Menü
swApp.AddMenu swDocDRAWING, "KME", 6
'Menu Toleranz erstellen
swApp.AddMenuItem3 swDocDRAWING, swCookie, "Toleranz...@KME", -1, "MenuPunkt_Toleranz", "", "", ""
'Menu ---------- erstellen
swApp.AddMenuItem3 swDocDRAWING, swCookie, "@KME", -1, "MenuPunkt_Info", "", "", ""
'Menu Gewindedaten erstellen
swApp.AddMenuItem3 swDocDRAWING, swCookie, "Gewindedaten anzeigen@KME", -1, "MenuPunkt_Gewindedaten", "", "", ""
'separator
swApp.AddMenuItem3 swDocDRAWING, swCookie, "@KME", -1, "MenuPunkt_Info", "", "", ""
'Menu PRO.FILE erstellen
swApp.AddMenuItem3 swDocDRAWING, swCookie, "PRO.FILE@KME", -1, "", "", "", ""
'UnterMenu PRO.FILE - Blattvorlage aktualisieren erstellen
swApp.AddMenuItem3 swDocDRAWING, swCookie, "Blattvorlage aktualisieren@PRO.FILE@KME", -1, "MenuPunkt_Blattvorlage_aktualisieren", "", "", ""
'separator
swApp.AddMenuItem3 swDocDRAWING, swCookie, "@KME", -1, "MenuPunkt_Info", "", "", ""
'Menu APA's erstellen
swApp.AddMenuItem3 swDocDRAWING, swCookie, "APA's@KME", -1, "", "", "", ""
'UnterMenu APA's - APA-SE-100 erstellen
swApp.AddMenuItem3 swDocDRAWING, swCookie, "APA-SE-100 (Z.-Nr.)...@APA's@KME", -1, "MenuPunkt_APA_SE_100", "", "", ""
'UnterMenu APA's - APA-SE-102 erstellen
swApp.AddMenuItem3 swDocDRAWING, swCookie, "APA-SE-102 (3D)...@APA's@KME", -1, "MenuPunkt_APA_SE_102", "", "", ""
'separator
swApp.AddMenuItem3 swDocDRAWING, swCookie, "@APA's@KME", -1, "MenuPunkt_Info", "", "", ""
'UnterMenu APA's - APA-SE-607 erstellen
swApp.AddMenuItem3 swDocDRAWING, swCookie, "APA-SE-607 (Koki-Rohrtol.'s)...@APA's@KME", -1, "MenuPunkt_APA_SE_607", "", "", ""
'Menu Info erstellen
swApp.AddMenuItem3 swDocDRAWING, swCookie, "Info...@KME", -1, "MenuPunkt_Info", "", "", ""
'----------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------
'none-Menü
swApp.AddMenu swDocNONE, "KME", 4
'Menu Gewindedaten erstellen
swApp.AddMenuItem3 swDocNONE, swCookie, "Gewindedaten anzeigen@KME", -1, "MenuPunkt_Gewindedaten", "", "", ""
'Menu APA's erstellen
swApp.AddMenuItem3 swDocNONE, swCookie, "APA's@KME", -1, "", "", "", ""
'UnterMenu APA's - APA-SE-100 erstellen
swApp.AddMenuItem3 swDocNONE, swCookie, "APA-SE-100 (Z.-Nr.)...@APA's@KME", -1, "MenuPunkt_APA_SE_100", "", "", ""
'UnterMenu APA's - APA-SE-102 erstellen
swApp.AddMenuItem3 swDocNONE, swCookie, "APA-SE-102 (3D)...@APA's@KME", -1, "MenuPunkt_APA_SE_102", "", "", ""
'separator
swApp.AddMenuItem3 swDocNONE, swCookie, "@APA's@KME", -1, "MenuPunkt_Info", "", "", ""
'UnterMenu APA's - APA-SE-607 erstellen
swApp.AddMenuItem3 swDocNONE, swCookie, "APA-SE-607 (Koki-Rohrtol.'s)...@APA's@KME", -1, "MenuPunkt_APA_SE_607", "", "", ""
'Menu Info erstellen
swApp.AddMenuItem3 swDocNONE, swCookie, "Info...@KME", -1, "MenuPunkt_Info", "", "", ""
'----------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------
'sdm-Menü
swApp.AddMenu swDocSDM, "KME", 4
'Menu Gewindedaten erstellen
swApp.AddMenuItem3 swDocSDM, swCookie, "Gewindedaten anzeigen@KME", -1, "MenuPunkt_Gewindedaten", "", "", ""
'Menu APA's erstellen
swApp.AddMenuItem3 swDocSDM, swCookie, "APA's@KME", -1, "", "", "", ""
'UnterMenu APA's - APA-SE-100 erstellen
swApp.AddMenuItem3 swDocSDM, swCookie, "APA-SE-100 (Z.-Nr.)...@APA's@KME", -1, "MenuPunkt_APA_SE_100", "", "", ""
'separator
swApp.AddMenuItem3 swDocSDM, swCookie, "@APA's@KME", -1, "MenuPunkt_Info", "", "", " "
'UnterMenu APA's - APA-SE-102 erstellen
swApp.AddMenuItem3 swDocSDM, swCookie, "APA-SE-102 (3D)...@APA's@KME", -1, "MenuPunkt_APA_SE_102", "", "", ""
'separator
swApp.AddMenuItem3 swDocSDM, swCookie, "@APA's@KME", -1, "MenuPunkt_Info", "", "", ""
'UnterMenu APA's - APA-SE-607 erstellen
swApp.AddMenuItem3 swDocSDM, swCookie, "APA-SE-607 (Koki-Rohrtol.'s)...@APA's@KME", -1, "MenuPunkt_APA_SE_607", "", "", ""
'Menu Info erstellen
swApp.AddMenuItem3 swDocSDM, swCookie, "Info...@KME", -1, "MenuPunkt_Info", "", "", ""
'----------------------------------------------------------------------------------------------------------
'--------------------
'Toolbar
swToolbarID = swApp.AddToolbar4(swCookie, "KME", _
"V:\SolidWorks\KME-Menue\SolidWorks-KME-Menü2005\KMEMenue\Bilder\KME_Toolbar_256_klein.bmp", _
"", -1, _
swDocTemplateTypeNONE + swDocTemplateTypePART + swDocTemplateTypeASSEMBLY + swDocTemplateTypeDRAWING)
' swApp.AddToolbarCommand2 swCookie, swToolbarID, 0, "MenuPunkt_Dichte_Masse", "1", "Dichte/Masse", "Setzt die Dichte von Teilen"
swApp.AddToolbarCommand2 swCookie, swToolbarID, 0, "MenuPunkt_Schwerpunkt", "1", "Massenmittelpunkt setzen", "Zeichnet den Massenmittelpunkt ins Modell"
swApp.AddToolbarCommand2 swCookie, swToolbarID, 1, "MenuPunkt_Toleranz", "1", "Toleranz auf Mittenmaß", "Setzt Maße auf die Mitte der Toleranzangabe"
swApp.AddToolbarCommand2 swCookie, swToolbarID, 2, "MenuPunkt_Gewindedaten", "1", "Gewindedaten", "Zeigt Gewindedaten an (Excel)"
swApp.AddToolbarCommand2 swCookie, swToolbarID, 3, "MenuPunkt_Blattvorlage_aktualisieren", "1", "Blattvorlage aktualisieren", "Aktualisiert die Blattvorlage für PROFILE"
swApp.AddToolbarCommand2 swCookie, swToolbarID, 4, "MenuPunkt_APAs", "1", "APA's anzeigen", "Zeigt alle APA's von SEe"
'To create a separator, all of the method's string parameters
'(ButtonCallback, ButtonEnableMethod, ToolTip, and HintString) must be blank strings.
'A bitmap button must still be defined in the add-in's resources, but it will not be used.
swApp.AddToolbarCommand2 swCookie, swToolbarID, 5, "", "", "", ""
swApp.AddToolbarCommand2 swCookie, swToolbarID, 6, "MenuPunkt_Info", "1", "Info anzeigen", "Gibt Info's zum KME-Menue aus"
swApp.ShowToolbar2 swCookie, swToolbarID
End Function
Private Function SwAddin_DisconnectFromSW() As Boolean
swApp.RemoveMenu swDocPART, "KME", ""
swApp.RemoveMenu swDocASSEMBLY, "KME", ""
swApp.RemoveMenu swDocDRAWING, "KME", ""
swApp.RemoveMenu swDocNONE, "KME", ""
swApp.RemoveMenu swDocSDM, "KME", ""
swApp.RemoveToolbar2 swCookie, swToolbarID
' bRet = ISldWorks.RemoveToolbar2(iCookie, iToolbarID)
End Function
Public Sub MenuPunkt_Dichte_Masse()
Call Dichte_Masse
End Sub
Public Sub MenuPunkt_Toleranz()
Call Toleranz
End Sub