---

Hallo!

Ich möchte mit folgendem Makro in einem Produkt mehrere Àhnliche Part-Objekte erzeugen:

VAR_anzahlbalken = 3
FOR i = 1 TO VAR_anzahlbalken
Set balkenX = products1.AddNewComponent("Part", "Balken X")
NEXT

Wie kann ich die ZÀhlervariable i mit dem Objektaufruf verknÌpfen? (Weweils das X durch den Inhalt der Variable ersetzen)
Der Code soll quasi folgendes automatisch/parametrisch erzeugen:
Set balken1 = products1.AddNewComponent("Part", "Balken 1")
Set balken2 = products1.AddNewComponent("Part", "Balken 2")
Set balken3 = products1.AddNewComponent("Part", "Balken 3")

Danke, mfG
TomK79

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

---

Hi TomK79

versuchs mal so:

Sub CATMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim products1 As Products
Set products1 = product1.Products

Dim Name As String
Dim I

For I = 1 To 5

Name = "Balken " & I

Dim product2 As Product
Set product2 = products1.AddNewComponent("Part", Name)

Next
End Sub

------------------
Gruss BADU

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

---

Hi BADU!

Danke, es funktioniert.
Ich dachte nur, ich müsste den Namen der Instanz des Objekts (vorderes BalkenX) auch mit dem Zähler erhöhen, um die Instanz später ansteuern zu können. Das geht ja aber auch mit:

Set partDocument1 = documents1.Item("Balken1.CATPart")
...

Danke, Gruß
TomK79

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