---

Hallo zusammen,

ich möchte einen PointonCurve mit Hilfe eines SpinButtons verschieben. Dazu habe ich eine Gui mit einer TextBox die mir den akutellen Abstand zum Referenzpunkt anzeigt und einen SpinButton daneben um diesen Wert zu ändern.

Im Prinzip ist der Code wie folgt:

Code:

---

'Start über Modul

sSchalter = "a"       
UF_START.SpinButton.Value = oBoundary_Point_Oben.Offset.Value
UF_Start.show

---

User Form:

Code:

---

Private Sub SpinButton_Change()

If sSchalter <> "a" then
dim dAbstand as Double
dAbstand = UF_Start.SpinButton.value
set oPoint = CATIA.activedocument.part.hybridbodies...
oPoint.offset.value = dAbstand
UF_START.textBox = dAbstand

Caita.activedocument.part.update

end if

end sub

---

Wenn ich das Makro Zeile für Zeile ausführe läuft es wie ich es möchte.
Lass ich es einfach durchlaufen und klicke einfach mehrmals hintereinander auf den SpinButton funktioniert es einmal. Danach bekomme ich die Fehler Meldung :"It is illegal to call out while inside message filter"
Ausgelöst wird der Fehler bei der Zeile 'Set oPoint = ...'

Ich habe festgestellt, dass es beliebig oft hintereinander funktioniert wenn ich das Update weglasse. Das möchte ich natürlich nicht.

Vielen Dank schon mal für Lösungsvorschläge!

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

---

Wenn ich das ganze über das SpinUp_Event starte bekomme ich das selbe Problem!

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

---

Servus
Ich vermute, dass du schon während des Partupdates den Wert schon wieder änderst.
ggf musst du die UserFrom vor dem Update ausblenden bzw inaktivieren.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Wenn ich den SpinButton einmal betätige und dann "ewig" warte und das update auch nochmal per Hand ausführe und den SpinButton dann nochmal betätige kommt der Fehler aber auch. Und da is das Update ja sicher abgeschlossen.

Wenn ich die Form ausblende geht es, aber das möchte ich ja nicht weil sie dann immer in der Mitte des Bildschirms wieder erscheint. Wie kann ich sie denn einfach dekativieren?

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

---

Servus
Schon mal mit "Userform.Enable False" probiert?
Kannst du das Teil und den (vereinfachten Code) hochladen?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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