VBA (IV 2018) - Dynamische Simulation steuern/anpassen/automatisieren

[fullevent]

Hallo Zusammen,

ich versuche mir seit längerem eine Vorlage zu erstellen um eine größtenteils vordefinierte Simulation durchzuführen.

Dabei komme ich an ein paar stellen nicht weiter und hoffe auf eure Hilfe.

Ziel wäre folgender Ablauf:

(x)  Userform öffnen -> Hier möchte ich ein paar Werte eingeben und auf "ausführen" klicken (Form noch nicht vorhanden)

*Beginn Code

1.  Starten der "Dynamischen Simulation"

2.  Ändern der vorgegebenen Bewegung nach den Werten aus (x)

3.  Anpassung der Simulationsdauer

4.  Durchführen der Simulation

5.  Ausgabediagramm anzeigen

6.  Daten nach Excel exportieren

7.  Excel-Datei speichern (gleiches Verzeichnis + Name wie die Baugruppe)

8.  Öffnen einer anderen Excel-Datei aus besagtem Verzeichnis

*Ende Code

Den Code für Schritt 1 und 4 habe ich aus diesem Beitrag kopiert und angepasst. Das funktioniert soweit.

Sub Start_DynSim()
    ' Get the active document.  This assumes it is an assembly.
    Dim asmDoc As AssemblyDocument
    Set asmDoc = ThisApplication.ActiveDocument
    
    ' The Dynamic Simulation environment must be active.
    Dim UIManager As UserInterfaceManager
    Set UIManager = ThisApplication.UserInterfaceManager
    If UIManager.ActiveEnvironment.InternalName <> "DynamicSimulationEnvironmentInternalName" Then
        ' Get the environment manager.
        Dim environmentMgr As EnvironmentManager
        Set environmentMgr = asmDoc.EnvironmentManager
    
        Dim dsEnv As Environment
        Set dsEnv = UIManager.Environments.Item("DynamicSimulationEnvironmentInternalName")
        Call environmentMgr.SetCurrentEnvironment(dsEnv)
    End If
         
    ' Get the simulation manager from the assembly.
    Dim simManager As SimulationManager
    Set simManager = asmDoc.ComponentDefinition.SimulationManager
    
    ' Get the first simulation.  Currently there is only ever one.
    Dim sim As DynamicSimulation
    Set sim = simManager.DynamicSimulations.Item(1)
    
    ' Check to see if the simulation has already been computed.
    If sim.LastComputedTimeStep < sim.NumberOfTimeSteps Then
        ' Compute the simulation, which will also play it.
        sim.ComputeSimulation
    Else
        ' Play the computed simulation.
        sim.PlaySimulation
    End If
End Sub

Bei Schritt 2 und 3 habe ich auf Parameter gehofft, aber diese Start- /Endpunkte (siehe nachfolgenden beiden Bilder) lassen sich nicht parametrisieren 😕

Ich habe das Objekt "sim" nach diesen Werten durchsucht in der Hoffnung diese überschreiben zu können, aber bislang nicht gefunden.

    Dim sim As DynamicSimulation
    Set sim = simManager.DynamicSimulations.Item(1)

Die Schritte 5-8 wären nice-to-have.

Schritte 2 und 3 wäre mir wichtig..  wenn es hierfür eine Lösung gibt bin ich für jeden Tipp dankbar.

Schritt 5+6:

Anbei die ZIP mit meiner bisherigen Vorlage.

Die Userform nehme ich in Angriff sobald ich eine Möglichkeit gefunden habe die Werte in dem Fenster "Festgelegte Bewegung" zu überschreiben.

Danke an alle die sich hierfür Zeit nehmen!

Grüße,
Aleks

[michele.mk]

Hallo @fullevent,

vielen lieben dank für deine sehr interessante frage. Eventuell kannst du auf @Juergen_Wagner Blog etwas finden: https://inventorfaq.blogspot.com/

Sonst wäre in deinem Fall das Inventor Customization Forum die richtige Anlaufstelle (auf Englisch). Lass es mich wissen, falls du Hilfe brauchst wegen der Sprache. 

Falls du fragen hast kannst du dich jederzeit bei mir melden.

Viele Grüße,

Michèle. 

[fullevent]

Hallo @michele.mk,

danke für den Hinweis.
Ich werde meine Frage übers Wochenende mal im Inventor Customization Forum stellen und abwarten.

Jürgens Blog hat mir schon etliche Fragen - auch zur Dynamischen Simulation - beantwortet, aber speziell zur Ansteuerung über die API konnte ich nichts finden.

Ich geb Bescheid wenn ich hierzu etwas finde.

Grüße

[michele.mk]

Hallo @fullevent,

es freut mich zu hören, dass Jürgens Blog dir weiter geholfen hat - auch wenn es deine jetzige Frage nicht beantwortet hat. 

Das wäre sehr lieb, dass du es uns hier mitteilst, wenn du selbst eine Antwort findest und falls du über die Customization Hilfe bekommst, die Antwort ebenfalls hier postest. Das ist für alle sicherlich sehr interessant zu lesen. 

Lass es mich wissen, falls du Hilfe für die Übersetzung brauchst. 

Grüße,

Michèle. 

[fullevent]

Fragestellung jetzt auch ans Customization-Forum weitergegeben..

https://forums.autodesk.com/t5/inventor-customization/vba-iv-2018-dynamic-simulation-control-adjustm...

[michele.mk]

Hallo @fullevent,

vielen Dank für deine Rückmeldung. Wenn du dort eine Antwort bekommst, wärst du so lieb und postet diese auch hier im Thema? So profitieren auch alle von der Lösung. 

Zusätzlich kann ich dann deine Antwort als Lösung markieren: einmal ist das super, weil du dafür Kredit bekommst, zweitens optimiert es die Google Suche und das Thema wird hervorgehoben. 

Vielen Dank  und viel Spaß mit Inventor. 

Gruß,
Michèle. 

[fullevent]

Hallo @michele.mk,

jetzt wollte ich kurz antworten und hab den falschen Button erwischt ^^

Bitte wieder als nicht gelöst markieren wenns geht.

Sobald ich eine Antwort habe werde ich diese natürlich hier kopieren/verlinken.
Danke dir!

Grüße,
Aleks

[michele.mk]

Hallo @fullevent,

du kein Problem, kann passieren! Du kannst sogar selbst die Lösung entmarkieren! Ist das nicht toll? Als Themenersteller hast du folgende Optionen:

Und vielen Dank, das wäre echt toll, wenn du die Antwort postest. Bin schon ganz gespannt. 

Gruß,

Michèle