---

Hallo

versuche gerade einen Split zu erzeugen.Bekomme in der Zeile
Set Trennung = wzk3d.AddNewHybridSplit (ref1, 1)
immer die Fehlermeldung Typen unverträglich.Kann mir da vielleicht jemand weiterhelfen?Komm nicht mehr weiter??

Gruß Andi

Language="VBSCRIPT"

Sub CATMain()

Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Item("Adapterpart 03.CATPart")

Set part1 = partDocument1.Part

Set hybridBodies1 = part1.HybridBodies

Set hybridBody1 = hybridBodies1.Item("01")

Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Item("Adapterpart 03.CATPart")

Set part1 = partDocument1.Part

Set hybridBodies1 = part1.HybridBodies

Set hybridBody1 = hybridBodies1.Item("Bauteile")

Set hybridShapes1 = hybridBody1.HybridShapes

Set hybridShapeSurfaceExplicit1 = hybridShapes1.Item("Result of Result of Fertigteil Flaechen_7184627")

Set bodies1 = part1.Bodies

Set body1 = bodies1.Item("Spannmarke")

Set shapes1 = body1.Shapes

Set pad1 = shapes1.Item("Pad.1")

dim ref1 as reference
set ref1 =  part1.CreateReferenceFromObject(pad1)
dim ref2 as reference
set ref2 = part1.CreateReferenceFromObject(hybridShapeSurfaceExplicit1)

Dim wzk3d As HybridShapeFactory
Set wzk3d = part1.HybridShapeFactory

Set Trennung = wzk3d.AddNewHybridSplit (ref1, 1)

Trennung.AddCuttingElem ref1, 1
hybridBody1.AppendHybridShapeSplit1

Dim Element As Reference
Set Element = Split.ElemToCut

End Sub

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

---

Hallo Augustiner,

Die Syntax für AddNewHybridSplit ist:

Func AddNewHybridSplit( RefElementToSplit, RefSplitElement, iOrientation) As CATIAHybridShapeSplit

Die Methode "AddCuttingElem" brauchst Du bei einem Schnittelement nicht.

Bei Dir müßte es also heißen:

Set Trennung = wzk3d.AddNewHybridSplit (ref1, ref2, 1)

Gruß
Steffen

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

---

Hallo Steffen

vielen Dank für die schnelle Antwort!!Hatt mich schon ein Stück weiter gebracht.Nur happerts jetzt an hybridBody1.AppendHybridShapeSplit1
jetzt kommt da die Fehlermeldung "Das Object unterstützt diese Eigenschaft oder Methode nicht".Wenn Du mir da noch schnell unter die arme greifen könntest wäre sehr nett.Dann wär das Wochenende gerettet und mein Makro fertig.

Gruß Andi

[Diese Nachricht wurde von Augustiner am 17. Mrz. 2006 editiert.]

[Diese Nachricht wurde von Augustiner am 17. Mrz. 2006 editiert.]

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

---

Das Splitobject heiß doch "Trennung". Also muß dieses dem Hybridbody zugeordnet werden:

hybridBody1.AppendHybridShape Trennung

Gruß
Steffen

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

---

    Tausend Dank,jetzt funktionierts endlich

Danke

Schönes Wochenende noch

Gruß Andi

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