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...