---

Moin!

Wenn ich den unten stehenden Code ausführe, ist es nicht möglich, die Funktion wieder zu verlassen.
Kann das vielleicht mal bitte jemand anschauen und mir sagen, was fehlt?

Code:

---

Sub CheckOffset()

Offset.Show

While Offset.Visible = True
    Dim oOcc As ComponentOccurrence
    Set oOcc = ThisApplication.CommandManager.Pick(kAssemblyOccurrenceFilter, "Komponente wählen")
   
    If Not oOcc Is Nothing Then
        Offset.TextBox1.Text = Round(oOcc.Transformation.Translation.X * 10, 1)
        Offset.TextBox2.Text = Round(oOcc.Transformation.Translation.Y * 10, 1)
        Offset.TextBox3.Text = Round(oOcc.Transformation.Translation.z * 10, 1)
    End If
Wend

End Sub

---

------------------
Roland  
www.Das-Entwicklungsbuero.de

It's not the hammer - it's the way you hit!

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

---

Hi Roland.

In Deinem geposteten Code ist nichts, was die Sichtbarkeit des Dialogs 'Offset' negieren, und Dich dadurch aus dem while-loop herausholen  würde. Ich hoffe mal, der Dialog hat irgendwelche Steuerelemente (Ok- und Cancelbutton) deren gefeuerte Events Dich aus der Sichtbarkeit und damit aus der Schleife befreien.
Aber nur mit dem Codeschnipsel ist das schwierig zu beurteilen.

Gruß, Torsten

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

---

Hallo Roland,

ich kann dort Torsten nur zustimmen...
Bist du sicher, dass du überhaupt eine Schleife brauchst?
Aus dem gegebenen Kontext hätte ich darauf geschlossen, dass hier eine Wenn-Verzweigung sinnvoller wäre: "If Offset.Visible = True Then"

------------------
Mit Besten Grüßen

Ruzy5624

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

---

Hallo Roland,

wenn die Pick Methode abgebrochen werden soll wenn UserForm Offset geschlossen wird (z.B. über das Kreuzchen) probier mal das Terminate Event vom UserForm zu verwenden.

Code:

---

Private Sub UserForm_Terminate()
  ThisApplication.CommandManager.StopActiveCommand
End Sub

---

Grüße
Helmut

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

---

Moin!
Und vielen Dank schon mal!

Der Dialog hat zwar die erwähnten Steuerelemente, aber da passiert nix.

Gehört zu diesem Code vielleicht noch die Definiotion der Dialogbox, die auch zu betrachten wäre?

Schleife? Ich bin nicht der Autor dieses Codes. Den hat mir mal jemand geschickt, als ich eine Lösung für diese Aufgabe (Abfragen der Raumposition in der iam) suchte; vermutlich auch unter dem Vorbehalt, dass das nur ein erster Ansatz und noch nicht fertig ist. Ich vermute, dass durch die Schleife immer neue Komponenten geklickt werden können, deren Koordinaten dann angezeigt werden. Das funktioniert auch und ist auch sinnvoll.

Das Terminate Event vom UserForm zu verwenden, klingt gut. Werde ich dann mal probieren. Wobei....
-> Wo füge ich das ein? 

------------------
Roland  
www.Das-Entwicklungsbuero.de

It's not the hammer - it's the way you hit!

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

---

Hallo,

ich hab deinen Code ausprobiert und der funktioniert soweit.
Dein UserForm darf nicht modal gestartet werden, sonst
kannst du im Inventor nicht weiterarbeiten.
Entweder die Eigenschaft ShowModal vom UserForm im VBA-Editor
auf False stellen oder die Code Zeile

Code:

---

Offset.Show

---

um

Code:

---

Offset.Show vbModeless

---

erweitern.

UserForm Offset kann man über das Kreuzchen beenden und
mit der Esc-Taste kommt man aus der Pick-Methode.

Mittels

Code:

---

Private Sub UserForm_Terminate()
  ThisApplication.CommandManager.StopActiveCommand
End Sub

---

würde das drücken der ESC-Taste beim Schließen der UserForm wegfallen.

Der Code muß im UserForm eingefügt werden:
Im ProjektExplorer im VBA-Editor die UserForm mit der rechten Maustaste auswählen => View Code und dort einfügen.

Schöne Grüße
Helmut

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