Hallo zusammen.
Ich verzweifele gerade an foldender Situation. Vielleicht kann mir jemand helfen.
Ich möchte in CATPart's, die unterhalb eines CATProducts liegen, ein GeoSet erzeugen, wenn es dort noch keines gibt. Der Speichername ist nicht bekannt, da dieser von einer Datenbank automatisch vergeben wird. Damit wird die Definition (documents1.Item("Part1.CATPart")) schwierig für mich.
Ich weiß, dass ich so in ein CATPart komme (dem Recorder sei Dank)
Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item("Part1.CATPart")
Dim part1 As Part
Set part1 = partDocument1.Part
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Add()
Nun möchte ich dieses in eine Schleife einbinden, die diesen Job in allen Parts macht, die im Product enthalten sind. Dazu sieht mein Ansatz so aus.
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim product1 As Product
Set product1 = productDocument1.Product
Dim products1 As Products
Set products1 = product1.Products
Dim MengeCatparts As Integer
MengeCatparts = products1.Count
Dim product2 As Product
Dim ii As Integer
Dim PartDocument1 As PartDocument
For ii = 1 To MengeCatparts
Set product2 = products1.Item(ii) <-- wie komme ich an den Speichernamen?
Next
Leider sehe ich keine Möglichkeit, wie ich an den notwendigen Speichernamen komme, der bei "ii" eingetragen werden muss. Ich bitte hiermit um Eure Hilfe.
Danke
Ralf
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP