Sub Versuch()
    Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.Documents.Add(kPartDocumentObject, _
                 ThisApplication.FileManager.GetTemplateFile(kPartDocumentObject))
    Dim oTG As TransientGeometry
    Set oTG = ThisApplication.TransientGeometry
    
'Workplane Achse
    Dim oWorkPlane As WorkPlane
    Set oWorkPlane = oPartDoc.ComponentDefinition.WorkPlanes.AddByPlaneAndOffset _
    (oPartDoc.ComponentDefinition.WorkPlanes.Item(3), 0)

'Sketch Achse
    Dim oSketch As PlanarSketch
    Set oSketch = oPartDoc.ComponentDefinition.Sketches.Add(oWorkPlane)
 
'TempPunkte für die achse
    Dim oPunkt As SketchPoints
    Set oPunkt = oSketch.SketchPoints
    
    Call oPunkt.Add(oTG.CreatePoint2d(0, 0), False)
    Call oPunkt.Add(oTG.CreatePoint2d(1, 0), False)
    Call oPunkt.Add(oTG.CreatePoint2d(0, 1), False)
    Call oPunkt.Add(oTG.CreatePoint2d(1, 1), False)

    Dim oCoord1 As Point2d
    Set oCoord1 = oTG.CreatePoint2d(-0.7, 0)
 
'erzeugt die achse

    Dim oLine01 As SketchLine
    Set oLine01 = oSketch.SketchLines.AddByTwoPoints(oPunkt(1), oPunkt(2))
    Dim oLine02 As SketchLine
    Set oLine02 = oSketch.SketchLines.AddByTwoPoints(oPunkt(3), oPunkt(4))
    
    
    Dim Maß As OffsetDimConstraint
    Set Maß = oSketch.DimensionConstraints.AddOffset(oLine02, oLine01, oCoord1, False)
    
End Sub