Sub Main()
    
    Dim oApp As Inventor.Application
    Set oApp = ThisApplication
    Dim oPartDoc As PartDocument
    Set oPartDoc = oApp.Documents.Add(kPartDocumentObject, oApp.GetTemplateFile(kPartDocumentObject))
    
    ' Einlesen der Einheiten im Dokument.
    Dim oUOM As UnitsOfMeasure
    Set oUOM = ThisApplication.ActiveDocument.UnitsOfMeasure
    
    'Setzen der Einheiten im Dokument. ACHTUNG Inventor API arbeitet mit cm und radiant!!!!!
    Dim eLengthUnits As UnitsTypeEnum
    oUOM.LengthUnits = kMillimeterLengthUnits
    
    Dim oCompDef As PartComponentDefinition
    Set oCompDef = oPartDoc.ComponentDefinition
    
    Dim oSketch As PlanarSketch
    Set oSketch = oPartDoc.ComponentDefinition.Sketches.Add(oPartDoc.ComponentDefinition.WorkPlanes.Item(3))
        
    'Erstellen der vorübergehenden Konstruktions- Sammlung (Liste)
    Dim oTG As TransientGeometry
    Set oTG = oApp.TransientGeometry
    
    'Projizieren des Basispunktes auf die Skizze
    Dim Basispunkt As SketchPoint
    Set Basispunkt = oSketch.AddByProjectingEntity(oPartDoc.ComponentDefinition.WorkPoints.Item(1))
    
    'Erstellen der Skizze aus 8 Linen
    Dim oLines(1 To 8) As SketchLine
    Set oLines(1) = oSketch.SketchLines.AddByTwoPoints(oTG.CreatePoint2d(0, 0), oTG.CreatePoint2d(0, 0.8))
    oLines(1).Centerline = True 'Linie als Mittelline
        
    Set oLines(2) = oSketch.SketchLines.AddByTwoPoints(oLines(1).EndSketchPoint, oTG.CreatePoint2d(6.2, 0.8))
    Set oLines(3) = oSketch.SketchLines.AddByTwoPoints(oLines(2).EndSketchPoint, oTG.CreatePoint2d(6.2, 18))
    Set oLines(4) = oSketch.SketchLines.AddByTwoPoints(oLines(3).EndSketchPoint, oTG.CreatePoint2d(10.2, 18))
    Set oLines(5) = oSketch.SketchLines.AddByTwoPoints(oLines(4).EndSketchPoint, oTG.CreatePoint2d(10.2, 16.75))
    Set oLines(6) = oSketch.SketchLines.AddByTwoPoints(oLines(5).EndSketchPoint, oTG.CreatePoint2d(7, 16.75))
    Set oLines(7) = oSketch.SketchLines.AddByTwoPoints(oLines(6).EndSketchPoint, oTG.CreatePoint2d(7, 0))
    Set oLines(8) = oSketch.SketchLines.AddByTwoPoints(oLines(7).EndSketchPoint, oTG.CreatePoint2d(0, 0))
    
    'Abhänigkeiten vergeben
    oLines(1).StartSketchPoint.Merge oLines(8).EndSketchPoint 'Wichtiger Koinzident zum schließen der Kontur
    
    oSketch.GeometricConstraints.AddHorizontal oLines(2)
    oSketch.GeometricConstraints.AddHorizontal oLines(4)
    oSketch.GeometricConstraints.AddHorizontal oLines(6)
    oSketch.GeometricConstraints.AddHorizontal oLines(8)
    
    oSketch.GeometricConstraints.AddVertical oLines(1)
    oSketch.GeometricConstraints.AddVertical oLines(3)
    oSketch.GeometricConstraints.AddVertical oLines(5)
    oSketch.GeometricConstraints.AddVertical oLines(7)
    
    'Erst jetzt mit Basispunkt verbinden
    oLines(1).StartSketchPoint.Merge Basispunkt 'Koinzident zum Fixieren auf dem Basispunkt
    
End Sub