---

Hallo!

Ich möchte gerne, dass eine Schleife in einer großen Schrittweite bis zum definierten Endwert durchläuft und mir dann aber den vorletzten Wert ausgibt.
Von diesem vorletzten Wert möchte ich die gleiche Schleife erzeugen, allerdings mit einer kleineren Schrittweite bis zum definierten Endwert.

Ich habe auch schon ein kleines Makro. Der Parameter "Z1" wird so lange verschoben, bis die Messung den Wert "0" annimmt.
Am Ende der Schleife nimmt der parameter "Z1" dann auch einen Endwert an. Diesen möchte ich dann aber um einen Schritt zurück setzen. So wie ich es jetzt geschrieben habe funktioniert es aber nicht.
Kann mir da jemand weiterhelfen?
ich wäre sehr dankbar!
__________________________________________
Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set parameters1 = part1.Parameters
Set length1 = parameters1.Item("Messung1")
Set length2 = parameters1.Item("Z1")

dim vstart
vstart=150

do while  length1.value > 0
length2.value = vstart
part1.update
vstart = vstart + 5        'hier ist die Schrittweite groß
loop

Z1 = vstart - 5                    'So funktioniert es nicht

msgbox "Schnittpunkt erreicht"

End Sub
_______________________________________________

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

---

Servus
Z1 ist ja nicht definiert. Versuch es mal mit:

length2.value = length2.value - 5

Gruß
Bernd

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

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

---

Vielen vielen Dank!
so klappt es einwandfrei!

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