---

Hallo,

bin gerade dabei ein Makro zu schrieben, bei dem ich über eine Schleife mehrere Punkte auf einer Kurve erzeuge und anschließend die Koordinaten des erzeugten Punktes auslese. Die erste Schleife funktioniert auch ohne Probleme. Beim zweiten Schleifendurchgang bekomme ich jedoch eine Fehlermeldung.
Mein bisheriger Code:

Dim MySelection
Set MySelection = Punkt
   
Dim TheSPAWorkbench
Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench ("SPAWorkbench")

Dim TheMeasurable
Set TheMeasurable = TheSPAWorkbench.GetMeasurable(MySelection)

Dim MyPointCoord(2)                              ’(Fehler: Typen unverträglich!)
TheMeasurable.GetPoint MyPointCoord
Dim Coord_X,Coord_Y,Coord_Z
Coord_X = MyPointCoord(0)
Coord_Y = MyPointCoord(1)
Coord_Z = MyPointCoord(2)

MsgBox ("X="&Coord_X &",Y="& Coord_Y &",Z="& Coord_Z)

Kann mir vielleicht jemand sagen wie ich das ganze definieren muss um auch weitere Schleifendurchgänge hinzubekommen.
Danke schon mal im voraus!

Nico

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

---

Hallo Pjack,

ich weiß nicht, wo genau der Fehler liegt, da ich keine Schleife erkennen kann und damit nicht weiß, wie Du die Schleife programmierst bzw. wie die Eingabe von "Punkt" erfolgt.
Ich würde erst einmal die Deklarationen der Variablen aus der Schleife, sprich vor die Schleife packen. Zumindest dann, wenn Deine Schleife keine Funktion oder Vergleichbares ist.

Ansonsten einfach nochmal mit mehr Infos zum Problem posten!

mfg,
Lusilnie

------------------

Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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