---

Hallo liebe Community.
Ich muss euch wieder mit einer Frage beglücken :-)

Das derzeitige Makro, welches ich zu erstellen versuche, soll diverse Funktionen abdecken.
Viele sind bereits implentiert - ein paar fehlen noch.

Aber hier beiße ich mir derzeit die Zähne dran aus:
Wie kann ich in einer Skizze diverse Ebenen mit "Intersect 3D Elements" schneiden?
Mein Buch und auch das Internet haben bisher keinen guten Rat gahebt.

Freue mich über jede Hilfe!
Vielen Dank im Voraus
Gruß, Wumpel

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

---

Servus
Bitte Systeminfop ausfüllen.
Hast du es schon mit der Funktion "CreateIntersection" aus der Factory2D probiert?

Gruß
Bernd

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

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

---

Hey.
Danke für den Tipp.
Habe jetzt versucht dieses einzubauen.

Wenn ich das richtig verstanden habe, dann muss ich das so machen:

Dim factory2D1 As Factory2D
Set factory2D1 = sketch1.OpenEdition()

Allerdings bekomme ich dann eine Fehlermeldung:
...
Anweisungsende erwartet
Statement Dim factory2D1 As Factory2D
...

Edit: bin jetzt von CATvbs auf CATScript gewechselt - nun geht es "ein wenig"...
Der o.g. Fehler ist verschwunden.
Die Intersection wird im Sketch erzeugt.
Allerdings verlässt er derzeit die Factory2D Umgebung anscheinend nicht, denn PartBody und Sketch.1 sind unterstrichen. UNd man kommt nicht in die Skizze rein...

Aber ich bin am Ball :-)

[Diese Nachricht wurde von wumpel am 08. Okt. 2012 editiert.]

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

---

Servus

Anbei ein Beispiel (CATSCript) (Makrorekorderaufzeichnung mit geringer Nacharbeit) zum Verschneiden einer Ebene mit der Skizze:

Code:

---

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

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

Dim sketches1 As Sketches
Set sketches1 = hybridBody1.HybridSketches

Dim reference1 As Reference
Set reference1 = part1.OriginElements.PlaneYZ

Dim sketch1 As Sketch
Set sketch1 = sketches1.Add(reference1)

part1.InWorkObject = sketch1

Dim factory2D1 As Factory2D
Set factory2D1 = sketch1.OpenEdition()

Dim geometricElements1 As GeometricElements
Set geometricElements1 = sketch1.GeometricElements

Dim geometricElements2 As GeometricElements
Set geometricElements2 = factory2D1.CreateIntersections(part1.OriginElements.PlaneXY)

sketch1.CloseEdition

part1.InWorkObject = hybridBody1

part1.Update

End Sub

---

Gruß
Bernd

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

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

---

Hey.
Super - vielen Dank.
Mein Makrorekorder hat zum Thema Verschneiden nichts aufgenommen.
Mein Makro funzt nun - ich hatte das CloseEdition vergessen 

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