---

Hallo miteinander,

wir sind in der Firma jetzt auf das neue Inventor (2017) umgestiegen und ich möchte gern meine Zusatzmodule übernehmen.
Wir hatten vorher 2014 auf den Rechnern.

Die Zusatzmodule lassen sich ohne Probleme starten es gibt nur ein Problem....
die Zusatzmodule werden in allen Typen Angezeigt(Bauteil, Baugruppe , Zeichnungen)

            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("Zeichnungsableitung", _
                                                                "BAddInZurZeichnung", _
                                                        CommandTypesEnum.kQueryOnlyCmdType, _
                                                      m_ClientID, _
                                                    "Öffnet die gleichnamige Zeichnung", _
                                                  "Ö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)

eig hab ich ja definiert das die Modue nur in der BG oder nur in der Zeichnung angezeigt werden...
  CommandTypesEnum.kQueryOnlyCmdType --> Baugruppe
  CommandTypesEnum.kQueryOnlyCmdType --> Zeichnung

oder is da was neu??

------------------
----------------------------------
Mit freundlichen Grüßen

Felix

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

---

Sorry der Code den ich aufgezeigt habe hat nicht damit zu tun wo der Button angezeigt wird.

Das ist der Code der dafür zuständig sein sollte....

            Dim PartCommandBar As Inventor.CommandBar
            Dim BGCommandBar 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_featureSchriftfeldButtonDef)
            DrawCommandBar.Controls.AddButton(m_featureBetriebsdatenButtonDef)
            DrawCommandBar.Controls.AddButton(m_featureFertigungsPrüfbedingungenButtonDef)

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

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

------------------
----------------------------------
Mit freundlichen Grüßen

Felix

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

---

Hi Felix,

hast du mal geschaut, ob sich die internen Namen der CommandBars geändert haben? Darauf würde ich jetzt als erstes tippen.

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

Chris

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

---

Hallo Chris danke für deine Antwort, daran habe ich auch schon gedacht, aber wo kann ich mir diese Informationen herholen?

Und das komische ist bei mir werden immer alle Buttons angzeigt, bei meinem Kollegen habe ich das Programm erstmalisch eingerichtet und dort klappt es. D.h. es werden die Buttons dort angezeigt wo sie auch sein sollen....

------------------
----------------------------------
Mit freundlichen Grüßen

Felix

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

---

Also für alle Commandbars wäre das hier:

Code:

---

Public Sub getCommandBars()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oCmdBar As CommandBar
 
  For Each oCmdBar In oApp.UserInterfaceManager.CommandBars
    Debug.Print oCmdBar.DisplayName & "    " & oCmdBar.InternalName
  Next oCmdBar

End Sub

---

Hast du schon probiert das Addin bei dir einmal komplett zu deinstallieren und wieder neu auf zu spielen?

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

Chris

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