---

Hallo zusammen,
ich will in einem VBA-Makro ein Assesmbly Document stückweise verändern (anhand seiner Parameter). Das funktioniert soweit auch recht gut. Allerdings sieht mein Skript momentan vor, dass nach jeder Veränderung (und Aktualisierung) des Dokuments eine Schaltfläche gedrückt werden muß, damit der nächste Schritt vollzogen wird. Der Grund: Ich will die schrittweisen Änderungen darstellen/anschauen können, bevor das Modell weiter verändert wird.
Nun wäre es schön, wenn die Veränderungsschritte z.B. im 5-Sekunden-Abstand automatisch vollzogen würden.
Dazu fehlt jedoch das Timer-Element, wie es in VB zu solchen Zwecken verwendet würde.
Weiß jemand, welche Alternativen ich in Inventor VBA habe?

Herzlichen Dank für Eure Antworten!

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

---

Code:

---

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub test_timer()
    Debug.Print "Started - " & Time()
    Sleep 1000
    Debug.Print "Ended - " & Time()
End Sub

---

------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

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

---

Vielen Dank für die schnelle Hilfe; Doch leider tut sich auch schon das nächste Problem auf: Wenn ich die die MessageBox durch den Sleep-Befehl ersetze, dann wird das Modell nur einmal ganz am Schluß upgedatet, das heißt ich sehe jetzt erst nicht das, was ich eigentlich wollte.
Unten ist mein (vereinfachter) Quelltext abgebildet. Wäre super, wenn auch für dieses Problem noch jemand einen Rat hätte!

Public Sub ModelParameters()
   
    Dim oAsDoc As Inventor.AssemblyDocument
    Set oAsDoc = ThisApplication.ActiveDocument

    Dim oParams As Parameters
    Set oParams = oAsDoc.ComponentDefinition.Parameters

    For i = 1 To 10
        oParams.Item("d11").Value = i * 10
       
        oAsDoc.Update
        'MsgBox ("nächster Schritt")
        Sleep 1000
    Next i
End Sub

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

---

Hallo,

ersetze
'MsgBox ("nächster Schritt")
durch
oAsDoc.DocumentEvents.Application.ActiveView.Update

MFG VOSTA

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

---

Ganz herzlichen Dank für Eure Hilfe! Jetzt funktioniert mein Vorhaben!

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