---

ReiterbeigeoffneterZeichnung.PNG

Hallo liebe Gemeinde

Ich habe verschieden AddIns erstellt die im Reiter Zusatzmodule angezeigt werden.
(Siehe Anhang)

Dazu meine Frage....kann ich das "Allgemein" was unter meinen Schaltflächen steht umbenennen?

Kann ich die Benenennung des Reiters "zusatzmodule" umbenennen?

MfG Felix

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hey Felix,

du hast doch das Ribbonpanel("Allgemein") selbst erstellt, oder? Bei mir in der Leiste ist unter Zusatzmodule kein Ribbonpanel "Allgemein" drin.

Ob du den Ribbontab "Zusatzmodule" umbenennen kannst weiß ich nicht. Aber mach dir doch einfach einen eigenen Tab.

Code:

---

    Dim oPartRibbon As Ribbon
    oPartRibbon = m_inventorapplication.UserInterfaceManager.Ribbons.Item("DrawingDoc")

 
    Dim oTab As RibbonTab
    oTab = oPartRibbon.RibbonTabs.Add("MEINEADDINS")

---

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Chris für die Schnelle Antwort.

Ne ich hab kein eigenes Ripponpanel "Allgemein" erstellt soweit ich weis....

Hier is der Code:

Public Sub Activate(ByVal addInSiteObject As Inventor.ApplicationAddInSite, ByVal firstTime As Boolean) Implements Inventor.ApplicationAddInServer.Activate

            ' This method is called by Inventor when it loads the AddIn.
            ' The AddInSiteObject provides access to the Inventor Application object.
            ' The FirstTime flag indicates if the AddIn is loaded for the first time.

            ' Initialize AddIn members.
            m_inventorApplication = addInSiteObject.Application

            ' TODO:  Add ApplicationAddInServer.Activate implementation.
            ' e.g. event initialization, command creation etc.

            ' Convert the Image to a Picture.
            Dim pictureZei As Object
            Dim picturePDF As Object
            Dim pictureKollision As Object

            pictureZei = PictureDispConverter.ToIPictureDisp(My.Resources.Zeichnung)

            picturePDF = PictureDispConverter.ToIPictureDisp(My.Resources.PDF)

            pictureKollision = PictureDispConverter.ToIPictureDisp(My.Resources.Kollision)

            ' Create the button definition.
            Dim controlDefs As ControlDefinitions
            controlDefs = m_inventorApplication.CommandManager.ControlDefinitions

            'Buttons auf Zeichnung

            m_featureZeichnungsinformationenButtonDef = controlDefs.AddButtonDefinition("Zeichnungsinformationen ändern", _
                                                                            "BAddInZeichnungsinformationen", _
                                                                    CommandTypesEnum.kQueryOnlyCmdType, _
                                                                    m_ClientID, _
                                                                  "Ändern der Zeichnungsinformationen", _
                                                                "Ändern der Zeichnungsinformationen", _
                                                                pictureZei)

            m_featureFertigungsPrüfbedingungenButtonDef = controlDefs.AddButtonDefinition("Fertigungs- und Prüfbedingungen", _
                                                                                        "BAddInFertigungsPrüfbedingungen", _
                                                                                    CommandTypesEnum.kQueryOnlyCmdType, _
                                                                                m_ClientID, _
                                                                            "Ändern der Fertigungs- und Prüfbedingungen", _
                                                                        "Auswählen & ändern der Fertigungs- und Prüfbedingungen", _
                                                                    pictureZei)

            m_featurePNummerButtonDef = controlDefs.AddButtonDefinition("P-Nummern ändern", _
                                                                        "BAddInPNummer", _
                                                                    CommandTypesEnum.kQueryOnlyCmdType, _
                                                                m_ClientID, _
                                                                "Ändern der P-Nummer Des Kompensators", _
                                                            "P-Nummer des Kompensators änder" & vbCrLf & _
                                                          "Geht nur mit ändern oder neu anlegen der Dateien", _
                                                        pictureZei)

            m_featureTeileNummernButtonDef = controlDefs.AddButtonDefinition("Teilenummern ändern", _
                                                                            "BAddInTeileNummern", _
                                                                          CommandTypesEnum.kQueryOnlyCmdType, _
                                                                      m_ClientID, _
                                                                    "Ändern der Teilenummern", _
                                                                "Teilenummern bestimmen und ändern", _
                                                            pictureZei)

            m_featureEinePDFButtonDef = controlDefs.AddButtonDefinition("Alle Blätter in eine PDF", _
                                                                "BAddInEinePDF", _
                                                        CommandTypesEnum.kQueryOnlyCmdType, _
                                                        m_ClientID, _
                                                      "alle Blätter in einer PDF erzeugen", _
                                                    "Erzeugt alle Blätter in eine PDF (außer Kundenzeichnung)", _
                                                    picturePDF)

            m_featureMehrerePDFButtonDef = controlDefs.AddButtonDefinition("Alle Extra PDF", _
                                                                "BAddInMehrerePDF", _
                                                      CommandTypesEnum.kQueryOnlyCmdType, _
                                                    m_ClientID, _
                                                  "Für alle Blätter extra PDF erzeugen", _
                                              "Erzeugt für jedes Blatt eine PDF", _
                                              picturePDF)

            'Buttons im Modell

            m_featureZurZeichnungButtonDef = controlDefs.AddButtonDefinition("Weiter zur Zeichnung", _
                                                                "BAddInZurZeichnung", _
                                                        CommandTypesEnum.kQueryOnlyCmdType, _
                                                      m_ClientID, _
                                                    "Führt eine Kollisonssprüfung durch und öffnet die Zeichnung", _
                                                  "Führt eine Kollisonssprüfung durch" & vbCrLf & "und öffnet die gleichnamige Zeichnung", _
                                                  pictureZei)

            m_featureKollisionButtonDef = controlDefs.AddButtonDefinition("Kollisionsprüfung", _
                                                    "BAddInKollision", _
                                            CommandTypesEnum.kQueryOnlyCmdType, _
                                          m_ClientID, _
                                        "Führt eine Kollisonssprüfung durch", _
                                      "Führt eine Kollisonssprüfung " & vbCrLf & "mit allen Bauteilen durch.", _
                                              pictureKollision)

            ' Create a new command bar (toolbar) and make it visible.
            'Dim commandBars As CommandBars
            'commandBars = m_inventorApplication.UserInterfaceManager.CommandBars
            'Dim commandBar As CommandBar
            'commandBar = commandBars.Add("Buttons", "BAddInButtons(", , m_ClientID)
            'commandBar.Visible = True

            'Add the controlto the command bar.
            'commandBar.Controls.AddButton(m_featureCountButtonDef)

            ' Get the part features command bar.
            Dim partCommandBar As Inventor.CommandBar
            Dim DrawCommandBar As Inventor.CommandBar
            DrawCommandBar = m_inventorApplication.UserInterfaceManager.CommandBars.Item("DLxDrawingViewsPanelCmdBar")
            ' Add a button to the command bar, defaulting to the end position.
            DrawCommandBar.Controls.AddButton(m_featureZeichnungsinformationenButtonDef)
            DrawCommandBar.Controls.AddButton(m_featureFertigungsPrüfbedingungenButtonDef)
            DrawCommandBar.Controls.AddButton(m_featureTeileNummernButtonDef)

            DrawCommandBar.Controls.AddButton(m_featurePNummerButtonDef)
            DrawCommandBar.Controls.AddButton(m_featureEinePDFButtonDef)
            DrawCommandBar.Controls.AddButton(m_featureMehrerePDFButtonDef)

            partCommandBar = m_inventorApplication.UserInterfaceManager.CommandBars.Item("AMxAssemblyPanelCmdBar")
            partCommandBar.Controls.AddButton(m_featureZurZeichnungButtonDef)
            partCommandBar.Controls.AddButton(m_featureKollisionButtonDef)

        End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Du hast irgendwie nicht definiert, wo er das ablegen soll...
Schau dir doch mal in der Hilfe das Beispiel zu den Ribbon Tabs an.
Ich vermisse bei dir irgendwie die Angabe, in welchen Tab er das legen soll und in welches Panel.

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ach du hast das wohl ganz anders definiert?
Und trotzdem zeigt es die bei dri unter Zusatzmodule an?

Wie sieht das denn bei dir aus?
Könntest du dein Code mal bitte zeigen?

MfG Felix

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich habe mir einen Button in der Schnellstartleiste erstellt.

Code:

---

            Dim UIManager As Inventor.UserInterfaceManager = m_inventorApplication.UserInterfaceManager

           
            Dim zeroRibbon As Inventor.Ribbon = UIManager.Ribbons.Item("ZeroDoc")
            zeroRibbon.QuickAccessControls.AddButton(m_ButtonDef, False, False)

            Dim AssemblyRibbon As Inventor.Ribbon = UIManager.Ribbons.Item("Assembly")
            AssemblyRibbon.QuickAccessControls.AddButton(m_ButtonDef, True, True)
            Dim PartRibbon As Inventor.Ribbon = UIManager.Ribbons.Item("Part")
            PartRibbon.QuickAccessControls.AddButton(m_ButtonDef, True, True)

            Dim DrawingRibbon As Inventor.Ribbon = UIManager.Ribbons.Item("Drawing")
            DrawingRibbon.QuickAccessControls.AddButton(m_ButtonDef, True, True)

            Dim PrensentationRibbon As Inventor.Ribbon = UIManager.Ribbons.Item("Presentation")
            PrensentationRibbon.QuickAccessControls.AddButton(m_ButtonDef, True, True)

            Dim UDocumentRibbon As Inventor.Ribbon = UIManager.Ribbons.Item("UnknownDocument")
            UDocumentRibbon.QuickAccessControls.AddButton(m_ButtonDef, False, True)

---

Dabei habe ich mich an das Beispiel hier gehalten:

Code:

---

            'Get the getting started tab.
            Dim startedTab As Inventor.RibbonTab = zeroRibbon.RibbonTabs.Item("id_GetStarted")

            ' Get the new features panel.
            Dim newFeaturesPanel As Inventor.RibbonPanel
            newFeaturesPanel = startedTab.RibbonPanels.Item("id_Panel_GetStartedWhatsNew")

            ' Add a button to the panel, using the previously created button definition.
            newFeaturesPanel.CommandControls.AddButton(m_ButtonDef, True, True)

---

So hat es dann bei mir auch funktioniert.

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hey Felix, hat das geklappt?

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Chris, Cool das du Nachfragst 

Ich kam leider erst ganz kurz dazu, aber das was ich probiert hatte hat nicht funktioniert.

Und da ich gerade eine Arbeit für Uni schreib komm ich auch nicht wirklich dazu es zu probieren.

Ich melde mich wenn ich es ausprobiert habe.

MfG Felix

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP