Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  Inventor Shortcut setzen mit VBA/VB.net

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
Autodesk Inventor: Neuerungen - Mundelsheim, ein Seminar am 28.04.2025
Autor Thema:  Inventor Shortcut setzen mit VBA/VB.net (922 / mal gelesen)
Flo1234567
Mitglied


Sehen Sie sich das Profil von Flo1234567 an!   Senden Sie eine Private Message an Flo1234567  Schreiben Sie einen Gästebucheintrag für Flo1234567

Beiträge: 7
Registriert: 31.07.2014

erstellt am: 27. Jan. 2021 19:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo zusammen,

ich hoffe Euch geht es allen gut.

Aktuell stoße ich auf folgendes Problem. Nach Updates von Zusatzmodulen im Inventor gehen die Shortcuts verloren. Diese möchte ich vorher abspeichern und beim Start oder per Knopfdruck wieder setzen.

Nun passiert folgendes nach diesem VBA Code:

Code:

Public Sub ShortcutSetzen()

Dim oApp As Application
Set oApp = ThisApplication

Dim oControlDef As ControlDefinitions
Set oControlDef = oApp.CommandManager.ControlDefinitions

Dim oShortcut As String
oShortcut = "Strg+Umschalt+C"

Dim oItem As ButtonDefinitionObject
 
Set oItem = oApp.CommandManager.ControlDefinitions.Item(2838) 'Irgendein Befehl in der Liste

oItem.OverrideShortcut = oShortcut
MsgBox (oItem.OverrideShortcut)

End Sub


in der MsgBox wird mir folgendes ausgegeben:

"Alt+Strg+Umschalt+C"

Das "Strg+Umschalt+C" Standardmäßig "Kreis durch Mittelpunkt" zugeordnet ist, ist mir klar. Diesen Shortcut lösche ich vorher allerdings. Allerdings wird auch bei nicht zugewiesenen Shortcuts (Bsp.: Strg+Umschalt+D, welcher nach dem zurücksetzen aller Tasten nicht in meiner Liste auftaucht) "Alt+Strg+Umschalt+D" angezeigt.

Bei beispielsweise "Strg+E" funktioniert das ganze problemlos.

Was passiert hier  ?
Das erquickt ganz und gar nicht meine Seele.

Was übersehe ich?

Grüße

Flo

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

W. Holzwarth
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau



Sehen Sie sich das Profil von W. Holzwarth an!   Senden Sie eine Private Message an W. Holzwarth  Schreiben Sie einen Gästebucheintrag für W. Holzwarth

Beiträge: 9335
Registriert: 13.10.2000

Inventor bis 2025, Rhino 8, Mainboard ASUS ROG STRIX X570F-Gaming, CPU Ryzen 9 5900X, 64 GB RAM, 4 TB SSD, Radeon RX 6900 XT, Dual Monitor 24", Spacemouse Enterprise, Win 10 22H2

erstellt am: 28. Jan. 2021 09:38    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Flo1234567 10 Unities + Antwort hilfreich

Geht das denn nicht auch mit Bordmitteln?
Extras -> Anpassen -> Tastatur -> Exportieren als XML

Später diese XML wieder importieren

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

Flo1234567
Mitglied


Sehen Sie sich das Profil von Flo1234567 an!   Senden Sie eine Private Message an Flo1234567  Schreiben Sie einen Gästebucheintrag für Flo1234567

Beiträge: 7
Registriert: 31.07.2014

erstellt am: 04. Feb. 2021 20:25    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

danke für Deine Antwort.

Das wäre natürlich eine eine Option. Allerdings nur wenn ich dies nicht händisch machen muss.

Kann man über die API auf die Befehle "Exportieren..." und "Importieren..." zugreifen?

Wenn ich das Sample Program aus der API Hilfe ausführe und Suche finde ich zummindest die passenden Befehle nicht.

Code:

Sub PrintCommandNames()
    Dim oControlDefs As ControlDefinitions
    Set oControlDefs = ThisApplication.CommandManager.ControlDefinitions

    Dim oControlDef As ControlDefinition
   
    Open "C:\temp\CommandNames.txt" For Output As #1

    Print #1, Tab(10); "Command Name"; Tab(75); "Description"; vbNewLine
   
    For Each oControlDef In oControlDefs

        Print #1, oControlDef.InternalName; Tab(55); oControlDef.DescriptionText
       
    Next
    Close #1
End Sub


Das "Alt+Strg+Umschalt+C" in dem Feld auftaucht wundert mich dennoch.

Grüße Flo

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz