---

Hallo,
bin gerade am Kopfzerbrechen.
Ich versuche aus einer UserSelection einer Kante Kurve bzw Punktes eine Tote Geometrie in ein zweites Part einzufügen.
Dieses sollte dort in Positions sein, ob mit Link oder ohne ist Egal solange die Postion stimmt.

Mit meinem Code schaffe ich es zwar ein Extract in das zweite Part zu erstellen, jedoch verliert der Extract die Referenz zur Selektion und bringt mir nichts.

Vielleicht hat jemand ein vorschlag, bzw. Eine Idee für eine Alternative

Code:

Option Explicit
Private Sub ExtractCircle()

Dim activedoc As ProductDocument
Dim product1 As Product
Dim products1 As Products
Dim selection1 As Object
Dim activePro As Products
Dim hybridShapeFactory1 As HybridShapeFactory
Dim hybridBody1 As HybridBody
Dim InputObjectType(0)
Dim Kanten As AnyObject
Dim part1 As Part
Dim Status As String

Set activedoc = CATIA.ActiveDocument

Set selection1 = activedoc.Selection

InputObjectType(0) = "Edge"
Status = selection1.SelectElement2(InputObjectType, "Linie", False)

Set Kanten = selection1.Item(1).Reference

Set product1 = activedoc.Product

Set products1 = product1.Products

Set activePro = products1.Item(2)

Set part1 = product1.Products.Item(2).ReferenceProduct.Parent.Part

Dim hybridShapeExtract1 As HybridShapeExtract
Dim Ableitung As HybridShapeFactory

Set Ableitung = part1.HybridShapeFactory
Set hybridShapeExtract1 = Ableitung.AddNewExtract(Kanten)

hybridShapeExtract1.PropagationType = 3
hybridShapeExtract1.ComplementaryExtract = False
hybridShapeExtract1.IsFederated = False

Set hybridShapeFactory1 = part1.HybridShapeFactory
Set hybridBody1 = part1.HybridBodies.Item(1)
hybridBody1.AppendHybridShape hybridShapeExtract1

End Sub

Grüße
Michael

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

---

Servus
Versuch mal die gewählte kannte zu Kopieren, und im 2. Part wieder einzufügen (PasteSpecial). (siehe auch Forensuche und Doku)

Gruß
Bernd

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

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

---

Danke für den Tip.

Ich versuchs dann am Montag..... Jetzt ist erst mal Wochenende angesagt.

Schönes Wochenende allen ( auch wenns regnen soll)

Grüße
Michael

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

---

Also ich habe einen anderen Weg gewählt, das war ein Geistesblitz am Wochenende

Extract erstellt im Part wo sich der Body befindet
Aus Extract Tote Geometrie im Gleichen Part erstellt
Tote Geometrie in Referenz Part Kopiert mit Paste Special

Grüße

[Diese Nachricht wurde von Michau am 02. Mai. 2011 editiert.]

[Diese Nachricht wurde von Michau am 10. Mai. 2011 editiert.]

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