Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim teilenummer As String
teilenummer = name.partNumber

Dim length1 As Parameter
Set length1 = parameters1.Item("teilenummer\Offset_Bbox_Max_X.6")

length1.Value = 1.000000

part1.Update

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim nummer as Integer
nummer = InputBox("Rohrteilnummer eingeben.", "Rohrteilnummer", nummer)
Dim body1 As Body
Set body1 = bodies1.Item("Rohteil." & nummer)

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("Rohteil.2")

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = body1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("definition_points")

Dim sketches1 As Sketches
Set sketches1 = hybridBody1.HybridSketches

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

Dim constraints1 As Constraints
Set constraints1 = sketch1.Constraints

Dim constraint1 As Constraint
Set constraint1 = constraints1.Item("Länge.1")

Dim length2 As Dimension
Set length2 = constraint1.Dimension

length2.Value = 69.000000

Dim constraint2 As Constraint
Set constraint2 = constraints1.Item("Länge.2")

Dim length3 As Dimension
Set length3 = constraint2.Dimension

length3.Value = 96.000000

Dim parameters2 As Parameters
Set parameters2 = part1.Parameters

Dim length4 As Parameter
Set length4 = parameters2.Item("PRESSBLOCK_1_1_119310_119687_00034773\Offset_Bbox_Min_X.2")

length4.Value = 1.000000

part1.Update 

length2.Value = 69.000000

Dim parameters3 As Parameters
Set parameters3 = part1.Parameters

Dim length5 As Parameter
Set length5 = parameters3.Item("PRESSBLOCK_1_1_119310_119687_00034773\Offset_Bbox_Max_Y.2")

length5.Value = 1.000000

part1.Update 

length3.Value = 96.000000

Dim parameters4 As Parameters
Set parameters4 = part1.Parameters

Dim length6 As Parameter
Set length6 = parameters4.Item("PRESSBLOCK_1_1_119310_119687_00034773\Offset_Bbox_Min_Y.2")

length6.Value = 1.000000

part1.Update 

length2.Value = 69.000000

length3.Value = 96.000000

Dim parameters5 As Parameters
Set parameters5 = part1.Parameters

Dim length7 As Parameter
Set length7 = parameters5.Item("PRESSBLOCK_1_1_119310_119687_00034773\Offset_Bbox_Max_Z.2")

length7.Value = 1.000000

part1.Update 

Dim parameters6 As Parameters
Set parameters6 = part1.Parameters

Dim length8 As Parameter
Set length8 = parameters6.Item("PRESSBLOCK_1_1_119310_119687_00034773\Offset_Bbox_Min_Z.2")

length8.Value = 1.000000

part1.Update 

Dim selection1 As Selection
Set selection1 = partDocument1.Selection

Dim visPropertySet1 As VisPropertySet
Set visPropertySet1 = selection1.VisProperties

Set hybridBodies1 = hybridBody1.Parent

Dim bSTR1 As String
bSTR1 = hybridBody1.Name

selection1.Add hybridBody1

Set visPropertySet1 = visPropertySet1.Parent

Dim bSTR2 As String
bSTR2 = visPropertySet1.Name

Dim bSTR3 As String
bSTR3 = visPropertySet1.Name

visPropertySet1.SetShow 0

selection1.Clear 

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

part1.InWorkObject = sketch2

Dim factory2D1 As Factory2D
Set factory2D1 = sketch2.OpenEdition()

Dim geometricElements1 As GeometricElements
Set geometricElements1 = sketch2.GeometricElements

Dim point2D1 As GeometricElement
Set point2D1 = geometricElements1.Item("Punkt.1")

point2D1.SetData -68.000000, -95.000000

Dim point2D2 As GeometricElement
Set point2D2 = geometricElements1.Item("Punkt.2")

point2D2.SetData 1.000000, -95.000000

Dim line2D1 As GeometricElement
Set line2D1 = geometricElements1.Item("Linie.1")

line2D1.SetData 0.000000, -95.000000, 1.000000, 0.000000

Dim line2D2 As GeometricElement
Set line2D2 = geometricElements1.Item("Linie.2")

line2D2.SetData 1.000000, 0.000000, 0.000000, 1.000000

Dim line2D3 As GeometricElement
Set line2D3 = geometricElements1.Item("Linie.4")

line2D3.SetData -68.000000, 0.000000, 0.000000, 1.000000

sketch2.CloseEdition 

Dim shapes1 As Shapes
Set shapes1 = body1.Shapes

Dim closeSurface1 As Shape
Set closeSurface1 = shapes1.Item("Rohteil")

part1.InWorkObject = closeSurface1

part1.Update 

length2.Value = 69.000000

length3.Value = 96.000000

Dim selection2 As Selection
Set selection2 = partDocument1.Selection

Dim visPropertySet2 As VisPropertySet
Set visPropertySet2 = selection2.VisProperties

Set hybridBodies1 = hybridBody1.Parent

Dim bSTR4 As String
bSTR4 = hybridBody1.Name

selection2.Add hybridBody1

Set visPropertySet2 = visPropertySet2.Parent

Dim bSTR5 As String
bSTR5 = visPropertySet2.Name

Dim bSTR6 As String
bSTR6 = visPropertySet2.Name

visPropertySet2.SetShow 1

selection2.Clear 

End Sub