---

Hallo Leute,

ich habe wohl ein denkbar einfaches Problem. Ich möchte eine Schleife mit Makros Programmieren um zuerst einmal einfach nur Linien zwischen Punkten zu erstellen.
Die Punkte sind automatisch generiert und daher schön nummeriert.
Ich habe einfach ein Makro aufgezeichnet und wollte die Zahlen der Punkte durch die Laufvariable ersetzen. Leider scheint das so einfach nicht zu gehen. Wie muss ich folgenden Code bezüglich der Variablen ändern?

Code:

---

...
For i = 10 To 15

Dim hybridShapePointOnCurve3 As HybridShapePointOnCurve
Set hybridShapePointOnCurve3 = hybridShapes1.Item("Punkt.i")

Dim reference3 As Reference
Set reference3 = part1.CreateReferenceFromObject(hybridShapePointOnCurve3)

Dim hybridShapePointOnCurve4 As HybridShapePointOnCurve
Set hybridShapePointOnCurve4 = hybridShapes1.Item("Punkt.i+15")

Dim reference4 As Reference
Set reference4 = part1.CreateReferenceFromObject(hybridShapePointOnCurve4)

Dim hybridShapeLinePtPt2 As HybridShapeLinePtPt
Set hybridShapeLinePtPt2 = hybridShapeFactory1.AddNewLinePtPt(reference3, reference4)

hybridBody2.AppendHybridShape hybridShapeLinePtPt2

part1.InWorkObject = hybridShapeLinePtPt2

part1.Update

Next i

---

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

---

Nach dem die FRage jetzt in dem Brett ist, in das sie gehört:

Versuch es doch mal mit
Set hybridShapePointOnCurve3 = hybridShapes1.Item("Punkt." & i & ")"

Ansonsten könnte die Forensuche oder ein Anfängerbuch zu VBA weiterhelfen.

------------------
Meine Firma  |  Website zum Buch Technisches Zeichnen mit CATIA V5

Wie stelle ich meine Fragen richtig?

---

Hallo,

versuche die zwei Zeilen wie folgt:

Code:

---

Set hybridShapePointOnCurve3 = hybridShapes1.Item("Punkt." & cstr(i))
Set hybridShapePointOnCurve4 = hybridShapes1.Item("Punkt." & cstr(i+15))

---

(und ein Anfängerbuch in VBA...)

Gruß,
Zoltán

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

---

probiers lieber mal so:
'*******************************************************
For i = 10 To 15

Punkt = "Punkt." & i

Set hybridShapePointOnCurve3 = hybridShapes1.Item(Punkt)

'*******************************************************

Gruss Niko

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