---

Baum1.jpg Baum2.jpg

Hallo Makro-Freaks,

ich bastele an einer Moeglichkeit, Catia-Holes, die direkt unter dem PartBody erzeugt wurden, in einen Body zusammenzufasssen, um die Struktur des Baumes uebersichtlicher zu gestalten. Vorraussetzung ist natuerlich, dass diese Bohrungen sich nicht auf Geometrien bziehen, die das Zusammenfassen verhindern. (z.B. Erzeugung mit Up to next usw), aber das setze ich erst einmal voraus. Die beiden angefuegten Bilder zeigen, wie es vorher aussieht und nachher ausehen soll.
Mir geht es um die Umsetzung in einem Makro. Ich bin bis zu dem Punkt gekommen, dass ich alle Holes, die unter dem PartBody sich befinden, selektiert habe. Die Frage ist, wie ich diese Selektion in einen anderen Body bekomme, wie z.B. interaktiv durch reordern oder durch -insert in new-. Gibt es da eine Chance?

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

---

Servus
Ich würde es über COPY & PASTE (Selektion hast du ja schon) probieren, und dann die ursprünglichen Bohrungen löschen (oder geht auch gleich Ausschneiden?

Gruß
Bernd

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

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

---

Hallo bgrittmann,

das funktioniert interaktiv auch nicht. Man kann die Holes nicht kopieren und dann in einen anderen Body einfuegen mit paste oder paste special. Catia meldet einen Fehler "It's not allowed to paste". Kannst Du ja mal ausprobieren! Bei mir klappt es nicht.

Gruss Bernd

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

---

Servus
Du musst die Bohrung einzeln ausschneiden und einfügen. zB (VBA):

Code:

---

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Add()

body1.name = "Bohrungen"

part1.Update

'Bohrungen selektieren
Dim selection1 As Selection
Set selection1 = partDocument1.Selection

selection1.Clear

selection1.Add part1.Mainbody

selection1.Search "CATPrtSearch.Hole,sel"

'Collection mit Inhalt der Selection füllen
Dim oCollection As New Collection

For X = 1 To selection1.Count2
    oCollection.Add selection1.Item2(X).Value
Next

'Bohrungen einzeln auscheniden und einfügen
For X = 1 To oCollection.Count
    selection1.Clear
    selection1.Add oCollection.Item(X)
    selection1.Cut
    selection1.Clear
    selection1.Add body1
    selection1.Paste
Next

End Sub

---

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

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

---

Hallo bgrittmann,

habe es eben gerade selbst herausgefunden und das mein Makro laeuft  mit der Einzelselektion.
Danke fuer Deine Hilfe!

Gruss Bernd

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