Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub cb_Parameteraktualisieren_Click()
Dim Params As Parameters
Set Params = CATIA.ActiveDocument.Product.Parameters
Dim X As Dimension
Set X = Params.Item("X-Koordinate")
X.Value = Me.textbox_x.Value
Sleep 2000
Set Params = CATIA.ActiveDocument.Product.Parameters
Dim W1 As Dimension
Set W1 = Params.Item("Winkel 1")
Me.textbox_Winkel1.Value = W1.Value
End Sub
Danke vielmals dennoch, hast mich auf den richtigen Pfad gelenkt :)
achso, wie könnte ich den jetzt noch eine MSGbox oä einbauen, damit berechnung läuft nich als caption läuft? am besten wäre halt ein fenster dass sich öffnet und dann wieder schließt...