---

Hallo zusammen!

Mal wieder eine sicher sehr einfach zu lösende Frage:

Ich möchte in einem vorhandenen Modell eine Fläche selektieren und diese dann ableiten.

Die Auswahl krieg ich hin mit:

--------------------------------

Dim Was(0)
Was(0) = "Shape"

Dim UserSel As Selection
Set UserSel = CATIA.ActiveDocument.selection
UserSel.Clear

Dim Auswahl As CATBStr
Auswahl = UserSel.SelectElement(Was, "Innenfläche wählen!", False)

-----------------------------------------------------

Dann kommt die Extraktion bei mir mit:

-----------------------------------------------------

Dim hybridShapeFactory1 As Factory
Set hybridShapeFactory1 = MyPart.HybridShapeFactory

Dim Ref As Object
Set Ref = UserSel.Item(1).Value

UserSel.Clear
UserSel.Add Ref 
 
Dim hybridShapeExtract1 As HybridShapeExtract
Set hybridShapeExtract1 = hybridShapeFactory1.AddNewExtract(Ref)

hybridShapeExtract1.PropagationType = 2

hybridShapeExtract1.ComplementaryExtract = False

hybridShapeExtract1.IsFederated = False

---------------------------------------------------------

Und da bekomm ich immer eine Fehlermeldung und weiss nicht warum.

Beim Aufzeichnen mit dem Makroeditor erzeugt er immer eine Referenz. Die kann ich aber doch vor der Selektion nicht wissen. Wie kann ich also die Auswahl mit der Extraktion verknüpfen?

Vielleicht kann mir jemand helfen.

Gruß, zizo

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

---

Hallo,

bin inzwischen etwas weiter:

Sub CATMain()

'-------------------------------- Selektion der Innenfläche

Dim Box

Box = MsgBox ("Bitte selektieren Sie die zu extrahierende Fläche", 64, "Selektion der Fläche")

Dim Was(0)
Was(0) = "Shape"

Dim UserSel As Selection
Set UserSel = MyPartDocument.selection
UserSel.Clear

Dim Auswahl As CATBStr
Auswahl = UserSel.SelectElement(Was, "Fläche wählen!", True)

'-------------------------------- Extrahieren der selektierten Fläche

Dim hybridShapeFactory1 As Factory
Set hybridShapeFactory1 = MyPart.HybridShapeFactory

Dim Flaeche As HybridShape
Set Flaeche = UserSel.Item(1).Value

Dim neueRef As Reference
Set neueRef = MyPart.CreateReferenceFromObject(Flaeche)

Dim hybridShapeExtract1 As HybridShapeExtract
Set hybridShapeExtract1 = hybridShapeFactory1.AddNewExtract(neueRef)

hybridShapeExtract1.PropagationType = 2

hybridShapeExtract1.ComplementaryExtract = False

hybridShapeExtract1.IsFederated = False

hybridBody3.AppendHybridShape hybridShapeExtract1

MyPart.InWorkObject = hybridShapeExtract1

MyPart.Update

End Sub

------------------------------------------

Jetzt bekomme ich keine Fehlermeldung mehr, sondern das Skript läuft durch. Es wird sogar ein Extract erzeugt, allerdings ist es leer, d.h. die Selektion der Fläche wurde nicht übernommen.

Wer weiß was? Vielen Dank im Voraus

Gruß, zizo

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

---

Hi zizo,

hast du zufälligerweise was vergessen:

Dim HybridBody1 As HybridBody
Set HybridBody1 = PartDocument.Part.HybridBodies.Add

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

---

Probier mal

Code:

---

Dim selection as Object

---

statt

Code:

---

as selection

---

du kannst übrigens auch direkt auf die Referenz verweisen:

Code:

---

set Ref = selection.item(1).reference

---

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

---

ich seh grad noch dass du

Code:

---

selectelement

---

verwendet hast. Der Befehl lautet

Code:

---

selectelement2

---

kannst mal in der Hilfe nachschaun

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

---

Servus
Ist euch beiden klar, dass ihr auf einen acht Jahre alten Beitrag antwortet?

Gruß
Bernd

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

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

---

Klar Bernd,

aber es heißt doch immer: dahinschreiben, wo es auch dazu gehört.
Der Nächste sucht doch dann da wieder.

Grüße, Tim

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