Attribute VB_Name = "Modul11"
Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim relations1 As Relations
Set relations1 = part1.Relations

Dim designTable1 As DesignTable
Set designTable1 = relations1.Item("Konstruktionstabelle.1")

Dim selection1 As Selection
Set selection1 = partDocument1.Selection

selection1.Search "CATSketchSearch.MfLengthConstraint,all"

selection1.Search "Name='Aufmaß.1',all"

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

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

Dim sketches1 As Sketches
Set sketches1 = body1.Sketches

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

Dim geometricElements1 As GeometricElements
Set geometricElements1 = sketch1.GeometricElements

Dim axis2D1 As Axis2D
Set axis2D1 = geometricElements1.Item("Absolute Achse")

Dim line2D1 As Line2D
Set line2D1 = axis2D1.GetItem("H-Richtung")

line2D1.ReportName = 1

Dim line2D2 As Line2D
Set line2D2 = axis2D1.GetItem("V-Richtung")

line2D2.ReportName = 2

Dim factory2D1 As Factory2D
Set factory2D1 = sketch1.Factory2D

Dim point2D1 As Point2D
Set point2D1 = factory2D1.CreatePoint(59.2604, 15.6735)

point2D1.ReportName = 3

point2D1.Construction = False

Dim constraints1 As Constraints
Set constraints1 = sketch1.Constraints

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(point2D1)

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

Dim constraint1 As Constraint
Set constraint1 = constraints1.AddBiEltCst(catCstTypeDistance, reference1, reference2)

constraint1.Mode = catCstModeDrivingDimension

Dim length1 As Length
Set length1 = constraint1.Dimension

length1.value = 59.2604

Dim reference3 As Reference
Set reference3 = part1.CreateReferenceFromObject(point2D1)

Dim reference4 As Reference
Set reference4 = part1.CreateReferenceFromObject(line2D1)

Dim constraint2 As Constraint
Set constraint2 = constraints1.AddBiEltCst(catCstTypeDistance, reference3, reference4)

constraint2.Mode = catCstModeDrivingDimension

Dim length2 As Length
Set length2 = constraint2.Dimension

length2.value = 15.6735

sketch1.CloseEdition

part1.UpdateObject sketch1

End Sub