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