---

Hallo zusammen,
wir wollen ein Makro schreiben, damit wir eine Kontur vervielfältigen können und diese in einem bestimmten Winkel an einer Helix läuft!
Das ist unser text:
Dim CATIA As INFITF.Application
        Dim Body1 As Body
        Dim part1 As Part
        Dim hybridBody1 As Body
        Dim reference1, reference2 As Reference
        Dim hybridBodies1 As Bodies
        Dim hybridShapeFactory1 As HybridShapeFactory
        Dim hybridShapes1 As HybridShape
        Dim hybridShapeRotate1 As HybridShapeRotate
        Dim partDocument1 As Document
        Dim hybridShapeAssemble1 As HybridShapeAssemble
        Dim axisSystems1 As AxisSystems
        Dim axisSystem1 As AxisSystem
        Dim bodies1 As Bodies

        Try
            CATIA = System.Runtime.InteropServices.Marshal.GetActiveObject("CATIA.Application")
        Catch ex As System.Runtime.InteropServices.COMException
            MessageBox.Show("Catia nicht gefunden!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End
        End Try

        partDocument1 = CATIA.ActiveDocument

        part1 = partDocument1.Part

        hybridShapeFactory1 = part1.HybridShapeFactory

        hybridShapeRotate1 = hybridShapeFactory1.AddNewEmptyRotate()

        hybridBodies1 = part1.HybridBodies

        hybridBody1 = hybridBodies1.Item("Kurve_1")

        hybridShapes1 = hybridBody1.HybridShapes

        hybridShapeAssemble1 = hybridShapes1.Item("Verbindung.3")

        reference1 = part1.CreateReferenceFromObject(hybridShapeAssemble1)

        hybridShapeRotate1.ElemToRotate = reference1

        hybridShapeRotate1.VolumeResult = False

        hybridShapeRotate1.RotationType = 0

        axisSystems1 = part1.AxisSystems

        axisSystem1 = axisSystems1.Item("Achsensystem.1")

        reference2 = part1.CreateReferenceFromBRepName("REdge Edge Face Brp AxisSystem.1;3);None );Cf11 ));Face Brp AxisSystem.1;2);None );Cf11 ));None Limits1 );Limits2 ));Cf11 ));WithPe rmanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", axisSystem1)

        hybridShapeRotate1.Axis = reference2

        hybridShapeRotate1.AngleValue = 42.2

        bodies1 = part1.Bodies

        body1 = bodies1.Item("Hauptkörper")

        body1.InsertHybridShape(hybridShapeRotate1)

        part1.InWorkObject = hybridShapeRotate1

        part1.Update()

Das Problem liegt bei der Kurve1!! Wenn wir Visual starten findet er die Kurve1 nicht!!!!

Kann mir da jemand weiterhelfen???

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

---

Gibt es denn ein GeoSet, welches "Kurve_1" heißt?

Ansonsten die Grundlagen: Systeminformation ausfüllen und Fehlermeldung mitteilen.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Danke!!!

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