---

Hallo zusammen,

Zum ersten Mal überhaupt habe ich kein Thema zu einer Frage gefunden, die mich bei der CATIA-Programmierung aufgehalten hat. Ich bin mir aber sicher, dass es kein ungewöhnliches Problem ist, sondern dass ich nur den Thread nicht gefunden habe. Hier also mein Problem:

Wir wollen von allen Bauteilen bzw. deren 3D-Modellen das Volumen bestimmen. Wegen unterschiedlicher Datenqualität (historisch gewachsen, Zulieferer mit anderen Methoden,...) gibt es keine eindeutige Struktur in den .CATParts, wieviele Bodies vorliegen und wo diese im Strukturbaum stehen.

Mein Plan sah eigentlich vor, dass ich über eine Suchfunktion alle sichtbaren Bodies in eine Liste schreibe und dann alle über boolsche Operationen zu einem Body zusammenfasse. Den einzelnen Body kann ich dann problemlos auswerten. Leider wird über den Makrorekorder nicht die gesamte Funktion für Assemble bzw. Add aufgezeichnet.

Könnt Ihr mir weiterhelfen?

Viele Grüße,
Jörn

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

---

Servus Jörn

Willkommen im Forum.
Die Methoden die du suchst sind AddNewAssemble bzw AddNewAdd.
Hier ein Beisiel (aus eine Makroaufzeichnung entstanden):

Code:

---

Sub CATMain()

Dim oPartDocument As Document
Set oPartDocument = CATIA.ActiveDocument

Dim oPart As Part
Set oPart = oPartDocument.Part

Dim oBodies As Bodies
Set oBodies = oPart.Bodies

Dim oMainBody As Body
Set oMainBody = oPart.MainBody

oPart.InWorkObject = oMainBody

Dim oShapeFactory As Factory
Set oShapeFactory = oPart.ShapeFactory

Dim oBody As Body
Set oBody = oBodies.Item("Körper.2")

Dim add1 As Add
Set add1 = oShapeFactory.AddNewAdd(oBody)

oPart.Update

End Sub

---

Für dich ist bestimmt noch die Eigenschaft InBooleanOperation eine Körpers interessant.

Gruß
Bernd

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

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

---

Moin Bernd,

Vielen Dank für den Quelltext 

Er hat wunderbar funktioniert.

Falls jemand den Quelltext für dieses Problem braucht:

Code:

---

CATIA = CreateObject("CATIA.Application")

Dim tempSel As Selection = CATIA.ActiveDocument.Selection
tempSel.Search("(((((FreeStyle.Body + 'Part Design'.Body) + 'Generative Shape Design'.Body) + 'Functional Molded Part'.Body) + 'Functional Molded Part'.Body) & Visibility=Visible);all")

Dim BodyList As New List(Of Body)
For i = 1 To tempSel.Count
    BodyList.Add(tempSel.Item(i).Value)
Next

Dim oPartDocument As Document
oPartDocument = CATIA.ActiveDocument

Dim oPart As Part
oPart = oPartDocument.Part

Dim oMainBody As Body
oMainBody = oPart.MainBody
BodyList.Remove(oMainBody)

oPart.InWorkObject = oMainBody

For Each TempBody As Body In BodyList
    Dim oShapeFactory As Factory
    oShapeFactory = oPart.ShapeFactory
    Dim oBody As Body
    oBody = TempBody

    Dim add1 As Add
    add1 = oShapeFactory.AddNewAdd(oBody)

    oPart.Update()
Next

---

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

---

Da hat mein altes Profil doch tatsächlich dazwischengefunkt 

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