Sub Zunge_Tasche		

						
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim shapeFactory1 As Factory
Set shapeFactory1 = part1.ShapeFactory

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromName("")

Dim pocket1 As Pocket
Set pocket1 = shapeFactory1.AddNewPocketFromRef(reference1, 20.000000)

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("Körper.2")

Dim sketches1 As Sketches
Set sketches1 = body1.Sketches

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

Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromObject(sketch1)

pocket1.SetProfileElement reference2

pocket1.IsSymmetric = True

Dim limit1 As Limit
Set limit1 = pocket1.FirstLimit

limit1.LimitMode = catUpToLastLimit

limit1.LimitMode = catUpThruNextLimit

part1.UpdateObject pocket1

part1.Update 




End Sub