So, wenn ich das aber durch ein TypeName() jage und mir das ergebnis ausgeben lasse, bekomme ich "Solid" zurück. Nach Recherche hier sollte es doch eigentlich als "Pocket" oder ähnliches erkannt werden.
So wie es momentan ist bekomme ich Fehlermeldungen wenn ich versuche mit CutOut.Sketch.Name ausgeben zu lassen, ganz zu schweigen von einem Austausch der Skizze.

Die verschiedenen Skizzen die je nach Fall durchgewechselt werden sollen befinden sich in einem GeoSet. Die "alte" Skizze soll nicht gelöscht werden, sie soll nach wie vor in diesem GeoSet verbleiben.

Kann mich da mal jemand in die richtige Richtung stupsen wie ich da jetzt weiter kommen kann?

[Diese Nachricht wurde von mycon am 07. Aug. 2011 editiert.]

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

Gruß
Bernd

PS: mit VB.net kenne ich mich leider nicht aus.

Edit: Ich lese gerade, dass du dich im SheetMetal befindest: dann kann ich dir nicht weiterhelfen (SheetMetal scheint per Script nicht unterstützt zu werden)

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

[Diese Nachricht wurde von bgrittmann am 07. Aug. 2011 editiert.]

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

Gruß
Bernd

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

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

...

Hab mir grad ein simples Dokument mit einem Stück Blech gemacht, dann zwei skizzen darauf erstellt (Skizze.1, Skizze.2) und eine Tasche auf Skizze.1 definiert.
der folgende Code für den Klick auf Button1 tauscht dann die skizze.1 mit skizze.2 für die Tasche (und wieder zurück beim 2ten Klick). Das funktioniert auch in der Sheetmetal-Umgebung.
(oPart heißt hier partDocument1)

Code:

---

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '---- Anfang des Auflösungsscripts für Objekt: MeineTasche
        Dim partDocument1 As PartDocument
        partDocument1 = CATIA.ActiveDocument

        Dim part1 As Part
        part1 = partDocument1.Part

        Dim bodies1 As Bodies
        bodies1 = part1.Bodies

        Dim body1 As Body
        body1 = bodies1.Item("Hauptkörper")

        Dim shapes1 As Shapes
        shapes1 = body1.Shapes

        Dim CutOut As Pocket
        CutOut = shapes1.Item("MeineTasche")
        '---- Ende des Auflösungsscripts

        Dim pSketch As Sketch
        pSketch = CutOut.Sketch

        '---- Anfang des Auflösungsscripts für Objekt: Skizze.1 und Skizze.2
        Dim sketches1 As Sketches
        sketches1 = body1.Sketches

        Dim sketch1 As Sketch
        sketch1 = sketches1.Item("Skizze.1")

        Dim sketch2 As Sketch
        sketch2 = sketches1.Item("Skizze.2")

        Dim sketch1Ref As Reference
        sketch1Ref = part1.CreateReferenceFromObject(sketch1)

        Dim sketch2Ref As Reference
        sketch2Ref = part1.CreateReferenceFromObject(sketch2)
        '---- Ende des Auflösungsscripts

        If pSketch Is sketch1 Then
            CutOut.SetProfileElement(sketch2Ref)
        Else
            CutOut.SetProfileElement(sketch1Ref)
        End If
        part1.Update()
    End Sub

---