Sub doit()
        Dim drawing, member_view, original_view As tag_t
        Dim middle() As Double = {320, 320}
        Dim drawing_info As UF_DRAW_info_t = {UF_DRAW_METRIC_SIZE, UF_DRAW_A1, _
          1.0, UF_PART_METRIC, UF_DRAW_THIRD_ANGLE_PROJECTION}
        Dim view_info As UF_DRAW_view_info_t = {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)
    End Sub