Sub B_1_Click()

Dim laenge As Double
Dim breite As Double
Dim hoehe As Double

laenge = CDbl(tb_l.Text)
breite = CDbl(tb_b.Text)
hoehe = CDbl(tb_h.Text)

'Erstellen eines neuen Dokument
Dim Part As PartDocument
Part = ThisApplication.Documents.Add(kPartDocumentObject, ThisApplication.FileManager.GetTemplateFile(kPartDocumentObject))


'Ursprung setzen
Dim PartRef As PartComponentDefinition
PartRef = Part.ComponentDefinition

'Skizze erstellen
Dim Skizze As PlanarSketch
Skizze = PartRef.Sketches.Add(PartRef.WorkPlanes(3))

'Geometriereferenz erstellen
Dim GeoRef As TransientGeometry
GeoRef = ThisApplication.TransientGeometry

'Skizze zeichnen
Dim Linie As SketchEntitiesEnumerator
Linie = Skizze.SketchLines.AddAsTwoPointRectangle(GeoRef.CreatePoint2d(0, 0), GeoRef.CreatePoint2d(laenge, breite))

'Profil erstellen
Dim Profil As Profile
Profil = Skizze.Profiles.AddForSolid

'Extruieren
Dim Extrusion As ExtrudeFeature
Extrusion = PartRef.Features.ExtrudeFeatures.AddByDistanceExtent(Profil, hoehe, kNegativeExtentDirection, kJoinOperation)

End Sub