void doit()
{
    tag_t drawing,member_view,original_view;
    double middle[2] = { 320, 320 }; 
    UF_DRAW_info_t 
        drawing_info = { UF_DRAW_METRIC_SIZE, UF_DRAW_A1, 1.0, _
          UF_PART_METRIC,UF_DRAW_THIRD_ANGLE_PROJECTION };
    UF_DRAW_view_info_t
        view_info = { UF_DRAW_ACTIVE_VIEW, NULL_TAG, 1.0, FALSE, TRUE, _
          FALSE,TRUE };
 
    UF_VIEW_ask_tag_of_view_name("FRONT", &original_view);
 
    // Erzeugt ein neues Blatt
    UF_DRAW_create_drawing("SH1", &drawing_info, &drawing);
 
    // Fügt eine Ansicht hinzu
    UF_DRAW_import_view(drawing, original_view, middle, &view_info,
        &member_view);
}

Dim drawings_DrawingSheet1 As Drawings.DrawingSheet
drawings_DrawingSheet1 = theSession.Parts.Work.DrawingSheets.InsertSheet( _
  "SHT1", Drawings.DrawingSheet.Unit.Millimeters, 210.0, 297.0, 1.0, 1.0, _
  Drawings.DrawingSheet.ProjectionAngleType.FirstAngle)