Hier findest du die neue Inventor FAQ

Ich habe ein paar Makros für Inventor “programmiert” (naja, programmiert ist vielleicht ein bischen übertrieben ;) ).

1. Farbschema ändern

Das erste Makro (hgw) stellt das Farbschema “Präsentation” ein und ist für alle nützlich, die ab und an Screenshots oder Videos machen, weil sich da ein weißer Hintergrund gut macht.

Public Sub hgw()
Dim oApp As Inventor.Application
Set oApp = ThisApplication
oApp.ColorSchemes.Item(7).Activate
End Sub

Das zweite Makro (hgm) stellt wieder das Farbschema “Millenium” ein. Die Nummer in der Klammer hinter “Item” gibt das zu aktivierende Farbschema an (Extras > Anwendungsoptionen > Farbe und dort durchzählen bis zu dem gewünschten Farbschema)

Public Sub hgm()
Dim oApp As Inventor.Application
Set oApp = ThisApplication
oApp.ColorSchemes.Item(6).Activate
End Sub

2. Titelleistentext ändern

Diese Makro ändern den Titelleistentext von z.B. Inventor Professional 2008 auf einen beliebigen Text.

Public Sub Titel_aendern()
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
  oApp.Caption = "Inventor Pro 2008 -> Blog.inventor-faq.de"
End Sub

Der Text lässt sich in dem Makro leicht ändern.

3. Zudem habe ich eines von Igors Makros eingebunden.

Alle Komponenten in einer Baugruppe fixieren

So benutzt ihr die Makros

Inventor schließen, die ZIP-Datei herunterladen und in das Verzeichnis C:\Programme\Autodesk\Inventor [Versionsnummer]\Bin\Macros entpacken und Inventor starten. ACHTUNG: Solltet ihr eure default.ivb Datei angepasst haben, diese vorher sichern bzw. den VBA-Code zusammenführen. Dann wie im Video den Werkzeugkasten erstellen und die Icons einbinden.

• macros_wwwinventor-faqde.zip

So könnt ihr die Makros in einen neuen Werkzeugkasten einbinden.

• Extras > Anpassen
• Register Werkzeukasten > Neu
• Register Befehle > Links in der Liste “Makros” suchen
• Befehle in den Werkzeugkasten ziehen

Hier ein Video dazu:

Hast du auch ein praktisches VBA-Makro für Inventor? Dann schick es mir per Mail und ich binde es ein. Natürlich mit der gebührenden Würdigung deiner Arbeit!