---

Hallo,
im Generative Shape Design habe ich mit dem Tool "Zusammenfügen" eine Verbindung auf eine Fläche generiert. Nun versuche ich mit Hilfe eines Makros die Fläche bei "Zusammenfügende Elemente" durch eine neue Fläche zu ersetzen.
Mit dem Befehl

Code:

---

hybridShapeAssemble1.ReplaceElement 1, Ref1

---

klappt das einwandfrei, wenn sich die Verbindung und die Neue Fläche (auf welche Ref1 referenziert) in dem gleichen Part befinden.
Wenn sich die Verbindung und die neue Fläche aber in anderen Parts befinden bekomme ich die Fehlermeldung:

Zitat:

---

Run-time error '-2147418113 (8000ffff)': Das Verfahren ReplaceElement ist fehlgeschlagen

---

Kann mir jemand sagen woran das liegen könnte oder noch besser, weiß hier irgendwer eine Lösung für das Problem? 

Schönen Abend
Lukas

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

---

Servus

Wenn du dies manuell macht wird wohl automatisch die "neue" Fläche ins Part kopiert (externe Verknüpfung).
Das musst du wohl für ein Makro auch nachbilden (Copy & PasteSpecial)

Gruß
Bernd

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

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

---

Hallo, erstmal danke 
Ich habe mir überlegt, das geometrische Set mit den externen Verweisen in das neue Part zu kopieren:

Code:

---

Sub CATMain()

'Kopieren

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Clear

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.Item("GeoSet.2")

selection1.Add hybridBody1

selection1.Copy

'Einfügen

Dim selection2 As Selection
Set selection2 = productDocument1.Selection

selection2.Clear

Dim partDocument2 As PartDocument
Set partDocument2 = documents1.Item("Part2.CATPart")

Dim part2 As Part
Set part2 = partDocument2.Part

selection2.Add part2

selection2.PasteSpecial "CATPrtAsResult"

End Sub

---

Mein Problem ist nun, dass das Set zwar kopiert , allerdings nicht eingefügt wird. (Wenn ich nach dem Debuggen von Hand Einfügen Spezial mache, wird alles richtig kopiert)
Kannst du mir da noch behilflich sein?

Danke im Vorraus!

Lukas

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

---

Servus

Manuell kann ich kein GeoSet mit Link kopieren.
Wenn die Selektion eindeutig auf die verschiedene Dokumente bezogen sind geht das kopieren (aber nur ohne Verknüpfung)

Code:

---

Sub CATMain()

'Kopieren

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item("Part1.CATPart")

Dim selection1 As Selection
Set selection1 = partDocument1.Selection

selection1.Clear

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item(1)

selection1.Add hybridBody1

selection1.Copy

'Einfügen

Dim partDocument2 As PartDocument
Set partDocument2 = documents1.Item("Part2.CATPart")

Dim selection2 As Selection
Set selection2 = partDocument2.Selection

Dim part2 As Part
Set part2 = partDocument2.Part

selection2.Add part2
selection2.PasteSpecial "CATPrtResultWithOutLink"

End Sub

---

Gruß
Bernd

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

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