---

Tag Leute,

Ich schreibe gerade ein Makro, das zuerst auf den Origin Elements eine Skizze erstellt, danach auf einer Ebene.

Auf den Origin Elements funktioiniert das wunderbar. Aber auf einer anderen Ebene leider nicht.

Hier mein Makro:

Dim Punkt As Point                      'Bohrungsposition
Dim Bauteil As Part                    'aktives Catpart
Dim Koerper As Body                    'Hauptkoerper
Dim Wzk3D As ShapeFactory              'Werkzeugbank Partdesign
Dim GSD As HybridShapeFactory          'Werkzeugbank Generativ Shape Design
Dim factory2D1 As Factory2D            'Werkzeugbank 2D

Sub Catmain()
'--------------------------------------------------------------
' Objekte zuweisen

Set Bauteil = CATIA.ActiveDocument.Part    'Bauteil ist actives Catpart

Set Koerper = Bauteil.MainBody              'Koerper ist Hauptkoerper
Bauteil.InWorkObject = Koerper

'--------------------------------------------------------------
'Werkzeugkästen zuweisen
Set Wzk3D = Bauteil.ShapeFactory            'Wzk3D Ist Part-Design
Set GSD = Bauteil.HybridShapeFactory        'GSD ist Generativ Shape Design

'---------------------------------------------------------------
'PROGRAMMSTART
'---------------------------------------------------------------

'--------------------------------------------------------------
' Geometriesches Set ertsellen für Vakuumbohrungen

Dim Gset As HybridBody
Set Gset = Bauteil.HybridBodies.Add
Gset.Name = "Vakuumbohrungen"

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = Bauteil.HybridBodies

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

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

'-------------------------------------------------------
'Erstellung einer Skizze auf einer Ursprungsebene

Dim Oelements As AnyObject
'Set RefEbene = hybridShapes1.Item("Ebene.X")
Set Oelements = CATIA.ActiveDocument.Part.OriginElements

Dim RefEbene As HybridShape
Set RefEbene = Oelements.PlaneYZ

Dim Skizzen As Sketches
Set Skizzen = hybridBody1.HybridSketches

Dim Skelett As Sketch
Set Skelett = Skizzen.Add(RefEbene)

'-----------------------------------------------------
' Erstellung einer Skizze auf einer Ebene

Dim Ebene As HybridShapePlaneOffset
Set Ebene = GSD.AddNewPlaneOffset(RefEbene, 20, True)
hybridBody1.AppendHybridShape Ebene

'Dim Skizzen As Sketches
Set Skizzen = hybridBody1.HybridSketches

Dim Skelett2 As Sketch
Set Skelett2 = Skizzen.Add(Ebene)

Bauteil.Update

End Sub

Kann mir jemand sagen was ich falsch mache?

Gruß Martin

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

---

Servus Martin
Update mal die neu angelegte Ebene bevor du die Skizze darauf erstellst.
(oPart.Update oder oPart.UpdateObject)

Gruß
Bernd

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

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

---

Ja das wars.

Dankeschön.

Gruß Martin

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

---

Hallo Bernd,

ich hatte ein ähnliches Problem und konnte es mit Ihrem Vorschlag lösen. Nun meine eigentliche Frage, besteht eine Möglichkeit um das "oPart.update" herumzukommen, um eine Skizze auf einer vorher angelgeten Ebene zu erstellen?

Beste Grüße
Michael

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

---

Servus
IMHO muss vor dem Anlegen der Skizze die Ebene aktuell sein.
ggf reicht es ja die Ebene an sich zu aktualisieren (oPart.UpdateObject(MySketch)).

Gruß
Bernd

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

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

---

Hallo,
danke, ich werde es mal ausprobieren, wenn es nicht klappt wird einfach alles aktualisiert.
Gruß Michael

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